New lisp

[Anonymous]

I wanted to thank all of you for helping me learn. Here is what I have been up to.

In Autocad 2007 now you can copy when you rotate.
I took this one step further. For our curb ramps we have alot of text to rotate and I made the command repeat so you can just copy lots of new text around a base point.

;-----------------------------------------------------------------------------
;***************************** mcr ******************************************
;*****************************************************************************
;-----------------------------------------------------------------------------
(defun c:mcr ( / base ref obj)
(setq obj (ssget))
(setq base (getpoint "\nPick base point: "))
(setq ref (getpoint "\Pick Ref Angle "))

(while T
(command "_rotate" obj "" base "c" "r" base ref pause)
(princ)
)
)

And here is my Incremental fillet. Im sure this has been done before but I couldnt find it on here. If anyone can improve upon it I would be greatful. I am still not understanding how to fix it so if you mix a line it wont error. If anybody can explain I would be thankful. Sorry this is from another post but I never put on the finished product. Thanks.

;-----------------------------------------------------------------------------
;***************************** FINC ******************************************
;*****************************************************************************
;-----------------------------------------------------------------------------
(Defun c:finc (/ inc start)
(setq start (getdist "\nSet Initial Value: ")
inc (getdist "\nSet Increment value: ")
); setq
(while T
(command ".fillet" "r" start ".fillet" pause pause)
(setq start (+ start inc))
); while
); defun