用户登陆
站点日历
站点统计
最新评论
'找到一个CAD对象附近的CAD对象 [ 日期：2009-06-25 ] [ 来自：'找到一个CAD对象附近的CAD对象
Function GetE_SideByE(E As AcadEntity) As AcadSelectionSet '返回
Dim Pmin As Variant, Pmax As Variant
E.GetBoundingBox Pmin, Pmax
Dim SSet As AcadSelectionSet
Set SSet = CreateSelectionSet("XX")
'SSet.Select acSelectionSetWindow, Pmin, Pmax
SSet.Select acSelectionSetCrossing, Pmin, Pmax
Set GetE_SideByE = SSet
End Function
Function GetE_SideByE(E As AcadEntity) As AcadSelectionSet '返回
Dim Pmin As Variant, Pmax As Variant
E.GetBoundingBox Pmin, Pmax
Dim SSet As AcadSelectionSet
Set SSet = CreateSelectionSet("XX")
'SSet.Select acSelectionSetWindow, Pmin, Pmax
SSet.Select acSelectionSetCrossing, Pmin, Pmax
Set GetE_SideByE = SSet
End Function
[本日志由 tiancao1001 于 2021-07-16 05:46 PM 编辑]
|
|
暂时没有评论
| 发表评论 - 不要忘了输入验证码哦！ |