Hi All,
I want to make a lisp program to add prefix/suffix to all attributes of a selected block.
Say, what I want to add is "(W1)".
If the block has two attributes and if the attributes have their values 12134 and 23564, it should become 12134 (W1) and 23564 (W1)
This process has to be looped so as to enable editing of multiple blocks one after the other.
So far I have this;
(defun c:w1()
(setq n 1)
(while
(> n 0)
(setq ent (car (entsel "Select Block:")))
;This is where I am stuck. This is where I need to edit the attributes
);While
);Function
Please help...