Vytisknout stránku | Zavřít okno

Úsečky se souřadnicemi načtenými z ASCII souboru

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=20537
Datum vytištění: 15.kvě.2026 v 17:34


Téma: Úsečky se souřadnicemi načtenými z ASCII souboru
Odeslal: ZdenekU
Předmět: Úsečky se souřadnicemi načtenými z ASCII souboru
Datum odeslání: 21.led.2015 v 14:28

Dobrý den,

 

Potřeboval bych lisp který bude  generovat úsečky  vždy s počátečním bodem  0,0,0 a koncové body by byly načítány z ASCII souboru.  Nemáte někdo upravený lisp ASCPOINT.LSP (http://www.cadforum.cz/cadforum/dl_file.asp?ID=613)  nebo něco podobného.

Děkuji za pomoc.
Zdeněk Uxa


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 21.led.2015 v 16:16
Na ASCPOINT je to asi moc speciální funkce, ale půjde zkombinovat načtení bodů přes ASCPOINT a následné pospojování s lokálním počátkem pomocí funkce LINE0 (předpokládá vypnuté uchopení):
 
;CAD Studio - connect objects to local origin 0,0,0
(defun C:LINE0 ( / ent ss pt)
 (prompt "\nSelect objects to connect to 0,0,0: ")
 (setq ss (ssget))
 (setvar "CMDECHO" 0)
 (foreach ent (mapcar 'cadr (ssnamex ss))
   (if (and (= (type ent) 'ENAME)(setq pt (cdr (assoc 10 (entget ent)))))
     (vl-cmdf "._LINE" "0,0,0" (trans pt 0 1) "")
    )
 )
 (setvar "CMDECHO" 1)
 (prin1)
)
 


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

Odeslal: johny
Datum odeslání: 21.led.2015 v 17:59
Potřebujete na to vůbec lisp? Vždyť je to jednoduchá operace pro script, kterou umí v excelu napsat každý...
="_line 0,0 "&A1&" "

Odeslal: ZdenekU
Datum odeslání: 22.led.2015 v 09:05
Děkuji za odpovědi,
kombinací ASCPOINT a LINE0 dosáhnu požadovaného výsledku.
Zdeněk Uxa


Vytisknout stránku | Zavřít okno