Vytisknout stránku | Zavřít okno

seznam bodů

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: AutoCAD
Popis fóra: Otázky kolem aplikací AutoCAD a AutoCAD LT, AutoCAD 360, prohlížečů, DWG a DWF, Design Review, Navisworks, nadstavby, 123D, A360 a cloud Autodesk 360
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=265
Datum vytištění: 26.dub.2026 v 16:10


Téma: seznam bodů
Odeslal: X-man
Předmět: seznam bodů
Datum odeslání: 08.pro.2004 v 18:46

Pomocí příkazu LIST (v AutoCADu 2004) vygeneruji přes 17tisíc. bodů. Potřeboval bych souřadnice bodu dostat do souboru *.txt.

Snažil jsem se je stáhnout přes příkaz copyhist, ale zobrazí se mi pouze body zobrazené v příkazovém řádku (cca 200 posledních příkazů).

Existuje nějaký jiný příkaz?

Lze nastavit počet zobrazení posledních příkazů?

Díky

 


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 08.pro.2004 v 20:05
možná LOGSOUBOR_ANO (viz http://www.cadforum.cz/cadforum/qaID.asp?tip=1876 - http://www.cadforum.cz/cadforum/qaID.asp?tip=1876 ), ale asi by to bylo spíš na nějaký LISP nebo VBA prográmek

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: Seiner
Datum odeslání: 09.pro.2004 v 07:32

Jeden z evergreenů této konfery. Já bych na to šel lispem asi nějak takhle:

(setq i 0)
(setq uzly nil)
(setq V (ssget "X"(list(cons 0 "POINT")))
      p (sslength V))
(while (< i p)
       (setq i (1+ i)
              p1(cdr(assoc 10(setq a(entget(ssname v (1- i))))))
              uzly (append uzly  (list(append (list i)(list p1)) ))
        )
)
(setq vystup(open "body.txt" "w"))

(setq i 0)
(while (< i p)
    (write-line (strcat (rtos(car (nth i uzly))2)
        ": " (rtos(car(cadr(nth i uzly)))2)
        ", " (rtos(cadr(cadr(nth i uzly)))2)
        ", " (rtos(caddr(cadr(nth i uzly)))2)) vystup)
    (setq i (1+ i))
)

(close vystup)


Vytisknout stránku | Zavřít okno