块参照与选择集的问题

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

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

x

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

Public Sub FindBlock2()
4 l- h A& X6 q
'On Error Resume Next
4 h/ I# K( a7 e/ l4 k
'安全创建新选择集
- X* @5 `5 w W( j, \0 K2 }( o
Dim objselect As AcadSelectionSet
. S; \: x0 {( k/ O- j* Z
If IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then
1 n2 Z6 D7 z' ]: {8 [4 P* R- v) [1 R
Set objselect = ThisDrawing.SelectionSets.Add("TAG")
8 y/ t' b! |9 Q
Else
9 t+ b1 v/ S8 L& ?9 n
Set objselect = ThisDrawing.SelectionSets.Item("TAG")' |0 X' p) A7 l
End If
* X) x" u# N6 p7 z, D! ?! k' w
5 L+ d& Y* U$ E5 l$ e6 \
'定义过滤器
0 y1 c3 H4 Z& W
Dim FType As Variant3 O# d$ I+ R2 O
Dim FData As Variant
4 r9 j r& u6 T* f- e5 A
FType = 2
" M3 b: l; V8 |
FData = "INSERT" '*****我想选择块参照，是否应这样使用7 w& e. L" z& _. ^8 m2 P
'选择实体并使用选择集! S" N& X3 S# L' D3 Q" e
objselect.Select acSelectionSetAll, , , FType, FData '****提示：参数filtertype（位于select中）无效
8 `8 k% O7 n& t2 k; c3 _1 H: w
) Q6 m" n& n7 _
'Do something...
/ p' ?1 n# A& E- v3 i L0 k
! t2 y6 K ?0 F+ G7 Y/ W' D+ j
'安全删除选择集" x' [7 d* M- d/ w) ^8 ~; G
If Not IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then
5 O! r+ a7 U9 _: |0 `# d& O
objselect.Delete
+ l. a/ V/ a( s) \. d
End If
0 n0 h: i6 _3 |7 t
End Sub

复制代码

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

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

2 K( ?7 n' v/ y4 |9 [4 t/ g
'定义过滤器* d' j) T$ b; z) ~0 l
Dim FType(0) As Integer: G% A. b3 U" Y ?/ a
Dim FData(0) As Variant
9 A# f+ D5 _# ^ F' p1 Q+ T+ T
FType(0) = 0
4 g- e2 M( w: j; u6 R2 W" M
FData(0) = "INSERT"! `7 j" P' l( c5 s; E6 [
'选择实体并使用选择集# P! g& J/ D3 Z! K D3 t
objselect.Select acSelectionSetAll, , , FType, FData
2 t6 K! W2 a% p; m9 ]/ R( E1 [

复制代码

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

谢谢斑竹大人！！

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

通知