块参照与选择集的问题

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

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

x

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

Public Sub FindBlock2()
5 `% _2 E" K9 q, b% u9 L5 V3 ?' G, k. D
'On Error Resume Next5 E) p7 W, t6 C) d) z( w% t; Q
'安全创建新选择集
8 |) `9 Q% ?+ W9 [
Dim objselect As AcadSelectionSet+ Z- _0 i/ J* x/ ^, o
If IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then
9 U% ?9 b2 H. K: u
Set objselect = ThisDrawing.SelectionSets.Add("TAG")/ p0 H! _0 n3 l4 k! ]
Else
0 T3 z ^ X' I. h
Set objselect = ThisDrawing.SelectionSets.Item("TAG")! j9 S7 Q0 V- Y6 P
End If
3 ^* W/ x! v8 S3 P7 S6 S- `8 v
( ^2 V$ b" Y2 U) N8 \6 V; B
'定义过滤器
5 _& l! J; r4 p5 E4 g3 M8 M
Dim FType As Variant5 ^7 ?; M* Z! K
Dim FData As Variant
1 L7 H* C3 n" J
FType = 2
; D4 x0 _- B3 o' t# Z2 P! N
FData = "INSERT" '*****我想选择块参照，是否应这样使用
0 l, t8 o. K" I7 g; b
'选择实体并使用选择集" g# v; ^" H' }, ?/ N. C0 d" M
objselect.Select acSelectionSetAll, , , FType, FData '****提示：参数filtertype（位于select中）无效
& P+ O+ ^& T& u. }) R4 w9 [
2 x' y: e: n2 S2 C
'Do something...* s5 ]9 X+ A( b& S: X
# [; ~: [! C( ]& t5 w1 @3 J# @; P/ o
'安全删除选择集. H. ~4 q3 f2 @+ E0 K1 i" O
If Not IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then9 U3 B8 a w, D# ]* r
objselect.Delete7 u% T t( f# V C; m
End If) Z9 z9 j6 B, \) ~4 a4 h
End Sub

复制代码

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

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

复制代码

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

谢谢斑竹大人！！

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

通知