[编程交流] 按区域选择

   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