块参照与选择集的问题

winer3086 · 发表于 2010-9-4 23:35:43

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

x

本帖最后由 woaishuijia 于 2010-9-5 06:04 编辑

Public Sub FindBlock2()- u. T) |. J5 w# r: O' O
'On Error Resume Next
, P9 Z4 K# ?; B' F0 _5 G+ q
'安全创建新选择集% S# @ B& n j$ H* p5 S) j% e8 ?+ W
Dim objselect As AcadSelectionSet; x5 n1 @+ ~( j' o2 _; G" z
If IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then" f+ q9 Q) n4 X! p7 L& U, x; t
Set objselect = ThisDrawing.SelectionSets.Add("TAG")
' N8 T+ @! o _( b
Else
9 ~& p: p$ x' X
Set objselect = ThisDrawing.SelectionSets.Item("TAG")7 \# |4 c/ E0 e3 _7 }; p: |3 Y* W
End If
z+ m- E" Y; r+ I9 Y
8 p6 K$ @! H+ W$ d
'定义过滤器& L0 j" k9 j! g2 ~, k1 ]3 |
Dim FType As Variant
4 Y- w1 h0 [# T' S+ T+ ~
Dim FData As Variant8 s( F- \6 i z7 q
FType = 2
/ C8 P3 s, Z. T, _
FData = "INSERT" '*****我想选择块参照，是否应这样使用9 I' _0 p0 c% N/ C" B
'选择实体并使用选择集
! U: V3 w J* P5 @' @/ D! \
objselect.Select acSelectionSetAll, , , FType, FData '****提示：参数filtertype（位于select中）无效: L$ N3 s( N) q+ r/ }
) H2 \" \" R! q4 Y. r2 a4 P( v( Q# ?4 S
'Do something...
3 M' g* D0 g; ]
( L1 T, P# |$ s8 P8 p
'安全删除选择集
- ^6 y! i( z4 l$ _- p" M
If Not IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then& k; I: ]. `$ T- w- C& q, g
objselect.Delete; v/ k9 [' c% T8 E r7 h, |
End If5 \ [! k" _) U+ C2 t! @9 j
End Sub

复制代码

woaishuijia · 发表于 2010-9-5 06:13:52

本帖最后由 woaishuijia 于 2010-9-5 06:15 编辑

复制代码

winer3086 · 发表于 2010-9-5 07:22:22

谢谢斑竹大人！！

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

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知