hola,
kann mir jemand von euch sagen, warum man beim erstellen einer pline (mit beigefügtem code) immer eine (0 . "POLYLINE") erhält?
ich brauche eine (0 . "LWPOLYLINE"), da ich diese als extrusionspfad für ein anderes objekt verwenden will.
plinetype hat keine auswirkung.
; ***********************************************************************
;Gruppe: Draw
;
;Autor: ast
;
;Datum: 14.12.06
;
;Funktion: DrawPLineByGivenPointList
;
;Zweck: Zeichnet eine PLine
;
;Argumente: LIST Punktliste
; BOOL T nil T=schliessen nil=offen
;
;Rückgabe: OBJECT VLA-Object die neue PLine
;
;Beispiel: (DrawPLineByGivenPointList (list (getpoint "\nPunkt: ") (getpoint "\nPunkt: ") (getpoint "\nPunkt: ")) T)
;
; ***********************************************************************
(defun DrawPLineByGivenPointList (lstPoints bOpenOrClosed / lstSysVars)
(setq lstPoints (apply 'append lstPoints))
(setq arrPLine (vlax-make-safearray vlax-vbDouble (cons 0 (- (length lstPoints) 1))))
(vlax-safearray-fill arrPLine lstPoints)
(setq objVLAPLine (vla-addPolyline (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) arrPLine))
(if bOpenOrClosed (vlax-put-property objVLAPLine 'Closed T))
objVLAPLine
)
danke
alex
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP