Now THAT is awesome!
Presets are definitely the way to go.
Thanks so very much!!
(I misunderstood your original post...)
I thought you were showing me how to do an override...
Why not use 'dimedit'?
Code:(defun c:wr (/ a b) (if c1 () (setq c1 "%%c<>\"\\P(Typ.)") ) (princ "\n Overwrite with: ") (princ c1) (princ " ? ") (setq b (getstring t)) (if (= b "") (setq b c1) ) (setq c1 b) (princ "\nSelect Dimensions to overwrite ") (setq a (ssget '((0 . "DIMENSION")))) (if (not (eq a nil)) (command "._DimEdit" "_N" b a "") ) (princ) )
Lee and everyone...
Thanks so much for the instruction and the different takes on how to do something!!
You guys are all very appreciated!
Registered forum members do not see this ad.
IMO the Properties Palette is still one of the most powerful things ADesk has ever made for ACad. If not the most powerful. That's not to say you can't get something which is even more efficient for your specific scenario (like these preset commands).
Knowledge is proportional to experience, but wisdom is inversely proportional to ego!
My little bit of "wisdom": Hind-sight is useless, unless used to improve the next forethought!