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

最新推荐文章于 2024-03-25 10:46:12 发布

原创

最新推荐文章于 2024-03-25 10:46:12 发布 · 6.4k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#CAD #AutoCAD开发 #Lisp

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

将工具 – 块编辑器 – 定义属性时的文字转换为普通文字。用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 do