lisp for Add vertex on intersecting 3d polyline with elevation

[MOHITGAUR]

I need to add vertex in 3Dpolylines which intersect with another 3Dpoly with elevation. Please refer attached snap.

[Trudy]

Hello, can  you attach .dwg file.

[MOHITGAUR]

yes

Test.dwg

[Trudy]

Hello @MOHITGAUR, something like that maybe ?  

Its compile some lisp from the net.

Command for start: dd1

 

 

Sourses:

Lee mac

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/how-to-add-a-vertex-to-several-3dpolyline-overlapped-with-only/td-p/9173454 

 

intersect.lsp

Edited March 15, 2022 by Trudy

[MOHITGAUR]

Thanks trudy, but when i try to do this lisp on 3dpolylines, its not work.

Can you please guide me?

 

[MOHITGAUR]

This lisp not work all the time (Specially large lines) but when selecting both line (One long 3dpolyline and one vertical 3Dpolyline), its gives us vertex on small vertical line.

Could you take a look again please?

[Trudy]

I may not understand what you need exactly, intersect in 3D or 2D intersect points.

[MOHITGAUR]

I need vertex on each 3Dpolylines intersection with interpolate elevation in batch mode. 

 

Please refer attached image after lisp result.

 

Thanks to give your valuable time.

[Trudy]

Hello, add this code in the file and try with command "dd2". It work with 3dpoly intersect but only if they are with the same elevation. With interpolation will be hard for me and if someone else want can change the code, will be better.

 

(defun c:dd2 ( / sset intt ssel2)
(setq sset (ssget (list (cons 0 "*POLYLINE"))))
(setq lst (LM:intersectionsinset sset))
(setq ssel2 (VaniVL sset "Try13"))
(vlax-for x ssel2
	(T:InVert x lst)
)
(princ)
)

 

[Trudy]

Okay nvm, try this xD

 

Again with "dd2"

intersect.lsp

[MOHITGAUR]

Thanks Trudy for your time and effort. But this lisp also not working properly.

 

2 3D polylines are intersect with each other without vertex, so become same elevation for both lines not possible.

 

Thanks

[MOHITGAUR]

I am sharing with you a lisp it adds 3D vertex but keeps one vertex in each record. If it can help you in creating Lisp.

 

command -- somefunc

Intersect 3dpoly somefunc.lsp

[Trudy]

@MOHITGAUR did you try the new uploaded lisp, from this post.

In the second post i modify some things and i think, it work.

"

Okay nvm, try this xD

 

Again with "dd2"

"

Edited March 16, 2022 by Trudy

[MOHITGAUR]

@Trudy yes i was try your lisp but unfortunately didn't get vertex.

[Trudy]

Upload the file or part of the file for new tests, because with first file work fine  

 

[MOHITGAUR]

Please find attached test drawing.

Test.dwg

[Trudy]

I fount the problem.

When you zoom to max you will se you have multiple intersect point for each line and for some very short distance you have around 6-7 int points. I will modify it tomorrow but dont think this is what you need.

[MOHITGAUR]

@Trudy please reply with lisp