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

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í): [CODE];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))[/CODE] 
Vladimír Michl2015-01-21 16:25:33

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&" "

Děkuji za odpovědi,kombinací ASCPOINT a LINE0 dosáhnu požadovaného výsledku.Zdeněk Uxa