ThisDrawing事件未加载。

Bryco · 发表于 2006-10-11 10:56:40

您好，我在这张图中有以下代码，这是两个功能，一个在激活adwg文件时，另一个在关闭时，然而，尽管模块已加载，但没有任何用户正在运行这些模块（dvb文件包含其他功能）
有人能帮我解释为什么它赢了#039；t run，项目在启动AutoCAD时加载，我已尝试使用acad200x强制加载它。lsp和（_-vbarun项目模块）仍然没有运行。任何帮助都非常感谢

copy

Private Sub AcadDocument_Activate()
    intFileHandle = FreeFile
    time = Now
    UserName = ThisDrawing.GetVariable("LOGINNAME")
    'file = "\\oracle\AutoCAD\2005\Support\usage.log"
    file = "C:\moysie.log"
    acdoc = ActiveDocument.FullName
    If acdoc = "" Then
        acdoc = ThisDrawing.GetVariable("DWGNAME")
        sizeOfFile = "0"
    Else
        acdoc = ActiveDocument.FullName
        ShowFileSize acdoc
    End If
    
    Open file For Append As #intFileHandle
    Print #intFileHandle, "ACTIVATE," & UserName & "," & time & _
    "," & acdoc & "," & sizeOfFile
    Close #intFileHandle
End Sub

通过Cmdrduh编辑-添加了代码标记

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

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

Bryco · 发表于 2006-10-11 11:03:52

这个有效吗

copy

AcadDocument_BeginClose()

Bryco · 发表于 2006-10-11 11:08:25

当我一步一步地完成时，代码可以正常工作，但如果我只是启动AutoCAD（VBA加载正常），但不会触发事件=(..

Bryco · 发表于 2006-10-11 11:13:43

如果你把破发点放进去，它会停下来还是直接过去？

Bryco · 发表于 2006-10-11 11:35:11

它在断点处停止#039；当我进入时，
我按照建议使用beginClose事件添加了一个新函数，我在激活事件之前将其折叠，但仍然没有任何乐趣，我已经重新创建了小程序，并重新调整了代码，将sizeOfFile函数放在第一位，现在这件事对我来说很有效。我将把它放到网络上，看看它是否对客户端起作用。我附上了更新的dvb文件，如果有人想看一下，它基本上适用于用户激活文件和关闭文件时，捕获文件大小。It#039；这是一个csv文件，然后可以在excel或任何其他工具中打开进行分析。
感谢您的指点，祈祷它能在实时环境中工作。

Bryco · 发表于 2006-10-12 15:05:15

是acvba。每台机器上加载的arx

Bryco · 发表于 2006-10-12 17:19:43

它是。。

Bryco · 发表于 2006-10-13 10:15:47

当您第一次打开cad时，文档级子组件不会全部启动
例如；私有子AcadDocument_Activate（）不&#039；t为我触发，
如果从explorer打开cad和dwg，它也不会触发，但当我在cad打开后打开图形时，它会触发
应用程序级AppActivate启动
我从acad.dvb中的sub加载vba。

ThisDrawing事件未加载。

发表回复

精选推荐