文件名称：图层与劳动成果保护 dwg cad
文件大小：2KB
文件格式：LSP
更新时间：2014-09-11 09:51:02
保护
图层与劳动成果保护 (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) )