3DPOLY line

[MKV]

Hi
I am trying to draw a 3D line using autolisp's entities. The
code looks like this:

(setq i (- 0 1))
(entmake (list (cons 0 "POLYLINE&quot ; Object
(cons 100 "AcDbEntity&quot
(cons 8 "L1&quot ; Layer name
(cons 100 "AcDb3dPolyline&quot
(cons 62 3))) ; Color

(repeat indx ;indx= size of the array ptlst
;which holds X,Y,Z coordinates
(entmake (list (cons 0 "VERTEX&quot
(cons 100 "AcDbEntity&quot
(cons 8 "L1&quot
(cons 100 "AcDbVertex&quot
(cons 100 "AcDb3dPolylineVertex&quot
(cons 10 (nth (setq i (1+ i)) ptlst))))
)
(entmake '((0 . "SEQEND&quot
(100 . "AcDbEntity&quot
(8 . "L1&quot)
This just produces a 2D line. I tried to extract the entity info as: (setq e (entget (car (entsel)))) and selected the above line. It produces:

(100 . "AcDb2dPolyline&quot (100 . "AcDb2dVertex&quot etc.

On the other hand if I use the same data set and read it as a script file it produces the correct curve.
Could any one tell where I am doing wrong in the above code?
Thank you
MKV

 

[IFRs]

try "3DPOLY" in lieu of "POLYLINE" maybe ???

 

[SpeedCAD]

Hi...

Is more easy with the ForEach function.

(command "_.3dpoly&quot
(foreach pt list-point
(command "_.3dpoly" pt)
)
(command "&quot

the list-point variable have all points of the 3DPOLYLINE.