amao666 发表于 2011-8-17 16:37:31

选择集的问题

Sub clear()            
   Dim sstext As AcadSelectionSet
   Dim FilterType(0) As Integer
   Dim FilterData(0) As Variant
      On Error Resume Next
      If Not IsNull(ThisDrawing.SelectionSets.Item("Clear")) Then
      Set sstext = ThisDrawing.SelectionSets.Item("Clear")
      sstext.Delete
      End If
         Set sstext = ThisDrawing.SelectionSets.Add("Clear")
   FilterType(0) = 8
   FilterData(0) = "JZD"
   sstext.Select acSelectionSetAll FilterType，FilterData
……
end sub
如上代码，我想在让选择集sstext在窗口中处于被选中状态，然后执行move命令，改如何操作?
谢谢高手！

wwswwswws 发表于 2011-9-19 15:56:11

for each obj in 选择集
   obj.move basepoint,newpoint
next

大概是这样，研究一下。记不太清MOVE的用法了
页: [1]
查看完整版本: 选择集的问题