program to insert blocks on polyline verticies

[IFRs]

I'm looking for an editable program LISP (preferably) or VB that will place a block at every vertex of selected polylines. Anything out there?

 

[CarlB]

Here are some:

http://forums.augi.com/showthread.php?t=39710

http://forums.augi.com/showpost.php?p=1099803&postcount=5

http://www.cadforum.cz/cadforum_en/download.asp?cat=33

(VerticesBlk)

 

[IFRs]

Thanks. I should have Googled before posting. I got this one:

; Insert the block Weld at each polyline vertex

(defun c:wb ()

(setq
plobj (car (entsel "\nSelect Polyline: "))
inc 0
)

(while (<= inc (vlax-curve-getEndParam plobj))
(command
"_.insert"
"weld"
(vlax-curve-getPointAtParam plobj inc)
"" "" ""
)

(setq inc (1+ inc))
)

)

 

[CarlB]

That appears to do the job with a minimum of code.
You might want the code to disable then re-enable osnaps; in some cases/zoom levels the insert point might go to wrong location.
If a UCS is active, that too could caue errors.