topic Re: Using expression to add amount to a linear dimension? in AutoCAD Forum

topic Re: Using expression to add amount to a linear dimension? in AutoCAD Forum https://forums.autodesk.com/t5/autocad-forum/using-expression-to-add-amount-to-a-linear-dimension/m-p/5603238#M332071 <BLOCKQUOTE><HR />@Anonymous wrote: ....want to quickly add a set amount, say 50mm to every dimension. ....<HR /></BLOCKQUOTE> I confess to being really curious as to why someone would want to do that -- seems kind of dangerous -- but....   Lightly tested, for that specific value, and assuming millimeters are the drawing unit:   (defun C:Plus50 (/ dimss n dimdata)   ; = override linear Dimension content with measured length Plus 50 drawing units   (if (setq dimss (ssget ":L" '((0 . "DIMENSION"))))     (repeat (setq n (sslength dimss))       (setq dimdata (entget (ssname dimss (setq n (1- n)))))       (if (wcmatch (substr (cdr (assoc 100 (reverse dimdata))) 5 5) "Align,Rotat")         ; linear types only [not Angular, Ordinate, Radius, Diameter, etc.]<--- allow Ordinate/Radius/Diameter?         (entmod ; override           (subst             (cons 1 (rtos (+ (cdr (assoc 42 dimdata)) 50))); new text override             (assoc 1 dimdata); original text content ["" if default]             dimdata           ); subst         ); entmod       ); if     ); repeat   ); if ); defun   It could be made more generic, to ask the User for the amount they want to add, rather than having that built in, but first see whether it works. Wed, 22 Apr 2015 15:27:07 GMT Kent1Cooper 2015-04-22T15:27:07Z