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

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

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

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

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

发表回复

精选推荐