lisp for 3d polylinear quotas

[giulio1962]

is there a lisp to automatically quote a 3d polylinea?
I found several lisp to quote 2d polylines (pdim, ad), but I couldn't find one for 3d polylines.
a way to do it, which seems valid to me and explode the 3d polylinea in lines, then set the ucs for each single line
(defun c:ue nil (command "_.ucs" "_ob" pauses "_.plan" "_c") (princ)

and then quote each single line (dimlinear). Is it very complicated to make a lisp that "automates" the bird and the quotation for each single line?
thanks for any suggestions and greetings.

 

[giulio1962]

is there a lisp to automatically quote a 3d polylinea?
I found several lisp to quote 2d polylines (pdim, ad), but I couldn't find one for 3d polylines.
a way to do it, which seems valid to me and explode the 3d polylinea in lines, then set the ucs for each single line
(defun c:ue nil (command "_.ucs" "_ob" pauses "_.plan" "_c") (princ)

and then quote each single line (dimlinear). Is it very complicated to make a lisp that "automates" the bird and the quotation for each single line?
thanks for any suggestions and greetings.

I attach a line.txt file of example lines and a ucs script file (rename with .scr extension) to better explain what I would look for.
in practice the thing would work if you make a ucs and a size aligned for each line.