erstellt am: 08. Feb. 2007 14:14 <-- editieren / zitieren --> Unities abgeben: Nur für Juergen55
mit list und cons .. (progn (setq LAYERNAME "0") (setq PKT1 (getpoint "\n1. Punkt")) (setq PKT2 (getpoint "\n2. Punkt")) (entmake (list '(0 . "LINE") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") (cons 8 LAYERNAME) '(100 . "AcDbLine") (cons 10 PKT1) (cons 11 PKT2) '(210 0.0 0.0 1.0) ) ) ) ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
AVC_OutsideLoop plugin for AutoCAD and BricsCAD
Join segments to closed polyline. Convert any curves to polylines.
Approximation of splines with a given tolerance. Contour optimization.