求助：如何获得用鼠标选取的对象？？？

zxfzxf

求助：如何获得用鼠标选取的对象？？？

         如何通过SelectionChanged事件获得点选的对象？？？（而不使用selectionset的select方法获得对象）

zxfzxf

怎么没有人回答，是不是无法实现呀

mccad

2. Private Sub AcadDocument_SelectionChanged()
3.     ' 该示例演示了SelectionChanged方法的使用。
4.     ' 使用SelectionChanged方法可以通过 _
5.       PickfirstSelectionSet选择集来获取选定的对象。 _
6.       再通过该选择集来操作这些选定的对象。
7.     Dim ss As AcadSelectionSet
8.     Set ss = ThisDrawing.PickfirstSelectionSet
9.     ThisDrawing.Utility.Prompt "明经VBA示例：目前选择了" & ss.Count & "个对象"
10. End Sub

Private Sub AcadDocument_SelectionChanged()     ' 该示例演示了SelectionChanged方法的使用。     ' 使用SelectionChanged方法可以通过 _       PickfirstSelectionSet选择集来获取选定的对象。 _       再通过该选择集来操作这些选定的对象。     Dim ss As AcadSelectionSet     Set ss = ThisDrawing.PickfirstSelectionSet     ThisDrawing.Utility.Prompt "明经VBA示例：目前选择了" & ss.Count & "个对象" End Sub