---

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

---

ersetz mal
(setq objVLAPLine (vla-addPolyline (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) arrPLine))

durch
(setq objVLAPLine (vla-AddLightweightPolyline (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) arrPLine))

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hola thomas,

danke - hätte man finden können müssen sollen

lg alex

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

einmal noch,

weiss jetzt auch noch jemand, wie diese beiden funktionen
anzuwenden sind:

vla-addExtrudedSolid
vla-AddExtrudedSolidAlongPath

danke
alex

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP