Dear all,
I a new user of autocad.
I search something on internet and found the following script.
How can I import to my autocad and use it?
Another thing is,
I want to know something about ROTATE~
I found that when I use rotate common, after I choose the based point. the routine of the starting point will be on 15 degree everytime.
Can I rotate that from the point that I want?
Look forward to received any solution~
Thank you~
Tammy
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;* Rotate Multiple
;* Rotates many entities around their respective basepoints
;* allows selection by AUTOCAD selection sets or SSX.
;* Written by David Husch, January 1991
(defun c:rotmult ()
(prompt "Select Entities to Rotate, <ENTER> for SSX.")
(setq ss (ssget))
(if (not ss) (setq ss (ssx)))
(setq num (sslength ss))
(setq x 0)
(if ss
(if (setq ang (getreal "Enter Rotation Angle: "))
(repeat num
(setq ename (ssname ss x))
(setq elist (entget ename))
(setq pnt (cdr(assoc 10 elist)))
(command "Rotate" ename "" pnt ang)
(setq x (1+ x))
)
)
)
)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~