此绘图事件未加载。

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

嗨
，我在ThisDrawing中有以下代码，这是两个函数，一个在激活adwg文件时，另一个在关闭时，但是尽管加载了模块，但没有一个用户正在运行模块，（dvb文件包含其他函数）
任何人都可以帮助为什么它不会运行，项目在AutoCAD启动时加载，我尝试强制它在acad200x.lsp和（_-vbarun项目模块）中加载us并且仍然无法运行..
任何帮助都非常值得赞赏！

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 编辑 - 添加代码标签

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

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

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

这个能用吗？

copy

AcadDocument_BeginClose()

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

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

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

如果你设置了断点，它会停下来还是直接过去？

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

它在我输入的断点处停止，
我已按建议使用beginClose事件添加了一个新函数，我在激活事件之前将其折叠，但仍然没有任何乐趣，我已经重新创建了小程序，并对代码进行了重新编排，将sizeOfFile函数放在第一位，现在它对我起作用了。
我将把它放到网络上，看看它是否对客户端起作用。
我附上了更新的dvb文件。如果有人想看一下，它基本上会跟踪用户何时激活文件，何时关闭文件，捕获文件大小。这是一个csv文件，然后可以在excel或任何其他软件中打开以进行分析。
感谢您的指针，祝您好运。它可以在实时环境中工作。

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

每台机器上都加载了acvba.arx吗

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

是的。。

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

当你第一次打开cad的时候，文档级的子程序不会全部启动。
例如，Private Sub acad document _ Activate()不会为我触发，
如果从explorer打开cad和dwg，它也不会触发，但当我在cad打开后打开绘图时，它会触发。
应用程序级别AppActivate确实会触发。
我从acad.dvb中的sub加载vba。

此绘图事件未加载。

发表回复

精选推荐