---

Hallo,

wie kann ich mit dem entmake Befehl eine 3D-Polylinie zeichnen (Koordinsten besitzen z-Wert)? Geht das, oder muss ich LW-Polylinien (s. u.) erzeugen und das Koordinatensystem immer drehen?

(entmake '((0 . "Polyline")      ; Object type
    (8 . "0")            ; Color
    (6 . "continuous")      ; Linetype
    (70 . 1)
    (66 . 1)            ; Vertices follow
    ))
(entmake (list '(0 . "VERTEX")(cons 10 '(0 0 0))))
(entmake (list '(0 . "VERTEX")(cons 10 '(5 0 8))))
(entmake (list '(0 . "VERTEX")(cons 10 '(9 2 15))))
(entmake (list '(0 . "VERTEX")(cons 10 '(26 19 30))))
(entmake '((0 . "SEQEND"))); Sequence end
(entmod Obj)

Viele Grüße
Andrea

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

---

Hallo Andrea,

prinzipiell sollte das so funktionieren. Ich habe eben mal in einem alten Tool bei mir nachgesehen und nur den unterschied feststellen können, dass ich in der Pline selbst die GC 70 und 66 nicht erzeuge. Vielleicht war's das schon???

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Wie unterscheidet ACAD bei entmake eigentlich, ob es eine 2D (also planare) oder 3D Polylinie sein soll ?
Vielleicht ist es in dem Zusammenhang noch wichtig Bit 4 (8) im GC70 zu setzten.. das sagt aus : 3D-Polylinie!

Als Ergänzung ... Mit vl gehts so :
Schau mal hier

------------------
  - Thomas -

[Diese Nachricht wurde von CADmium am 14. Apr. 2004 editiert.]

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

---

Also an dem GC 70 und 66 kann es nicht liegen.
Wenn ich die ändere oder entferne funktioniert es trotzdem nicht.

Gruß
Andrea

[Diese Nachricht wurde von AB am 14. Apr. 2004 editiert.]

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

---

doch, der gc70 ist es - und zwar in beiden Objekten, an der Polyline und an der Vertex(en) ...
siehe nochmal in der DXF-Referenz in der Hilfe nach !

------------------
- Sebastian Mattis -

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

---

liegt daran, dass du GC 70 (= 32) in den Vertices nicht gesetzt hast:

Code:

---

(defun test(vtcs)
  (entmake
    (list
    '(0 . "POLYLINE")
    '(66 . 1)
    '(70 . 9)
    )
  )
  (foreach vtx vtcs
    (entmake
      (list
      '(0 . "VERTEX")
      (cons 10 vtx)
      '(70 . 32)
      )
    )
  )
  (entmake '((0 . "SEQEND")))
)

(test '((0 0 0)(5 0 8)(9 2 15)(26 19 30)))

---

Ach ja, dieser (entmod obj)-Aufruf wirkt da auch etwas unmotiviert...

Gruß, Axel

------------------

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze
Meine Überzeugung...

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

---

Da hat mich Sebastion überholt;-)

Holger hat Recht damit, dass man (66 . 1) auch noch weglassen kann, denn bei einer Polylinie ist immer ein komplexes entity gegeben, das die entmake-Funktion puffert, anders als beim Insert, da wird nur gepuffert, wenn (66 . 1) mit drin ist. Ein Insert kann ein komplexes Entity sein, muss es aber nicht.

Den GC 70 kann man aber auf keinen Fall weglassen.

Noch'n Gruß, Axel

------------------

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze
Meine Überzeugung...

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