注册事件有先后
先DocumentCreateStarted事件
Public Sub AddDocumentCreateStartedEvent()
AddHandler Application.DocumentManager.DocumentCreateStarted, AddressOf Application_DocumentCreateStarted
End Sub
再BeginDwgOpen事件
Private Sub Application_DocumentCreateStarted(ByVal sender As Object, ByVal e As DocumentCollectionEventArgs)
AddHandler e.Document.BeginDwgOpen, AddressOf Document_BeginDwgOpen
End Sub
Public Sub Document_BeginDwgOpen(ByVal senderObj As Object, _
ByVal docBegClsEvtArgs As DrawingOpenEventArgs)
End Sub
[本日志由 tiancao1001 于 2018-09-17 01:18 PM 编辑]
|
暂时没有评论
发表评论 - 不要忘了输入验证码哦! |