How to Convert 2D PL to 3D PL with text at vertex?

[tuantrinhdp]

Hello. I want to convert 2D polyline to 3D polyline with text at vertex. Can you help me? 
 

Edited July 21, 2021 by tuantrinhdp

[BIGAL]

When asking for help it is best to post a sample dwg so some one may have a answer already that matches your request.

[tuantrinhdp]

Yes, i attached sample dwg. 

Drawing1.dwg

[Trudy]

if i understand right this text is the elevation ?

[tuantrinhdp]

Quote

3 hours ago, Trudy said:

if i understand right this text is the elevation ?

 

Yes. 

[BIGAL]

Just a quick one, will create 3dpoly, based on insertion point of text is Z point. Probably add a draw on a layer. Can add delete old pline.

 

(defun c:test ( / ss ent pt txt lst)
(defun AHpllst ( plst / x)
(command "3dpoly")
(while (= (getvar "cmdactive") 1 )
(repeat (setq x (length plst))
(command (nth (setq x (- x 1)) plst))
)
(command "")
)
)

(setq oldlay (getvar 'clayer))

(setq ss (ssget (list (cons 0 "TEXT"))))

(setq lst '())

(repeat (setq x (sslength ss))
    (setq ent (entget (ssname ss (setq x (1- x)))))
    (setq pt (cdr (assoc 10 ent)))
    (setq txt (cdr (assoc 1 ent)))
    (setq lst (cons (list (car pt) (cadr pt)(atof txt)) lst))
)

;(setvar 'clayer "yourlayename")
(ahpllst lst)

(setvar 'clayer oldlay)
(princ)
)

 

[tuantrinhdp]

9 hours ago, BIGAL said:

Just a quick one, will create 3dpoly, based on insertion point of text is Z point. Probably add a draw on a layer. Can add delete old pline.

 

(defun c:test ( / ss ent pt txt lst)
(defun AHpllst ( plst / x)
(command "3dpoly")
(while (= (getvar "cmdactive") 1 )
(repeat (setq x (length plst))
(command (nth (setq x (- x 1)) plst))
)
(command "")
)
)

(setq oldlay (getvar 'clayer))

(setq ss (ssget (list (cons 0 "TEXT"))))

(setq lst '())

(repeat (setq x (sslength ss))
    (setq ent (entget (ssname ss (setq x (1- x)))))
    (setq pt (cdr (assoc 10 ent)))
    (setq txt (cdr (assoc 1 ent)))
    (setq lst (cons (list (car pt) (cadr pt)(atof txt)) lst))
)

;(setvar 'clayer "yourlayename")
(ahpllst lst)

(setvar 'clayer oldlay)
(princ)
)

 

Thank you so much. 

[BIGAL]

No problem could be improved.