标注样式的替换lisp
 

标注样式的替换lisp
www.dimcax.com
标注样式的替换lisp
大家新年好！新的一年祝大家心想事成！
我想请大家帮我写一个lisp，就是我一个档案里有三个标注样式unit1 unit2 unit3 ，我输入u1选中尺寸就变成unit1样式，我输入u2选中尺寸就变成unit2样式，我输入u3选中尺寸就变成unit3样式，谢谢！

(defun c:changedim(/)
(print "\n 选择要更改样式的标注：")
(setq aaaa(entsel))
(setq nnnn(getstring "\n 输入新的标注样式："))
(setq aaaa(entget aaaa))
(setq aaaa(subst (cons 3 nnnn) (assoc 3 aaaa) aaaa))
(entmod aaaa)
)
------------------------------------------
;将上述程序段保存为changedim.lsp，并加载
;在命令行输入命令：changedim
;即可
progress every day!!!

应该是的，修改图元数据表来完成