[VBA函数]：刚刚发现VBA还可以这样执行。

eachy

1. 在 AutoCAD 命令行执行 VBA 语句
   
2. 
   
3. 命令行：  vbastmt
   
4. 
   
5. 表达式:输入要执行的 VBA 语句
   
6. 
   
7. 一条 Visual Basic 语句是一个完整指令，可以包含关键字、运算符、变量、常量和表达式。通常，
   
8. 一行只写一条语句。如果用户希望在一行中写多条语句，可用冒号 (:) 分隔各条语句。
   
9. 
   
10. VBA 语句在当前活动图形的上下文环境中执行。
    

复制代码

一个例子

2. 
   
3. (defun bgcol (r g b / mycol)
   
4.   (setq mycol (+ (* b 65536) (* g 256) r))
   
5.   (command
   
6.     "VBASTMT"
   
7.     (strcat
   
8.       "Thisdrawing.application.preferences.Display.GraphicsWinModelBackgrndColor = "
   
9.       (itoa mycol)
   
10.     )
    
11.   )
    
12. )

<br /> (defun bgcol (r g b / mycol)<br />   (setq mycol (+ (* b 65536) (* g 256) r))<br />   (command<br />     "VBASTMT"<br />     (strcat<br />       "Thisdrawing.application.preferences.Display.GraphicsWinModelBackgrndColor = "<br />       (itoa mycol)<br />     )<br />   )<br /> )

daziran

斑竹嘛自然要做些前导工作，不错。
这是否意味着VBA的功能可以自由的结合在Lisp中？

lsjjm

Have look at this:
Open a Drawing-
(vl-cmdf "vbastmt" "AcadApplication.Documents.Open \"c:/smart/mydraw.dwg\"")

rave

呵呵，还有一个在Help中找不到的命令 :  [B]VBAPREF[/B]

大家去挖掘注册表吧:

1. 
   
2. Windows Registry Editor Version 5.00
   
3. 
   
4. [HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R15.0\ACAD-1:409\AutodeskApps\AcadVBA\Commands]
   
5. "VBAPREF"="VBAPREF"
   
6. "VBAIDE"="VBAIDE"
   
7. "VBALOAD"="VBALOAD"
   
8. "VBAMAN"="VBAMAN"
   
9. "VBASTMT"="VBASTMT"
   
10. "VBANEW"="VBANEW"
    
11. "-VBARUN"="-VBARUN"
    
12. "-VBALOAD"="-VBALOAD"
    
13. "VBARUN"="VBARUN"
    

复制代码

不只是VBA,  你还可以在其他Application中找到一些不常见的Command,  诸如:acadblockdialog等等