lisp to transform 3d polylinees into 2d

[querycad]

Good morning

I am creating a lisp command to solve the following situation:

date a polylinea 3d
turn it into a 2d polyline.

the following code I ask if it is okay:

(defun c:river ()
c:river

(sject)
(setq a (ssget))

command flatten (ssget)
command explode (ssget)
joint command (p)

_

allego txt.
Thank you very much!!!

 

[Cristallo]

you have to understand a lot more about the lisp and its grammar
the only rows with one meaning only 1 , that "setq a" and closing
the rest doesn't make any sense in autolisp.

 

[GP.]

I'm creating a lisp command to solve the following situation. . .

I don't know if you're creating to learn or it could be a good one already done, like this attachment.
polylinea 3d is replaced by a 2d having an elevation corresponding to the share of the first summit of the original one.

 

[Cristallo]

I don't know if you're creating to learn or it could be a good one already done, like this attachment.
polylinea 3d is replaced by a 2d having an elevation corresponding to the share of the first summit of the original one.

Very nice
and if I want to take her to an arbitrary elevation, where do I intervene?
(cons 38 (last (car v)))) correct?

 

[GP.]

exact, if you remove the code line the elevation is set by default to zero.
I had set this feature because I had happened to work on level curves formed by 3d polylinee with vertices (of course) at the same altitude, while I needed 2d polylinee placed at that altitude.

 

[Cristallo]

tank you