浏览:次 2018-04-02 10:36
(defun c:qx () (setvar "cmdecho" 0) (command "layon") (setvar "cmdecho" 1) (prin1) ) ;;打开所有图层
(defun c:ff () (setvar "cmdecho" 0) (command "layoff") (setvar "cmdecho" 1) (prin1) ) ;;选择需要关闭的图层
(defun c:qw () (setvar "cmdecho" 0) (command "layiso") (setvar "cmdecho" 1) (prin1) ) ;;选择需要隔离的图层
(defun c:tc () (setvar "cmdecho" 0) (command "laymcur") (setvar "cmdecho" 1) (prin1) ) ;;选择对象为当前图层
;复制到记事本,以【.lsp】为后缀命名,打开CAD,autolisp加载后,就可以使用快捷键命令了。
例:命令:【QX】打开所有图层
其他网友给出的参考答案:
需要加载应用程序需要加载啊请各位高手指点