;输入g，镜像直接删除原对象 (defun c:g ( ) (princ "\n镜像删除原对象：选择图形") (setq ss (ssget)) (command "mirror" ss "" pause pause"y" ) (princ) ) 将以上代码复制到文本文档后把文本扩展名改为lsp，从CAD工具菜单加载应用程序，选择这个文件，输入“g”即可实现镜像默认删除原对象。当然你也可以降‘’(defun c:g ( )‘’中的‘’g‘’改成任何字母。
;输入g，镜像直接删除原对象
(defun c:g ( )
(princ "\n镜像删除原对象：选择图形")
(setq ss (ssget))
(command "mirror" ss "" pause pause"y" )
(princ)
)
将以上代码复制到文本文档后把文本扩展名改为lsp，从CAD工具菜单加载应用程序，选择这个文件，输入“g”即可实现镜像默认删除原对象。当然你也可以降‘’(defun c:g ( )‘’中的‘’g‘’改成任何字母。
