Lisp zu transformieren 3d Polylines in 2d

[querycad]

Guten Morgen.

Ich schaffe einen lisp-Befehl, um die folgende Situation zu lösen:

Datum ein Polylinea 3d
sie in eine 2d Polyline verwandeln.

den folgenden Code frage ich, ob es okay ist:

(Defun c:river)
c: river

(Spritzen)
(setq a (ssget)

Befehl Flatten (ssget)
Befehl explodieren (ssget)
Gelenkbefehl (p)

- Ja.

allego txt.
Vielen Dank!!!

 

[Cristallo]

Sie müssen viel mehr über die Lispe und seine Grammatik verstehen
die einzigen Zeilen mit einer Bedeutung nur 1 , dass "setq a" und schließen
der Rest macht keinen Sinn im Autolisp.

 

[GP.]

Ich schaffe einen Befehl, um die folgende Situation zu lösen. .

Ich weiß nicht, ob du lernst, oder es könnte gut sein, wie diese Anhaftung.
Polylinea 3d wird durch eine 2d ersetzt, deren Höhe dem Anteil des ersten Gipfels des ursprünglichen entspricht.

 

[Cristallo]

Ich weiß nicht, ob du lernst, oder es könnte gut sein, wie diese Anhaftung.
Polylinea 3d wird durch eine 2d ersetzt, deren Höhe dem Anteil des ersten Gipfels des ursprünglichen entspricht.

Sehr schön
und wenn ich sie in eine willkürliche Erhebung bringen will, wo interveniere ich?
(cons 38 (last (auto v))))) richtig?

 

[GP.]

genau, wenn Sie die Codezeile entfernen, wird die Höhe standardmäßig auf Null gesetzt.
Ich hatte dieses Feature gesetzt, weil ich auf Niveaukurven, die von 3d Polylinee mit Vertiken (natürlich) in der gleichen Höhe gearbeitet hatte, während ich brauchte 2d Polylinee auf dieser Höhe platziert.

 

[Cristallo]

Tank dich!