program to insert blocks on polyline verticies
program to insert blocks on polyline verticies
(OP)
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?





RE: program to insert blocks on polyline verticies
http://forums.augi.com/showthread.php?t=39710
h
http
(VerticesBlk)
RE: program to insert blocks on polyline verticies
; 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))
)
)
RE: program to insert blocks on polyline verticies
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.