Lines to 3d plines

[scoutdog]

Is there a lisp routine that allows you to turn lines into 3d polylines? We have a file that had 3d polylines in it, but was exploded. Now we have a bunch of lines with two elevations. How can I turn these into 3d polylines again? We have SurveCAD 2006, Civil 3D, and Autodesk Land Desktop. Thanks

[scj]

Try out my PEDIT3D from www.black-cad.de
It will consider fuzzy gaps and joines (circular and elliptical) arcs and splines to unique 3d-polylines too.
Good luck!
Jochen

[fixo]

Is there a lisp routine that allows you to turn lines into 3d polylines? We have a file that had 3d polylines in it, but was exploded. Now we have a bunch of lines with two elevations. How can I turn these into 3d polylines again? We have SurveCAD 2006, Civil 3D, and Autodesk Land Desktop. Thanks

Hi, scoutdog
Written on the fly but
maybe this helps to you

Thank you

Fatty





;; Convert objects: Lines->3dPolyline

;; Helper function to make points array

(defun safelist (lst)
(setq lst (apply 'append lst))
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbDouble
(cons 0 (- (length lst) 1))
)
lst
)
)
; ;;

(defun C:L23p (/ 3pl acsp adoc ans axss end flag pt_list ret sfar ss st
ves)
(vl-load-com)
(or adoc
(setq adoc (vla-get-activedocument
(vlax-get-acad-object)
)
)
)
(or acsp
(setq acsp (vla-get-block
(vla-get-activelayout adoc)
)
)
)

(vla-endundomark adoc)
(vla-startundomark adoc)
(setq ves nil
ret nil
) ;->for debug only
(prompt "\n *** SELECT BUNCH OF LINES TO TURN INTO 3DPOLY ***")
(if (setq ss (ssget '((0 . "LINE"))))
(progn
(setq axss (vla-get-activeselectionset adoc))
(vlax-for ln axss
(setq st (vlax-curve-getstartpoint ln)
end (vlax-curve-getendpoint ln)
ves (cons st (cons end ves))
)
)
)
)
(while (car ves)
(setq pt_list (cons (nth 0 ves) pt_list)
ves (vl-remove (nth 0 ves) ves)
)
)
(initget "Yes No")
&#40;setq ans &#40;getkword "\n\rIt must be closed polyline? &#40;Y/N&#41;<N>"&#41;&#41;
&#40;if &#40;not ans&#41;
&#40;setq ans "No"&#41;
&#41;
&#40;if &#40;eq ans "Yes"&#41;
&#40;progn
&#40;setq pt_list &#40;cons &#40;car pt_list&#41; pt_list&#41;&#41;
&#40;setq flag &#58;vlax-true&#41;
&#41;
&#40;progn pt_list
&#40;setq flag nil&#41;
&#41;
&#41;
&#40;setq sfar &#40;safelist pt_list&#41;&#41;
&#40;setq 3pl &#40;vla-add3dpoly acsp sfar&#41;&#41;
&#40;if &#40;and flag
&#40;vlax-property-available-p 3pl 'Closed&#41;
&#41;
&#40;vlax-put-property 3pl 'Closed flag&#41;
&#41;
&#40;vla-update 3pl&#41;
&#40;vlax-release-object 3pl&#41;
&#40;vla-erase axss&#41;
&#40;vla-delete axss&#41;
&#40;vlax-release-object axss&#41;
&#40;vla-regen adoc acallviewports&#41;
&#40;vla-endundomark adoc&#41;
&#40;princ&#41;
&#41;
&#40;prompt "\n\t *** Program loaded, type \"L23P\" to start. ***\t"&#41;
&#40;C&#58;L23p&#41;
&#40;princ&#41;