超快CAD图形→Excl方法

删除未选择对象（论坛上大师的）
(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

谢谢分享。。。。。

感謝您~

不好意思 请问楼主～
这程式该怎麽使？

我已经载入至autocad
指令输入：sd
选择图形

指令: sd
選擇要保留對象:
選取物件: 指定對角點: 找到 2 個
選取物件:
erase
選取物件:   找到 2 個

選取物件: r
移除物件:   找到 2 個， 2 已移除，共 0

移除物件:
指令:
指令:
指令: nil

接下来？

这个还不错

牛人

谢谢了 下来学习

牛人啊，膜拜

好东西，拿