Public WithEvents AcadDoc As AcadDocument
Public Sub TestC(ByVal AcadObj As AcadApplication)
Set AcadDoc = AcadObj.ActiveDocument
End Sub
Public Sub AcadDoc_SelectionChanged()
MsgBox "AA"
End Sub
(defun c:TestC( / rndobj)
(vl-load-com)
(setq rndobj (vlax-get-or-create-object "TestA.TestB"))
(vlax-invoke-method rndobj "TestC" (vlax-get-acad-object))
(princ)
)
(c:TestC)
regsvr32 /s TestA.dll
分类
问答社区
软件专区
全部评论