通信人家园

标题: CAD解锁小程序（把下列内容保存到记事本，修改后缀为LSp文件加载即可） [查看完整版帖子] [打印本页]

时间: 2020-4-24 15:42

作者: Eloi 标题: CAD解锁小程序（把下列内容保存到记事本，修改后缀为LSp文件加载即可）

(defun c:unlk (/ en ent)
(setq en (entsel "\n请选择图形:"))
(if en
(if (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en)))))))
"INSERT"
)
(progn
(setq ent (entmakex
(list '(0 . "INSERT")
(assoc 2 ent)
(assoc 10 ent)
)
)
)
(command "_.explode" (entlast))
(entdel en)
)
)
)
(princ "\nOK")
(princ)
)

时间: 2020-4-25 16:24

作者: fab

这是解什么？

时间: 2022-10-24 10:09

作者: 123456XS

通信人家园 (https://www.txrjy.com/)