块参照与选择集的问题

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

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

x

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

Public Sub FindBlock2()
X! @& S2 ?1 W, L
'On Error Resume Next
4 k9 r) y6 F, s% A
'安全创建新选择集
- \. B+ t) u! I. F! G2 [
Dim objselect As AcadSelectionSet
+ g1 m1 r; N! q5 ^; h
If IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then
/ v P, m: H( ?3 s x" V, z
Set objselect = ThisDrawing.SelectionSets.Add("TAG")
( { ]) k I" m" Q
Else
% J. l0 [" P! N9 I/ p7 Y
Set objselect = ThisDrawing.SelectionSets.Item("TAG")
0 n+ q3 E3 Q3 } ~' i) s% H2 P
End If
* H" ~7 \. A9 t0 Q9 I& ], F
4 q$ E) t% L, q, q) B4 D
'定义过滤器- F+ D7 O6 y- N
Dim FType As Variant* i. i' }0 l9 Y# f
Dim FData As Variant3 g: W: P5 h# d" b% J0 d
FType = 2
8 x0 e: ~( s1 V, T
FData = "INSERT" '*****我想选择块参照，是否应这样使用/ L0 s: v/ B+ Q2 }
'选择实体并使用选择集5 a* T8 c; N9 ~) A7 p! l5 ?
objselect.Select acSelectionSetAll, , , FType, FData '****提示：参数filtertype（位于select中）无效9 G2 n0 P4 f& u. P/ @- D# l/ M
) C. X6 O7 r0 \( e
'Do something...: G) x5 Z2 b7 `
9 \2 ?% z) H: y+ U) K' `: v+ o
'安全删除选择集7 G$ U. V: g8 J' W- ^1 U( A" ~
If Not IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then9 t H5 M6 n2 H
objselect.Delete
2 z. V# a0 X4 c W' \+ ?
End If: w, H2 E! E/ t6 D4 ^+ w
End Sub

复制代码

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

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

复制代码

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

谢谢斑竹大人！！

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

通知