属性定义转换普通文字的Lisp代码

最新推荐文章于 2026-02-21 15:23:11 发布

原创最新推荐文章于 2026-02-21 15:23:11 发布 · 6.8k 阅读

3 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#CAD #AutoCAD开发 #Lisp

收录于

CAD开发专栏收录该内容

14 篇文章

订阅专栏

本文介绍如何使用Lisp代码将CAD中的属性定义转换为普通文字。通过炸开带属性的块参照，然后利用Lisp实现转换，详细展示了原始块参照和炸开后的效果，并提供了属性定义在块编辑器中的界面及位置说明。

将工具 – 块编辑器 – 定义属性时的文字转换为普通文字。用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 new (append new (list (cons 1 (cdr (assoc 2 ent))))))
    (setq dolst (list 7 8 10 11 39 40 41 50 51 62 71 72 73))
    (foreach grp dolst
      (setq addto (assoc grp ent))
      (if (/= addto nil)
        (setq new (append new (list (assoc grp ent))))
      )
    )
    (entdel hnd)
    (entmake new)
    (setq itm (1+ itm))
  )
  (princ)
)

附，定义属性的界面和其在块编辑器中的位置