填充标注

↘觉醒 · 发表于 2019-1-10 17:22

本帖最后由 ↘觉醒于 2019-1-13 16:57 编辑

根据填充样式名称标注引出名称，这个好实现不？期待大神指教。

start4444 · 发表于 2019-1-11 14:06

(defun c:tt5 (/ p1 tcm)
(setq ent (entsel "\n选择填充对象<退出>:") tcm (cdr (assoc 2 (entget (car ent)))) p1 (getpoint"\n选择文字位置：" (cadr ent)))
(command "LEADER" "non" (cadr ent) "non" p1 "" tcm "")
(princ)
)

试试看

↘觉醒 · 发表于 2019-1-12 21:39

start4444 发表于 2019-1-11 14:06
(defun c:tt5 (/ p1 tcm)
(setq ent (entsel "\n选择填充对象:") tcm (cdr (assoc 2 (entget (car ent)))) ...

谢谢，牛逼的程序。

账号		自动登录	找回密码
密码			注册

[提问] 填充标注

本帖子中包含更多资源

评分