属性定义转换普通文字的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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值