Burst block with attributes +
could somebody help me with writing a lisp , I found one lisp with bursting I tried to finish it but I am not master , probably I am doing something wrong :(defun C:XXP ( / ssAll drwordr ss) (setq ssAll (ssget "X" '((0 . "INSERT"))) drwordr (getvar "draworderctl") ) (setvar "draworderctl" 0);supress warnings (sssetfirst nil ssAll) ;makes ssAll both gripped and selected.(c:burst) (setvar "draworderctl" drwordr) (setq ss (ssget "x" '((0 . "*TEXT"))) (c:group));end defun Why not just read all the attribute values and convert to Mtext ? Then erase block. The only hiccup is the mtext would be in creation order but you could get around that. In this example you will understand why
22.dwg I have to work after that with that text , , I dont need to delete nothing here , everything should stay at his place Do you want the text to be basicly a copy of what is in the block and at the same location ? The simple way is to COPYCLIP and paste it back in move it out of the way burst it move the text back and then erase whats left. The other way is a lisp reading the attributes and just writings as text. Can you paste an image showing before and after result, its no good writing something and its not what you want.
页:
[1]