将 工具 – 块编辑器 – 定义属性 时的文字转换为普通文字。用lisp的实现方式。
一般来说,带属性的块参照,炸开后,会在图面上生成属性定义。
原始的块参照
炸开后的效果
lisp代码
; ----------------------------------------------------------------------
; (Converts ATTDEF's default value to TEXT objects)
; ----------------------------------------------------------------------
(defun C:TAG2TXT ()
(setq sset (ssget '((0 . "ATTDEF"))))
(setq num (sslength sset) itm 0)
(while (< itm num)
(setq hnd (ssname sset itm))
(setq ent (entget hnd))
(setq new '((0 . "TEXT")))
(setq