|
|
比如用下面代码把 跟选择实体所在层的所有实体加入了选择集 “topirolss”中，
我现在想在cad命令行用move,来移动在选择集 “topirolss”中所有实体。如何实现？(其实我就是想在CAD界面里面快速选择需要的实体，然后再做相应的操作，而不必要用光标一个一个选择)
Sub select_from_objectlayer()
Dim tsel As AcadSelectionSet
Dim entry As AcadEntity
Dim tpic As Variant
Dim layerstr As String
On Error Resume Next
Set tsel = ThisDrawing.SelectionSets("topirolss")
If Err Then
Err.Clear
Set tsel = ThisDrawing.SelectionSets.Add("topirolss")
End If
tsel.Clear
ThisDrawing.Utility.GetEntity entry, tpic, "选择跟该实体所在层的所有实体:"
If Err Then
Err.Clear
Exit Sub
End If
layerstr = entry.Layer Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
FilterType(0) = 8
FilterData(0) = layerstr
tsel.Select acSelectionSetAll, , , FilterType, FilterData
End Sub |
|
置顶卡
