Vytisknout stránku | Zavřít okno

Hromadne vytvoreni linii

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=34654
Datum vytištění: 04.srp.2026 v 09:28


Téma: Hromadne vytvoreni linii
Odeslal: 5fred5
Předmět: Hromadne vytvoreni linii
Datum odeslání: 12.říj.2023 v 15:09
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


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 12.říj.2023 v 15:56
Třeba v LISPu:

;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)
)


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

Odeslal: 5fred5
Datum odeslání: 12.říj.2023 v 18:39
Dekuji moc!


Vytisknout stránku | Zavřít okno