Solids 2 Plines
Körper (Flächenfüllungen) gibt es seit AutoCAD-Urzeiten. Diese wurden in früheren Versionen verwendet um Flächenfüllungen zu erstellen. Durch die Einfuhr von Solid-Schraffuren wurden die alten "Körper" obsolet.
Tools
Mittels untenstehendem Tool ist es Ihnen möglich die Körper in Polylinien zu verwandeln.
(defun ss-foreach(ss expr / i)
(if ss
(repeat(setq i(sslength ss))
((eval expr)(ssname ss(setq i(1- i))))
)
)
)
(defun solid->pl(solid / data)
(setq data(entget solid))
(if(="SOLID"(cdr(assoc 0 data)))
(progn
(command "_pline")
(mapcar
(function(lambda(gc)(command(cdr(assoc gc data)))))
'(10 11 13 12)
)
(command"_close")
(entdel ent)
)
)
)
(defun c:solids->pl( / )
(ss-foreach(ssget)'(lambda(ent)(solid->pl ent)))
)