Topic: Change select all to select simple

[amc.dicsac]

Hi, how are you:

I have the following lisp that changes the height of all the texts, that are within the block. The problem is that it makes a total selection, I would like to change to a simple selection using ssget, I hope they can help me thanks.

Code - Auto/Visual Lisp: [Select]

1. (defun ChangeAllTextAltura (Doc Alt / IsLo tempObjType)
2. (vlax-for Blk (vla-get-Blocks Doc)
3.  (setq IsLo (if (= (vla-get-IsLayout Blk) :vlax-true) T nil))
4.  (if (= (vla-get-IsXref Blk) :vlax-false)
5.   (vlax-for Obj Blk
6.    (setq tempObjType (vla-get-ObjectName Obj))
7.    (cond
8.     ((vl-position tempObjType '("AcDbText" "AcDbMText" "AcDbAttributeDefinition"))
9.      (vla-put-Height Obj Alt)
10.      (if (not IsLo)
11.       (vla-put-Layer Obj "0")
12.      )
13.     )
14.     ((wcmatch tempObjType "AcDb*Dimension")
15.      (vla-put-Height Obj Alt)
16.     )
17.     ((= tempObjType "AcDbBlockReference")
18.      (foreach Att (vlax-invoke Obj 'GetAttributes)
19.       (vla-put-Height Att Alt)
20.      )
21.      (foreach Att (vlax-invoke Obj 'GetConstantAttributes)
22.       (vla-put-Height Att Alt)
23.      )
24.     )
25.    )
26.   )
27.  )
28. )
29. )

Code - Auto/Visual Lisp: [Select]

1. (defun c:TH ()
2. (vl-load-com)
3. ([font=Verdana][size=2px]ChangeAllTextAltura [/size][/font] (vla-get-ActiveDocument (vlax-get-Acad-Object)) 0.15)
4. (command "regenall")
5. (princ))

[Chris]

I dont think it will be that simple.  to select attributes within a block, you'd either have to explode the block or find some way to pass the cooridinate of selection point into the program and somehow associate the point with the attribute within the block.

[BIGAL]

If I understand right you want to change say 1 attribute text, so just use bedit change the text, then attsync the blocks.

[Grrr1337]

You'll have to modify the subfunction a bit:

Code - Auto/Visual Lisp: [Select]

1. ; (ChangeAllTextAltura (vla-get-ActiveDocument (vlax-get-Acad-Object)) 0.15 '("MyBlock1" "MyBlock2" "MyBlock3"))
2. (defun ChangeAllTextAltura (Doc Alt ForBlocks / IsLo tempObjType)
3.   (vlax-for Blk (vla-get-Blocks Doc)
4.     (cond
5.       ( (eq (vla-get-IsXref Blk) :vlax-true) )
6.       ( (not (member (vla-get-Name Blk) ForBlocks)) )
7.       (T (setq IsLo (= (vla-get-IsLayout Blk) :vlax-true))
8.         (vlax-for Obj Blk
9.           (setq tempObjType (vla-get-ObjectName Obj))
10.           (cond
11.             ( (vl-position tempObjType '("AcDbText" "AcDbMText" "AcDbAttributeDefinition"))
12.               (vla-put-Height Obj Alt)
13.               (if (not IsLo)
14.                 (vla-put-Layer Obj "0")
15.               )
16.             )
17.             ( (wcmatch tempObjType "AcDb*Dimension")
18.               (vla-put-Height Obj Alt)
19.             )
20.             ( (= tempObjType "AcDbBlockReference")
21.               (foreach Att (append (vlax-invoke Obj 'GetAttributes) (vlax-invoke Obj 'GetConstantAttributes))
22.                 (vla-put-Height Att Alt)
23.               )
24.             )
25.           )
26.         )
27.       )
28.     )
29.   )
30. )