应用事件不工作

Bryco · 发表于 2007-7-11 09:43:30

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Jeff_M · 发表于 2007-7-11 10:38:12

1)将它放在thisdrawing模块的顶部(thisdrwawing是一个类模块)代码2]
2)将它也放入thisdrawing模块中代码3]
3)在acad.dvb的thisdrawing模块中代码4]
放置您正在加载的dvb的路径。
4)在vbaide窗口的顶部有两个控制框，左边的一个称为对象框。
它可能会显示(常规)，如果您单击箭头并选择“AutoCAD”，右侧的下拉框(“程序”)将列出所有可用的应用程序级别的应用程序。
单击BeginOpen，会出现一个同名的sub，在那里写下MsgBox("opening ")。

Jeff_M · 发表于 2007-7-11 10:45:28

Bry
我没有提到以上所有内容都在我的acad.dvb文件中
标记

Jeff_M · 发表于 2007-7-11 10:48:21

我可能是错的，但看起来你正在从绘图级别而不是从系统中抓取事件？
马克

Jeff_M · 发表于 2007-7-11 10:49:04

这需要打开一个图形

Jeff_M · 发表于 2007-7-11 11:03:51

嗨Mark，
附件是我使用事件的acad.dvb。看看对你想做的事有没有帮助。这里面有针对LandDesktop特定项目的代码，但是如果LDT没有运行，那部分就不应该运行。
杰夫

Jeff_M · 发表于 2007-7-11 11:26:20

酷杰夫，你是怎么想起来的？谢谢马克

Jeff_M · 发表于 2007-7-11 11:46:26

杰夫
这是好东西
很酷的事情是我也使用Land Desktop，但我仍然有点太新手了，无法真正欣赏你所做的一切。这当然值得坚持下去。
在我的acad.dvb文件中
，我做了一个简单的事件：

copy

Private Sub ACADApp_BeginSave(ByVal Filename As String)
Dim Filename As String
Filename = Test.dwg
MsgBox "Hello"
End Sub

当我按下保存按钮时，我不应该至少得到一个简单的消息框吗？
谢谢
马克

Jeff_M · 发表于 2007-7-11 13:55:57

您好，Mark，
不知道发生了什么，但文档中说BeginSave和EndSave事件使用了AcadApp，但两者的示例都使用了ACDDocument……这是有效的：

copy

Private Sub ACADDocument_BeginSave(ByVal Filename As String)
'Filename = Test.dwg ''this will error since it's not a string
MsgBox "Hello"
End Sub

Jeff_M · 发表于 2007-7-11 14:03:37

这很容易通过
Dim Filenname as String解决
,但我遇到的问题不是真正使用文档级事件，而是使用应用程序级事件

应用事件不工作

发表回复

精选推荐