Dimedit

I have some drawing, but someone modify textdim. I usually "dimedit" > "home" for change textdim is changed become actual value.

Who is faster to do it ?

Thank all !

Here is one that my teacher found online and used on us in class to correct any dims that people modified. It corrects any dimoverrides automatically.

;|TIP1149.LSP:     ORG.LSP     Original Dimension     (c)1995, D.A. Longhenry

Original Dims.LSP

That seems a bit overkill with very little, if no, error trapping. There is no need to change any SystemVariables and furthermore, those that are changed in the code won't be reset if the user hits Esc at the prompt (a likely scenario considering the frequency with which most users punch the Esc key). Also, there is no check for a valid SelectionSet and no SelectionSet filter either.

I know its not your code, I just wanted to point out the above points.

I would approach it this way:

(defun c:test ( / ss i e )
 (if (setq ss (ssget "_:L" '((0 . "*DIMENSION") (1 . "*?*"))))
   (repeat (setq i (sslength ss))
     (setq e (entget (ssname ss (setq i (1- i)))))
     (entmod (subst (cons 1 "") (assoc 1 e) e))
   )
 )
 (princ)
)

Cool Lee

simple-sweet-and to the point

~Greg

Thank all

thank cadtutor very much !