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

Keith™ 发表于 2007-9-14 13:12:03

很高兴你成功了！

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

&nbsp；好的，我&#039；我读了很多关于这方面的文章，现在仍然可以#039；t解决如何在Autocad上完成它#039；s启动
一旦Autocad运行并打开另一个图形等，我就可以让内窥镜工作
但是我可以&#039；如果最终用户从windows资源管理器中双击一个图形，则无法触发内点事件，有什么想法会有用吗&nbsp；：kewl：

Bryco 发表于 2007-10-26 08:52:48

It#039；现在启动autocad为时过早，因此您&#039；我要么等到我到达孔口，要么把我的假代码扭曲成真正有效的东西&nbsp；祝我好运&#039；当一个拉环打开时，我们在发射代码中使用了end lisp&nbsp；自acad以来。当autocad启动时，lsp运行，就这样
'not even too very close to actual code
Private Sub AcadDocument_EndLisp(LispyFileName as String)
If LispyFileName = "acad.lsp" then
'crap you want to do here
end if
end sub

Bryco 发表于 2007-10-26 10:05:08

即#039；有趣的鲍勃Private Sub AcadDocument_EndLisp()
    MsgBox "DOCLISP"
End Sub 文档级endlisp在启动之前（我启动了6次）Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
    If CommandName = "COMMANDLINE" Then
      Set AutoCAD = ThisDrawing.Application
    End If
End Sub 但是应用程序级lispPrivate Sub AutoCAD_EndLisp()
    MsgBox "LISPING:"
End Sub 不#039；不要开火
；命令行“；总是为我点火，包括从explorer打开，但应用程序OnOpen已经启动了；此时已完成。

Keith™ 发表于 2007-10-26 10:39:23

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

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