VBA怎样选择一个大圆或者矩形里的所有对象

taqqug · 发表于 2009-11-9 20:06:52

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

请教大家，我现在在写一个小程序时碰到要选择一个大圆里的所有小圆，还有一个大矩形里的小圆，请问好实现吗？我百思不得其解，请大家帮忙，谢谢了！
功能描述：1.比如我想选一个大圆里所有小圆，当我点按钮“选择所有”，提示我先选择一个大圆，然后我点选大圆之后，所有的小圆被选中。
2.我想选择一个斜方向的矩形里的所有小圆，点按钮“选择所有”，提示先选择一个矩形，点矩形后，矩形里所有的小圆被选中。

woaishuijia · 发表于 2009-11-9 23:34:53

ACAD并不支持根据对象选择,只能用"圈围"方法近似地做.当边界为圆时,可以尽可能多地在圆周上取点,用一个近似圆的多边形做边界;对多段线(矩形就是闭合的二维多段线),可以使用多段线的顶点,但不允许自交,如果是开发准备发布的通用工具,就要对可能的自交做检查,以区别对待.而且当二维多段线有凸起(圆弧段)时,也要区别对待.下面的代码仅供参考.

& o, S; b, j3 B6 e
Private Const N As Long = 100 '声明一个常数,指定从圆周上拾取"圈围"的点数
; z g$ R! T$ T) L& ^! f% K; V
9 \. I! y7 _9 B
Sub A()
; i h3 X! ^+ P
Dim S1 As AcadSelectionSet '声明第一个选择集,用于从屏幕上选取做为下一步选择集边界的对象
; @# W C y1 W4 N- D7 h* c+ |
Dim S2 As AcadSelectionSet '声明第二个选择集,用于选取边界内部对象
B* m; B9 F/ Y: Z, l$ Y
Dim FT(3) As Integer, FD(3) As Variant '声明选择集过滤器
6 j q( y* o3 G: B+ a
Dim OldPICKADD As Long '声明一个长整形变量,用于存放原"pickadd"系统变量
6 B( A) A, q( V X
Dim P() As Double '声明一个动态数组,用于存放"圈围"点集的三维坐标
( o6 ?$ W/ {" x9 B# K% V- g
Dim I As Long '循环变量
( G, e+ h1 @: V3 q
Dim V As Variant '边界圆的圆心或矩形的顶点坐标
1 k, ]% i3 Y0 v' u0 X- e8 v" u9 y2 Y
. p6 [6 o2 |3 j
On Error Resume Next8 a3 z6 m* p. p ^ {; F& p+ I4 F$ b
6 J# x2 E5 } _
FT(0) = -4: FD(0) = "<or" '设置选择集过滤器为选择圆或二维多段线9 s0 o, H2 W) e4 f1 N' r
FT(1) = 0: FD(1) = "Circle". ~1 Q4 y3 O8 l0 m$ S8 D
FT(2) = 0: FD(2) = "LWPolyLine"8 S- j: f+ X& G* h' V# g
FT(3) = -4: FD(3) = "or>"( N+ ?/ g: T, M
With ThisDrawing2 L+ F7 s# J) N: J" x
OldPICKADD = .GetVariable("pickadd" ) '记录原"pickadd"系统变量
4 J+ r+ G( K4 C" E2 A/ z- q
.SetVariable "pickadd", 0 '把"pickadd"系统变量临时改为0(用 SHIFT 键添加到选择集),只为方便,不是必要的
4 l* _8 T1 ]" ?; m" g4 F
Set S1 = .SelectionSets.Add("S1" ) '新建选择集,用于从屏幕上选取边界对象
2 i j/ B" Y4 ? S, [( @
S1.SelectOnScreen FT, FD '在屏幕上选取圆或二维多段线
, |. S+ t: @/ s! [$ } F8 k) V7 H
.SetVariable "pickadd", OldPICKADD '把"pickadd"系统变量改回原值& A1 t; f" H; m5 K5 P
If S1.Count > 0 Then '如果在屏幕上有效选取了边界对象
0 B- O9 T/ J- ]. Z9 ^* V
If S1.Item(S1.Count - 1).ObjectName = "AcDbCircle" Then '如果选取的最后一个对象是"圆"
& j& o" [7 X _$ @" _
ReDim P(N * 3 - 1) '按"圈围"点集数量重定义三维坐标数组' e N" i% q+ y. ^& m) G; G! x0 H
V = S1.Item(S1.Count - 1).Center '提取圆心坐标, M7 N% S" n, X- u7 R7 n
For I = 0 To N - 1 '在圆周上按点集数量均匀取点计算圈围点集坐标
: K" u* ]( z' b N( _
P(I * 3) = V(0) + S1.Item(S1.Count - 1).Radius * Cos(CDbl(I) / CDbl(N) * 2 * .Utility.AngleToReal(180, acDegrees))
. A; A* J% j2 m" |0 q/ _7 a
P(I * 3 + 1) = V(1) + S1.Item(S1.Count - 1).Radius * Sin(CDbl(I) / CDbl(N) * 2 * .Utility.AngleToReal(180, acDegrees))* v6 ^! P5 {- J1 X I2 u8 y
Next0 ^0 ?8 X$ v' L4 }1 t( E
Else '如果选取的最后一个对象是二维多段线& v- V: U: P. Y3 L
V = S1.Item(S1.Count - 1).Coordinates '提取二维多段线顶点坐标(二维)! |% F; Y4 z* t3 G0 K
ReDim P((UBound(V) \ 2) * 3 + 2) '按多段线顶点数量重定义圈围点集三维坐标数组
+ O4 B. U4 ^4 G3 f7 I0 i
For I = 0 To UBound(V) \ 2 '把多段线二维坐标写入三维坐标数组
. c/ o8 H2 P- S# |/ D) P
P(I * 3) = V(I * 2)6 O5 Q) y" R ~' A0 o x# K
P(I * 3 + 1) = V(I * 2 + 1)2 t3 ]$ p+ c8 X0 X k, ^5 @5 N1 G
Next7 o& ~, ?$ v) F& \5 b
End If
) }' m* F7 c- ]/ b/ C. ]6 _
Set S2 = .SelectionSets.Add("S2" ) '新建选择集,用于选取边界内部对象+ o) b7 k: D( ~ k# E W
S2.SelectByPolygon acSelectionSetWindowPolygon, P '根据点集圈选
9 s9 D/ X1 v/ r; c
'自行处理边界内部被选择的对象
" u3 `4 S! J* B% T" x9 [, Q1 Y
S2.Delete '删除用过的选择集. Z$ y, c$ l# f* d6 g' @: T
End If
: R$ Q: k1 T+ k* [# b) t' i
S1.Delete '删除用过的选择集6 x" u& I: o2 k1 Y
End With. T. p4 T$ D/ `! O
End Sub% ?4 s9 z& p u& v. H3 Q' }

复制代码

taqqug · 发表于 2009-11-10 18:11:41

我当初的想法是先选择所有的小圆，再判断小圆的圆心坐标在不在大圆的范围内，还有删除与大圆想交的，这样效率不高，还是老师你的高明。谢谢了！

		自动登录	找回密码
密码			注册

通知

[已解决] VBA怎样选择一个大圆或者矩形里的所有对象

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

回复 2# woaishuijia 的帖子

浏览过的版块