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 web, prohlížečů, DWG a DXF, Design Review, Navisworks, nadstavby, Drive a cloud Autodesk
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=265
Datum vytištění: 14.zář.2026 v 05:56


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)
https://www.linkedin.com/in/vmichl/ - LinkedIn , Autodesk Expert Elite

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