[原创]：VBA宏的快速调用

chenlei

也许你们知道的。

efan2000

关于菜单和工具栏的宏设置，可以用LSP文件做一个简化的命令，这样可以直接在命令行上键入就可以运行宏。

2. 
   
3.   [FONT=courier new]
   
4. ' 在LSP程序中，注意该文件要随着CAD的启动而自动加载。
   
5. ((defun c:BTL( / cmdecho-save)
   
6.   (setq cmdecho-save (getvar "CMDECHO"))
   
7.   (setvar "CMDECHO" 0)
   
8.   (command "_-VBARUN" "ThisDrawing.BTL")
   
9.   (setvar "CMDECHO" cmdecho-save)
   
10.   (princ)
    
11. )
    
12. 
    
13. '  在菜单文件中
    
14. ID_BTL         [填写标题栏(&B)]^C^CBTL
    
15. 
    
16. ' 在命令行上
    
17. Command: BTL(回车)
    
18.   [/FONT]
    

<br />   [FONT=courier new]<br /> ' 在LSP程序中，注意该文件要随着CAD的启动而自动加载。<br /> ((defun c:BTL( / cmdecho-save)<br />   (setq cmdecho-save (getvar "CMDECHO"))<br />   (setvar "CMDECHO" 0)<br />   (command "_-VBARUN" "ThisDrawing.BTL")<br />   (setvar "CMDECHO" cmdecho-save)<br />   (princ)<br /> )<br /> <br /> '  在菜单文件中<br /> ID_BTL         [填写标题栏(&B)]^C^CBTL<br /> <br /> ' 在命令行上<br /> Command: BTL(回车)<br />   [/FONT]<br />

这样，就把一长串的VBA宏命令简化了。