Editing multiple attributes with the same tag in a single block.

[Reu]

Help anyone?

 

http://www.theswamp.org/index.php?topic=44203.0

 

Thanks,

Reuben Shilling

[Reu]

Solved.

 

http://www.theswamp.org/index.php?topic=44203.new#new

[BIGAL]

Another solution you can edit a blocks attributes by its creation position and ignore all together the attribute tag method of changing. I started with this method in VBA Attrib(x) where x is the order number, I now have a VL version nice thing here is you can change any or all with control.

 

(vl-load-com)
(setq y 1)
(setq ss1 (car (entsel)))
(setq bname (vla-get-name(vlax-ename->vla-object SS1))) 
(setq x (getint "\nEnter line no to pick")) ; change this line in block
(SETQ newstrblank ".")
(foreach att (vlax-invoke (vlax-ename->vla-object SS1) 'getattributes)
   (if (= y x)
   (vla-put-textstring att newstrblank)
   )
   )
   (setq y (+ Y 1))
)