如何删除图层?
用这个删不了图层 (vla-delete 图层对象) (DEFUN C:SCSD()(SETQ TC (CDR (ASSOC 8 (ENTGET(CAR(ENTSEL"选择图层对象:" ))))))
(SETQ SS (SSGET "X" (LIST (CONS 8 TC))))
(COMMAND "ERASE" SS "")
(vla-Delete (vlax-ename->vla-object (tblobjname "layer" tc)))
)
;模拟CASS的SCSD功能
(vla-Delete (vlax-ename->vla-object (tblobjname "layer" 图层名称))
前提是已删除了该图层上的所有对象 (command "LAYDEL" "N" "图层名称" "" "Y" )
页:
[1]