应用事件不工作
**** Hidden Message ***** 1)将它放在thisdrawing模块的顶部(thisdrwawing是一个类模块)代码2]2)将它也放入thisdrawing模块中代码3]
3)在acad.dvb的thisdrawing模块中代码4]
放置您正在加载的dvb的路径。
4)在vbaide窗口的顶部有两个控制框，左边的一个称为对象框。
它可能会显示(常规)，如果您单击箭头并选择“AutoCAD”，右侧的下拉框(“程序”)将列出所有可用的应用程序级别的应用程序。
单击BeginOpen，会出现一个同名的sub，在那里写下MsgBox("opening ")。
Bry
我没有提到以上所有内容都在我的acad.dvb文件中
标记
我可能是错的，但看起来你正在从绘图级别而不是从系统中抓取事件？
马克
这需要打开一个图形 嗨Mark，
附件是我使用事件的acad.dvb。看看对你想做的事有没有帮助。这里面有针对LandDesktop特定项目的代码，但是如果LDT没有运行，那部分就不应该运行。
杰夫 酷杰夫，你是怎么想起来的？谢谢马克
杰夫
这是好东西
很酷的事情是我也使用Land Desktop，但我仍然有点太新手了，无法真正欣赏你所做的一切。这当然值得坚持下去。
在我的acad.dvb文件中
，我做了一个简单的事件：
Private Sub ACADApp_BeginSave(ByVal Filename As String)
Dim Filename As String
Filename = Test.dwg
MsgBox "Hello"
End Sub
当我按下保存按钮时，我不应该至少得到一个简单的消息框吗？
谢谢
马克 您好，Mark，
不知道发生了什么，但文档中说BeginSave和EndSave事件使用了AcadApp，但两者的示例都使用了ACDDocument……这是有效的：
Private Sub ACADDocument_BeginSave(ByVal Filename As String)
'Filename = Test.dwg ''this will error since it's not a string
MsgBox "Hello"
End Sub
这很容易通过
Dim Filenname as String解决
,但我遇到的问题不是真正使用文档级事件，而是使用应用程序级事件
页:
[1]
2