【源代码分享】处理AutoCAD事件

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