Hallo gw,
versuch das: Einfügen der Zeile '(8 . "LAYERNAME")
Code:
(entmake (List
'(0 . "LWPolyline")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
'(90 . 4)
'(70 . 1)
'(8 . "KORPUS")
(cons 10 (trans(list (car P1)(cadr P2) Zh)1 0))
(cons 10 (trans p2 1 0))
(cons 10 (trans(list (car P2)(cadr P1) Zh)1 0))
(cons 10 (trans P1 1 0)))
)
Bei Fragen...
Grüße Holger
------------------
Holger Brischke
CADlon - Lisp over night!
Wieder 2 neue Tool's im FreeDownload
Wissen wie es gemacht wird? Jetzt Quellcode für die Hälfte
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP