Convert a 2D polyline to 3D from attribiut block

[ymg3]

Not clear to me what it is you want.

 

If it is 3dpoly to Lwpoly use the following again by AlanJT

 

;;******************************************************************************;
;; mk_lwp    by Alan J Thompson                                                 ;
;; Argument: pl, A list of points (2d or 3d)                                    ;
;; Create an LWPolyline at Elevation 0, on Current Layer.                       ;
;; Return: Polyline Object                                                      ;
;;******************************************************************************;

(defun mk_lwp (pl)
   (vlax-ename->vla-object
     (entmakex
        (append (list '(0 . "LWPOLYLINE")
                      '(100 . "AcDbEntity")
                      '(100 . "AcDbPolyline")
                       (cons 90 (length pl))
                       '(70 . 0)
                )
                (mapcar '(lambda (p) (cons 10 (trans (list (car p) (cadr p)) 1 0))) pl)
       )
     )
   )
)

[Guest]

Thank you ymg3 the problem solved.

 

Regards

[hmsilva]

Thank you hmsilva

 

 

You're welcome, prodromosm!

Glad I could help

 

 

Henrique