Burst block with attributes +

sergiu_ciuhnenc · 发表于 2022-7-5 19:50:25

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 :

copy

(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

BIGAL · 发表于 2022-7-5 20:19:10

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.

sergiu_ciuhnenc · 发表于 2022-7-5 20:29:40

In this example you will understand why
22.dwg

sergiu_ciuhnenc · 发表于 2022-7-5 20:47:31

I have to work after that with that text , , I dont need to delete nothing here , everything should stay at his place

BIGAL · 发表于 2022-7-5 20:54:23

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.

[编程交流] Burst block with attributes +

发表回复

精选推荐