Ahoj,Mam mam soubor s body. Potrebuji v kazdem bode vytvoril linii v kladnem Z a dlouhou 1.5m. Existuje nejake reseni to udelat automaticky cca 1000 bodu. Pripadne neco jako v Revitu - dynamo. Ze bych si to "naprogramoval".Diky
Vladimír Michl
12.10.2023, 15:56
Tøeba v LISPu:[CODE];body na linie(defun C:Z15 ( / ss i pt) (princ "\nVyberte body") (setq ss (ssget '((0 . "POINT"))) i 0) (repeat (sslength ss) (setq ent (ssname ss i) i (1+ i)) (setq pt (cdr (assoc 10 (entget ent)))) (entmake (list (cons 0 "LINE") (cons 10 pt) (cons 11 (mapcar '+ pt '(0 0 1.5))) (cons 8 (getvar "CLAYER")))) ) (princ "\nHotovo.") (princ))[/CODE]