图层与劳动成果保护 (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) )