Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

How to change attribute text size of multiple blocks?

edited May 30 in LISP Codes

Hi.
I need to change the text size of an attribute in a multiple selected blocks.
the idea is that I select multiple blocks that all of them have an attribute with the name "ORDER", and I need to assign a new text size to that attribute.
is it possible to do it with lsp?
thanks,
Ari.

EDIT:
I've found a lsp that lee mac wrote for changing attributes width and I changed it to change the text size, but this lsp change all the attributes in a drawing,.
1. it doesn't allow to set the new required size.
2. it doesn't allow to select a group of blocks - the change is for all the blocks in the drawing.
3. it doesn't allow to select a specific attribute (Attribute Tag).

(defun c:attw2 ( / e i s x )
(if (setq s (ssget "_X" '((0 . "INSERT") (66 . 1))))
(repeat (setq i (sslength s))
(setq e (entnext (ssname s (setq i (1- i))))
x (entget e)
)
(while (= "ATTRIB" (cdr (assoc 0 x)))
(or (equal 1.0 (cdr (assoc 40 x)) 1e-8)
(entmod (subst '(40 . 50.0) (assoc 40 x) x))
)
(setq e (entnext e)
x (entget e)
)
)
)
)
(princ)
)

can some one help me with this 3 issues:
1. to set the new required text height (size)?
2. to do this change to a selected group of blocks and not all the blocks in the drawing?
3. to do this change to a specific attribute (Attribute Tag).
thanks again,
Ari.

Answers

  • edited May 30

    This should help as example pick a attribute

    (vla-put-height (vlax-ename->vla-object (car (nentsel))) 25)

    I would pick a attribute using Nentsel this will give you tag name and going backwards a bit block name, then do the ssget. will need a foreach, this is only part there better with a real dwg to test on

    (foreach att (vlax-invoke (setq obj (vlax-ename->vla-object (ssname SS (setq x (- x 1) ))) 'getattributes)
    (if (= tagname (strcase (vla-get-tagstring att)))
    (vla-put-height (vlax-ename->vla-object obj ht))
    )

    image.png
    619 x 488 - 16K
  • Hi Alan.
    I've tried your code but I get an error massage: malformed list on input at [read]
    I've attached a drawing with 3 blocks inserted.
    the idea is to select just 2 of them and then change the tag name "ORDER" text size to 36 in stand of 24,for example.

    by the way, I also found a way to change the rotation of those tags:
    (while (= "ATTRIB" (cdr (assoc 0 x)))
    (or (equal 1.0 (cdr (assoc 50 x)) 1e-8)
    (entmod (subst '(50 . 0.0) (assoc 50 x) x))

    is there a way to include this in the lsp so it will change the text size and the text rotation?...
    thanks,
    Ari.

    dwg
    dwg
    Drawing1.dwg
    25K
  • edited May 30

    @ALANH
    have a look on the MESSAGE 2 OF 8 in this discussion:
    https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/change-text-size-in-block-with-attributes/td-p/992408

    the lisp there is very close to what I needed...
    the only major thing missing there is the ability to select a group of blocks,but other then that it is perfect.
    and the issue of selecting a group of blocks can be solved by assigning those blocks to a different layer and choose this layer in the lisp.
    Ari.

  • Try this has some options more can be added.

    (defun c:chatht ( / bent bent2 pt lay tagname ss bname x att)

    (setq bent (nentsel "\Pick attribute"))
    (setq pt (cadr bent))

    (setq bent (entget (car bent)))
    (setq lay (cdr (assoc 8 bent)))
    (setq tagname (cdr (assoc 2 bent)))

    (setq bent2 (ssname (ssget pt ) 0))
    (setq bname (cdr (assoc 2 (entget bent2))))

    (setq ss (ssget (list (cons 0 "INSERT") (cons 2 bname))))

    (setq ht (getreal "\nEnter text height "))

    (repeat (setq x (sslength ss))
    (foreach att (vlax-invoke (setq obj (vlax-ename->vla-object (ssname SS (setq x (- x 1) )))) 'getattributes)
    (if (= tagname (strcase (vla-get-tagstring att)))
    (vla-put-height att ht)
    )
    )
    )

    (princ)
    )

    (c:chatht)

  • edited May 31

    @ALANH Hi And thanks for the reply.
    I've tested your lsp.
    it allow to pick only one attribute.
    the entities selection dose allow for crossing selection window (multiple selection),but the selection it self get only the block that belong to the attribute that was selected at the first step.

    is it possible to create a lisp that will:
    1. prompt the user to select entities (single or multi selection).
    2. prompt the user to enter the text size.
    3. prompt the user to enter the text rotation.
    4. create a loop that will change those parameters only in an attribute with a pre-determined tag name that it is set in the lisp (to make
    things more simple there is no need to get it from the user - its a single known tag name and it can be set in the lisp).

    thanks,
    Ari.

Sign In or Register to comment.
Origami
Origami is the Japanese word for paper folding. ORI means to fold and KAMI means paper and involves the creation of paper forms usually entirely by folding.

Powered by VanillaForums, Designed by Steam