虽然我不建议修改acadXXXXdoc.lsp版本特定的lisp文件,每个版本附带的大多数定义的函数已经存在了很多年。并且始终可用。我使用ai_onoff来切换 CUI 宏中的系统变量。它在四分之一个世纪前用于安装的MNU文件中。
- ;;; Shortcut menu Deselect All item.
- (defun ai_deselect ()
- (if (= (getvar "cmdecho") 0) ;start if
- (command "_.select" "_r" "_all" "")
- (progn ;start progn for cmdecho 1
- (setvar "cmdecho" 0)
- (command "_.select" "_r" "_all" "")
- (setvar "cmdecho" 1)
- ) ;end progn for cmdecho 1
- ) ;end if
- (terpri)
- (prompt "Everything has been deselected")
- (princ)
- )
- ;;; Command version of ai_deselect to be called from the CUI
- ;;; so it gets properly recorded by the Action Recorder
- ;;;
- (defun c:ai_deselect ()
- (ai_deselect)
- (princ)
- )
ai_deselect无论在 AutoCAD 产品中出现何种情况,都可以正常工作。 |