|
|
从论坛里下的一个函数，是返回选择集中的最小和最大点，可调试不通过，请大侠们看下如何修改，谢谢
语法:
ssExtents(ss)
说明:
返回选择集中的最小和最大点
函数内容:
Public Function ssExtents(ss As AcadSelectionSet) As Variant
Dim points(), c As Long
Dim min, max, util As AcadUtility
Set util = ThisDrawing.Utility
c = 0
For i = 0 To ss.Count - 1
ss.Item(i).GetBoundingBox min, max
min = util.TranslateCoordinates(min, acWorld, acUCS, False)
max = util.TranslateCoordinates(max, acWorld, acUCS, False)
ReDim Preserve points(0 To c + 1)
points(c) = min: points(c + 1) = max
c = c + 2
Next
ssExtents = Extents(points)
End Function
参数:
一个AcadSelectionSet 对象
注意:
它返回选择集的外边框。
一定要注意选择集中不能包含有导致GetBoundingBox 失败的对象，如XLines 和Rays 。
示例:
retVal = ssExtents(ss) |
|
置顶卡
