按区域选择
有人能告诉我我做错了什么吗？我试图选择图形中的所有对象，并将其放置在选择集中。但是，SelectByPolygon命令需要点列表（变量），EXTMIN和EXTMAX也是变量。我似乎无法创建该列表，因为它需要将一个数组插入到一个数组中。
有人能想出另一种方法吗？
Dim oSS As AcadSelectionSet
Dim arrPts As Variant
Dim dblmin As Variant
Dim dblmax As Variant
dblmin = Application.ActiveDocument.GetVariable("EXTMIN")
dblmax = Application.ActiveDocument.GetVariable("EXTMAX")
arrPts(0) = dblmin
arrPts(3) = dblmax
Set oSS = Application.ActiveDocument.SelectionSets.Add("Plot")
oSS.SelectByPolygon acSelectionSetCrossing, arrPts
MsgBox oSS.Count
Set oSS = Nothing
我自己解决了这个问题。
对不起，这是假的。
Dim oSS As AcadSelectionSet
Dim dblmin As Variant
Dim dblmax As Variant
dblmin = Application.ActiveDocument.GetVariable("EXTMIN")
dblmax = Application.ActiveDocument.GetVariable("EXTMAX")
Set oSS = Application.ActiveDocument.SelectionSets.Add("Plot")
oSS.Select acSelectionSetAll, dblmin, dblmax
MsgBox oSS.Count
Set oSS = Nothing
页:
[1]