|
发表于 2005-1-5 13:33:00
|
显示全部楼层
Sub test()
Dim pt As AcadPoint
Dim point As Variant
Dim minCorner As Variant
Dim maxCorner As Variant
Dim size As Double
Dim entry As AcadEntity
Dim item(0) As AcadEntity
Dim sset1 As AcadSelectionSet
Dim sset2 As AcadSelectionSet
Dim FType(0) As Integer
Dim FData(0) As Variant
FType(0) = 0: FData(0) = "Point"
point = ThisDrawing.Utility.GetPoint()
Set sset1 = ThisDrawing.SelectionSets.Add("Point1")
sset1.SelectAtPoint point, FType, FData
Set item(0) = sset1(0)
size = 10
minCorner = point: minCorner(0) = minCorner(0) - size: minCorner(1) = minCorner(1) - size
maxCorner = point: maxCorner(0) = maxCorner(0) + size: maxCorner(1) = maxCorner(1) + size
Set sset2 = ThisDrawing.SelectionSets.Add("Point2")
sset2.Select acSelectionSetCrossing, minCorner, maxCorner, FType, FData
MsgBox sset2.Count
sset2.RemoveItems item
MsgBox sset2.Count
ThisDrawing.SelectionSets.item("Point1").Delete
ThisDrawing.SelectionSets.item("Point2").Delete
End Sub |
|