社区 › VBA/VB/ActiveX/API 编程技术 › VBA程序输入命令自动执行

mccad 发表于 2003-10-16 12:42:00

VBA程序输入命令自动执行

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

Public TestLoad As Boolean
Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
    If Not TestLoad Then
      ThisDrawing.SendCommand "(defun c:Test()(princ))(princ)" & vbCr
      TestLoad = True
    End If
End Sub

Private Sub AcadDocument_BeginLisp(ByVal FirstLine As String)
    If FirstLine = "(C:TEST)" Then Call TEST
End Sub

Sub TEST()
    MsgBox "这是一个自动加载的程序，不需要手工加载执行，" & vbCrLf & "只需要将程序文件放到启动组中以后就可以直接输入命令执行。", , "明经通道VBA示例"
End Sub

thankyou 发表于 2003-10-16 13:12:00

非常感谢管理员！

tukuitk 发表于 2003-10-16 17:20:00

谢谢明总！！！！

myfreemind 发表于 2003-10-16 23:28:00

thanks

samexjr 发表于 2003-10-20 10:57:00

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

netrb 发表于 2003-10-30 21:57:00

很好！我正需要

askthesun 发表于 2015-4-10 22:49:56

下载学习，这个正需要！

查看完整版本: VBA程序输入命令自动执行