zxfzxf 发表于 2005-9-7 09:08:00

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

<P>求助：如何获得用鼠标选取的对象？？？</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 如何通过SelectionChanged事件获得点选的对象？？？（而不使用selectionset的select方法获得对象）</P>

zxfzxf 发表于 2005-9-7 16:16:00

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

mccad 发表于 2005-9-7 18:48:00

Private Sub AcadDocument_SelectionChanged()
    ' 该示例演示了SelectionChanged方法的使用。
    ' 使用SelectionChanged方法可以通过 _
      PickfirstSelectionSet选择集来获取选定的对象。 _
      再通过该选择集来操作这些选定的对象。
    Dim ss As AcadSelectionSet
    Set ss = ThisDrawing.PickfirstSelectionSet
    ThisDrawing.Utility.Prompt "明经VBA示例：目前选择了" & ss.Count & "个对象"
End Sub
页: [1]
查看完整版本: 求助：如何获得用鼠标选取的对象？？？