找到了，分解属性块的炸弹！能多选就好了！

贱人

炸开后能保持属性块的值！！ 问题： 1.能多选就好了 2.如果没选到对象或选错对象不要直接退出 3.如果UCS不是WORLD（比如ucs>3>任意三点）,文字的位置会变 程序在三楼

啵浪鼓

;支持多选,未选中不退出 ;炸开属性块，保留原有属性内文字
(defun c:xf(/)
(princ "Explode block-Retain attribute")
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(command "undo" "be")
(command "ucs" "w")
(setq attb nil)
(while (not (setq s(ssget '((0 . "INSERT"))))))
(setq i 0)
(while (< i (sslength s))
(setq s1 (ssname s i))
(setq attnam (entnext s1) da (entget attnam) k (cdr (assoc 1 da)))
(while (= "ATTRIB" (cdr (assoc 0 da)))
(setq p (cdr (assoc 10 da)))
(setq h (cdr (assoc 40 da)))
(setq attb (cons (list k h p) attb))
(if (/= "STAR" (cdr (assoc 2 da)))(command "text" p h 0 k))
(setq attnam (entnext attnam) da (entget attnam) k (cdr (assoc 1 da)))
);while-attrib
(command "explode" s1)
(setq ent (ssget "x" (list (cons 0 "ATTDEF"))))
(command "erase" ent "")
(setq i (+ i 1))
)
(princ (strcat "\nTotal " (rtos i 2 0) " exploded!"))
(command "undo" "e")
(setvar "osmode" os)
(princ)
)

alin

Express Tools 里有一个命令能做到

贱人

(defun c:ef()
(setq attb nil)
(setq name (car(entsel)))
(setq da (entget name))
(setq k (cdr(assoc 1 da)))
(setq attnam (entnext name) da (entget attnam) k (cdr (assoc 1 da)))
(setq j 0)
(while (= "ATTRIB" (cdr (assoc 0 da)))
(setq p (cdr (assoc 10 da)));(print p)
(setq h (cdr (assoc 40 da)));(print h)
(setq attb (cons (list k h p) attb))
(if (/= "STAR" (cdr (assoc 2 da)))(command "text" p h 0 k))
(setq attnam (entnext attnam) da (entget attnam) k (cdr (assoc 1 da)))
(setq j (+ j 1))
);while-attrib
(command "explode" name)
(setq ent (ssget "x" (list (cons 0 "ATTDEF"))))
(command "erase" ent "")
)

Ea

在我的网U中有一个

xyp1964

为什么要“分解属性块”？再编辑就麻烦了！

贱人

xyp1964发表于2005-6-5 10:02:00为什么要“分解属性块”？再编辑就麻烦了！

做图面清理时用的着啊，从别人哪里拿来的底图，往往颜色很乱，属性块的颜色改起来特别麻烦，所以要炸开 另外，麻烦斑竹，我不想加载(load "xyp_lib");，这程序功能太强大，我用不上

xyp1964

贱人发表于2005-6-5 12:43:00做图面清理时用的着啊，从别人哪里拿来的底图，往往颜色很乱，属性块的颜色改起来特别麻烦，所以要炸开



另外，麻烦斑竹，我不想加载(load \"xyp_lib\");，这程序功能太强大，我用不上。

那也用不着炸开。块编辑可以个别的修改。

不想加载(load "xyp_lib")，那就别加载！

hhc

支持楼上的说法，炸开块修改不好。上传一个修改图块颜色的工具，加载后命令名为：gbc