图层与劳动成果保护 dwg cad
文件大小：
2k
资源说明：图层与劳动成果保护
(defun c:tchb ()
;;;用新的组码值替换原值
(defun dxfupd (ent dxfcode newval / elst newlst)
(setq elst (entget ent))
(setq newlst (append elst (list (cons dxfcode newval))))
(entmod newlst)
(entupd ent)
)
本源码包内暂不包含可直接显示的源代码文件，请下载源码包。
English
