超快CAD图形→Excl方法

669423907

删除未选择对象（论坛上大师的）
(defun c:sd()
(princ"\n选择要保留对象:")
(setq SS(ssget)
ss1(ssget"X"))
(command"erase"ss1"r"ss""zoom _e))
线宽关（自己拼的）
(defun C:vb()(command"lwdisplay""y")(princ))
全屏
zoom _e
全选
ai_selall
复制
copyclip
退回5步
_.undo 5