need lisp for finding 3d polyline crossing

[Anonymous]

Hi

Could you please some one help me to get lisp for find crossing 3d polylines, for my vector data.

Thanks

ganesh

[devitg]

upload a sample dwg , 2007 or less

[stevor]

You could use the 'vLa-intersectwith'  function:

(setq ivl ( vLa-intersectwith
    (vLax-ename->vLa-Object en1 )
    (vLax-ename->vLa-Object en2 )
    acextendnone ) ) ; vlax data of Int Pts
(setq irl (vLax-safearray->List ; 'safearray'
   (vLax-variant-vaLue ivl )) ) ; to flat list
(repeat (/ (Length irl) 3) ; fLat pt List to 3D pt L
   (setq p3 (List (car iRl) (cadr iRl) (caddr iRl) )
            vpL (cons p3 vpL) iRl (cdddr iRl) ) ) ; 3D coords