Hallo,
mit diesem Code (nicht von mir) kann man ein Schnittlinie erstellen:
(defun c:createsection ( / acadObj doc point1 point2 vec modelSpace sectionObj fillColor)
(vl-load-com) ; always make sure the COM system is loaded
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
(setq point1 (vlax-3d-point -5 3 2)
point2 (vlax-3d-point 5 3 2)
vec (vlax-3d-point 0 0 -1)
)
(setq modelSpace (vla-get-ModelSpace doc))
(setq sectionObj (vla-AddSection modelSpace point1 point2 vec))
(vlax-put-property sectionObj 'Color 2)
(setq fillColor (vlax-create-object "AutoCAD.AcCmColor.22"))
(vla-put-ColorIndex fillColor 2)
(vlax-put-property sectionObj 'IndicatorFillColor fillColor)
(vla-ZoomExtents acadObj)
)
Wo wird denn die zugehörigen schnitteinstellungen festgelegt ?
------------------
MfG
Frank
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP