TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: JohnK on December 12, 2003, 10:45:25 AM
-
AutoCAD day!! w00t!
But i dont have any custom apps here. I need some basic tools like Copyrotate, move rotate ...anything/everything. Can i ask you guys to post some quick tools?
-
Download express tools here ->http://www.staubeng.com/etv1-9.zip
-
I got those but thanx Craig
-
Those don't have the tools you need?
-
Sure, but i was looking for some general stuff like 'copyrotate' and 'midpoint' ... stuff like that. (basic stuff)
-
I got ya.
-
SE7EN...BASIC...INCONCEIVABLE :lol:
-
Hmm, a "gimme code" request? Sorry, we don't do requests. Please post what you have so far :lol:
-
Se7en, you do realize I held back any smart ass remarks. I left that for others... :lol:
By the way, that is INCONCEIVABLE *copy-paste*
-
WHAT?! ...smartass'! Ill give you code!
Ill just write some quick ones at lunch. Maybe ill share, but who knows?!
-
Where do you want it?
-
Dont care.
-
This is the type of apps i was looking for guys.
BTW, Thanks mark thats alot of code man. Illl put those to good use. Thank you.
;;;
;;; Move rotate
;;;
(defun c:mr ()
(while (not (setq ent (entsel "\nSelect entity: "))))
(vl-cmdf
"move"
ent
""
(setq pt1 (getpoint "\nSelect base point: "))
(setq pt2 (getpoint pt1 "\nSelect second point: "))
)
(vl-cmdf "rotate" ent "" pt2)
(princ)
)