Insert circles at each corner/intersection. Need help.

can someone help me with a lisp routine that inserts circles at every intersection of a polyline/series of line including its endpoint. thank you very much in advance.

What is the radius of the circle? Will that be ALL intersection and Endpoints of selected objects?

I was about to post that link Lee

I was about to post that link Lee

........

........

@pBe: A lisp routine sir that will ask for the diameter.

@Lee Mac: The link was good sir but it's not just what i meant. Im going to post a picture, I can't really explain it. (sorry ) Thanks in advance my masters.

The figure below is a polyline. Is it possible to have a lisp routine that will insert circles at each corner of the polygon (formed by a closed polyline) upon clicking it?

@pBe: A lisp routine sir that will ask for the diameter.

@Lee Mac: The link was good sir but it's not just what i meant. Sorry, im not really good in explaining.

I hope this explanation will do. A lisp routine that will insert circles at each corner (intersections and endpoints) of a polygon (formed by a closed polyline/or closed line) upon selecting that closed polyline/ or those lines. Thanks in advance my masters.

Thanks for the help and support mr Lee and mr pBe. But i think you don't get what i mean (sorry, im not good at explaining). I'll attach a picture so I can explain it further. thanks

The picture attached herewith is a closed polyline. The lisp routine that I need is that when you click that polyline/or closed polyline, it will insert circles at its intersections and endpoints. The diameter of the circle would depend on the user, so the routine will ask for its diameter/radius. Also if possible, it is applicable to lines. can you help me with this master Lee and master pBe? Thank you so much again.

Another way this code returns all the co-ords of a pline so you can then add your circle see last line in code.

Code removed see next page for final version

Okay mr BIGAL. I'll wait. Thanks again for helping me.

so this is the picture of what will the lisp routine will do. By selecting a closed polyline, the lisp will insert circles at its intersection including its end points. The user will define the diameter/radius of the circle. I also hope that this will be applicable to lines or series of lines. Thanks once again

Wow on line try this it is not tested no cad at moment

;original code by Jow Burke Autodesk forum
(defun c:circonpline ( / Y ptlist nlist pt rad)
(defun massoc (key alist / x nlist)
(foreach x alist
(if (eq key (car x))
(setq nlist (cons (cdr x) nlist))
)
)
(reverse nlist)
) ;end
(setq ptlist (massoc 10 (entget(car(entsel "pick pline")))))
(setq rad (getreal "\nEnter radius"))
(setq len (length ptlist))
(setq Y 0)

(repeat len
(setq pt (nth Y ptlist))
(Command "circle" pt Rad)
(setq Y (+ Y 1))
)
)
(c:circonpline)

Thanks mr BIGAL, but im confused, should I combine the first and second code you posted? Don't know the final code. sorry, just started learning.

Sorry just work from the 2nd code I will test shortly and make work found a much shorter way to do it.

thank you so much sir BIGAL, no need to say sorry.

I'll just wait.

Thanks for waiting code above works, removed 1st code post

yah, thanks BIGAL, the code worked. But can I ask you one more favor, I want that the lisp will function after typing in the commandline the command "circonpline". The thing is, when I load this lisp routine, it will automatically run the lisp routine. Can you help me again with this? Thanks again sir BIGAL.

mr BIGAL, I've already edited the lisp for what I want. Luckily I got it. Thanks again for the code.

regards

marko

We do something similar but in one go over multiple plines, this can be added pretty easy so only need 1 run let me know or have a go yourself using SSGET