Manipulating dimension values

[Lee Mac]

Not a problem

(defun c:MacDim (/ ss num)
  (vl-load-com)
  (if (and (setq ss (ssget '((0 . "DIMENSION"))))
           (setq num (getreal "\nSpecify Alteration: ")))
    (mapcar
      (function
        (lambda (x)
          (vla-put-ExtensionLineColor x 1) ;; <<-- 1 = Red
            (vla-put-DimensionLineColor x 1)
          (vla-put-TextOverride x
            (strcat
              (vla-get-TextPrefix x)
                (rtos (+ (vla-get-Measurement x) num)
                   (vla-get-UnitsFormat x)
                      (vla-get-PrimaryUnitsPrecision x))
                  (vla-get-TextSuffix x)))))
      (mapcar 'vlax-ename->vla-object
        (vl-remove-if 'listp
          (mapcar 'cadr (ssnamex ss))))))
  (princ))

[silverfish]

Thanks Lee,
What I'm looking for is to change the dim text colour not the extension lines as I have set the dim style up to turn off all extension lines, leaders and arrow heads so all you see is this "25x3000" which is what I want changed.

Many Thank

silverfish

[Lee Mac]

Thanks Lee,
What I'm looking for is to change the dim text colour not the extension lines as I have set the dim style up to turn off all extension lines, leaders and arrow heads so all you see is this "25x3000" which is what I want changed.

Many Thank

silverfish

Sorry, I wasn't exactly sure what you wanted. - Its not hard to change it, no worries

[Lee Mac]

Here ya go:

(defun c:MacDim (/ ss num)
  (vl-load-com)
  (if (and (setq ss (ssget '((0 . "DIMENSION"))))
           (setq num (getreal "\nSpecify Alteration: ")))
    (mapcar
      (function
        (lambda (x)
          (vla-put-TextColor x 1) ; <<-- 1 = Red
            (vla-put-TextOverride x
              (strcat
                (vla-get-TextPrefix x)
                  (rtos (+ (vla-get-Measurement x) num)
                    (vla-get-UnitsFormat x)
                      (vla-get-PrimaryUnitsPrecision x))
                    (vla-get-TextSuffix x)))))
      (mapcar 'vlax-ename->vla-object
        (vl-remove-if 'listp
          (mapcar 'cadr (ssnamex ss))))))
  (princ))

[silverfish]

Thanks again Lee, works perfectly!
Perhaps you can answer this question I have.
When doing the dimension is it possible to have the prefix above the line and the dimension value below the line.

many thanks

[Lee Mac]

Use: "\X" like this:

(defun c:MacDim (/ ss num)
  (vl-load-com)
  (if (and (setq ss (ssget '((0 . "DIMENSION"))))
           (setq num (getreal "\nSpecify Alteration: ")))
    (mapcar
      (function
        (lambda (x)
          (vla-put-TextColor x 1) ; <<-- 1 = Red
            (vla-put-TextOverride x
              (strcat
                (vla-get-TextPrefix x) "\\X"
                  (rtos (+ (vla-get-Measurement x) num)
                    (vla-get-UnitsFormat x)
                      (vla-get-PrimaryUnitsPrecision x))
                    (vla-get-TextSuffix x)))))
      (mapcar 'vlax-ename->vla-object
        (vl-remove-if 'listp
          (mapcar 'cadr (ssnamex ss))))))
  (princ))

[silverfish]

You are truly a wizzard at this Lee! CHEERS

Every time you help me on this I find I have another request......;-)
Is it possible to move the prefix to a layer named "FPS SPRINKLER DIA" and the dimension value to a layer named "FPS SPRINKLER LIST"

Many thanks
Bruce

[Lee Mac]

You are truly a wizzard at this Lee! CHEERS

Every time you help me on this I find I have another request......;-)
Is it possible to move the prefix to a layer named "FPS SPRINKLER DIA" and the dimension value to a layer named "FPS SPRINKLER LIST"

Many thanks
Bruce

The dimension is a single entity, and on its own layer, so without making the prefix and dimension strings out of separate entities, I don't think this is possible.

[silverfish]

Thanks Lee. Much appreciated.

bruce

[Ryder]

Hi Guys

I am too in the fire protection industry and have the same query as Bruce.
I am well trained in Autocad but unfortunately my knowledge with regards to programming is very limited. Could you perhaps walk me through loading a LISP?

Lee im on your website amd i am attempting to do it.

Thanks In advance