change block text size...help

[leonucadomi]

hello friends:

I have a routine to change the texts in these blocks.

The problem is that I have to click on each one of them.

I would like to make a selection in the window

 

and change text size to 20.

any recommendation is welcome.

WELD.dwg

[EnM4st3r]

can you post the routine?

[leonucadomi]

sure 

(defun C:test ( / e)
(setq e (vlax-ename->vla-object (car (nentsel "\n Select an attribute to change:"))))
(vla-put-height e 20)
(princ)
)

 

[EnM4st3r]

you could cycle trough the attributes with entnext until you have all attributes then appl the changes to them
 

[pkenewell]

Something like this? Quickly written and tested and no minimal error handling: EDIT: Added an option to enter the text height or default to 20.

(defun c:foo (/ at dc ht i n obj ss)
  (vl-load-com)
  (vla-startundomark (setq dc (vla-get-activedocument (vlax-get-acad-object))))
  (if (and (setq ss (ssget '((0 . "INSERT"))))
           (setq ht (getreal "\nEnter Height Value <20.0>: ")
                 ht (if ht ht 20.0)
           )
      )
     (repeat (setq i (sslength ss))
        (setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i))))
              at  (vla-getattributes obj)
              at  (if at (vlax-variant-value  at))
              n 0
        )
        (while (and at (>= (vlax-safearray-get-u-bound at 1) n))
           (vla-put-height (vlax-safearray-get-element at n) ht)
           (setq n (1+ n))
        )
     )
  )
  (vla-endundomark dc)
  (princ)
)

 

Edited December 13, 2023 by pkenewell
Corrections

[leonucadomi]

thanks

[pkenewell]

18 minutes ago, leonucadomi said:

thanks

@leonucadomi Just did an update for corrections. Please re-copy and try it.