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/5603491#M332074 <BLOCKQUOTE>....  Another advantage of that approach is that if you need to change the sizes of things [column spacings, etc.], and you do that by Stretching, the text content of these Dimensions will update accordingly, which it will not if overridden with something like the Plus50 routine.</BLOCKQUOTE>    Apropos of the issue of actual vs. overage size, if there's room within your Dimensions for longer text content, try this approach:   (defun C:Plus50 (/ dimss n dimobj)   ; = override linear Dimension content with measured length Plus 50 drawing units   (if (setq dimss (ssget ":L" '((0 . "DIMENSION"))))     (repeat (setq n (sslength dimss))       (setq dimobj (vlax-ename->vla-object (ssname dimss (setq n (1- n)))))       (if (wcmatch (substr (vla-get-ObjectName dimobj) 5 5) "Align,Rotat")         ; linear types [not Angular, Ordinate, Radius, Diameter, etc.]<--- allow some of those?         (vla-put-TextOverride           dimobj           (strcat ; new text override             "<> [+ trim allowance = " ; <> = actual measurement             (rtos (+ (vla-get-Measurement dimobj) 50))             "]"           ); strcat         ); vla-put-...       ); if     ); repeat   ); if ); defun   That would at least update the "real" Dimension if Stretched, though to also update the trim-allowance dimension you'd still need to run the routine again. Wed, 22 Apr 2015 17:28:08 GMT Kent1Cooper 2015-04-22T17:28:08Z