Originally Posted by
MarceloR7
Thanks for the reply. I ran the program and even though it's been modified seems to be working the same way. I want to make 2 modifications to it. I want to be able to pick the object first (which i forgot to mention in my first post), and only select it once, and then for it to ask for the block and distance continuously. That way, I can insert all the blocks I need at once by using a script, which is an easier way for me since I'm more familiar with it. I see with your suggestion you intended to make the second modification I wanted, but it didn't seem to work.
see if it works
Code:
;| PUT.LSP ver. 2.0 (c) 2005 Tee Square Graphics
Improved version of PUT.LSP originally published in 1998. This
version avoids the use of the native MEASURE command, using instead
the curve functions of Visual LISP (VLISP).
PUT places a single block insertion a user-specified distance from
the selected end of a non-closed AutoCAD object (i.e., ARC, LINE,
POLYLINE, LWPOLYLINE, SPLINE).
|;
(defun C:PUT (/ os ce bm blk ent obj ppt dst ept ref len ipt par slp ang)
(command "_.undo" "_be")
(setq os (getvar "osmode")
ce (getvar "cmdecho")
bm (getvar "blipmode")
blk ""
);;setq
(if (not bk)(setq bk ""))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(while (not (setq ent (entsel "\nSelect object near reference end: "))))
(while
(and
(not (tblsearch "block" blk))
(not (findfile (strcat blk ".dwg")))
);;and
(setq blk (getstring (strcat "\nBlock to use <" bk ">: ")))
(if (> blk "")(setq bk blk)(setq blk bk))
);;while
(while
(setq obj (car ent)
ppt (osnap (cadr ent) "nea")
dst (getdist "\nDistance to Block Insertion: ")
ept (vlax-curve-getEndPoint obj)
ref (vlax-curve-getDistAtPoint obj ppt)
len (vlax-curve-getDistAtPoint obj ept)
);;setq
(if (> ref (/ len 2.0))
(setq dst (- len dst))
);;setq
(setq ipt (vlax-curve-getPointAtDist obj dst)
par (vlax-curve-getParamAtPoint obj ipt)
slp (vlax-curve-getFirstDeriv obj par)
ang (atan (/ (cadr slp)(car slp)))
);;setq
(entmake
(list
'(0 . "INSERT")
(cons 2 blk)
(cons 10 ipt)
(cons 50 ang)
);;list
);;entmake
)
(setvar "osmode" os)
(setvar "cmdecho" ce)
(setvar "blipmode" bm)
(command "_.undo" "_e")
(princ)
)
(alert
(strcat
"PUT.LSP ver. 2.0 (c) 2005 Tee Square Graphics"
"\n\n Type PUT to begin."
)
)