VBA程序输入命令自动执行

mccad

以下程序不需要写LISP程序加载执行，只需要将程序文件放到启动组中以后就可以直接在命令行中输入命令执行：
本来想调用VL类来隐去命令行定义命令部分，但VL类不能使用defun和defun-q命令，只好作罢

2. Public TestLoad As Boolean
   
3. Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
   
4.     If Not TestLoad Then
   
5.         ThisDrawing.SendCommand "(defun c:Test()(princ))(princ)" & vbCr
   
6.         TestLoad = True
   
7.     End If
   
8. End Sub
   
9. 
   
10. Private Sub AcadDocument_BeginLisp(ByVal FirstLine As String)
    
11.     If FirstLine = "(C:TEST)" Then Call TEST
    
12. End Sub
    
13. 
    
14. Sub TEST()
    
15.     MsgBox "这是一个自动加载的程序，不需要手工加载执行，" & vbCrLf & "只需要将程序文件放到启动组中以后就可以直接输入命令执行。", , "明经通道VBA示例"
    
16. End Sub
    

Public TestLoad As Boolean<br /> Private Sub AcadDocument_EndCommand(ByVal CommandName As String)<br />     If Not TestLoad Then<br />         ThisDrawing.SendCommand "(defun c:Test()(princ))(princ)" & vbCr<br />         TestLoad = True<br />     End If<br /> End Sub<br /> <br /> Private Sub AcadDocument_BeginLisp(ByVal FirstLine As String)<br />     If FirstLine = "(C:TEST)" Then Call TEST<br /> End Sub<br /> <br /> Sub TEST()<br />     MsgBox "这是一个自动加载的程序，不需要手工加载执行，" & vbCrLf & "只需要将程序文件放到启动组中以后就可以直接输入命令执行。", , "明经通道VBA示例"<br /> End Sub<br />

thankyou

非常感谢管理员！

tukuitk

谢谢明总！！！！

myfreemind

thanks

samexjr

非常感谢！我正需这样一个指引。

netrb

很好！我正需要

askthesun

下载学习，这个正需要！