社区 › VB › 设置变量的最佳方法是什么

Bryco 发表于 2007-9-14 13:12:03

那很有趣鲍勃代码5]
在
Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
    If CommandName = "COMMANDLINE" Then
      Set AutoCAD = ThisDrawing.Application
    End If
End Sub
但是应用程序级lisp
Private Sub AutoCAD_EndLisp()
    MsgBox "LISPING:"
End Sub
根本不发射。
“命令行”总是为我触发，包括从资源管理器打开，但应用程序endopen此时已经完成。

Spageddie 发表于 2007-10-26 01:07:39

Public WithEvents AutoCAD As AcadApplication
Private bApp As Boolean
Sub App_StartMacro()
    Set AutoCAD = ThisDrawing.Application
End Sub
Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
    If CommandName = "COMMANDLINE" Then
      Set AutoCAD = ThisDrawing.Application
      If Not bApp Then
               bApp = True
               AppStuff
      End If
    End If
End Sub
Private Sub AutoCAD_EndOpen(ByVal FileName As String)
    AppStuff
End Sub
Private sub Appstuff
   msgbox "appstuff"
End Sub

查看完整版本: 设置变量的最佳方法是什么