块参照与选择集的问题

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

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

x

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

Public Sub FindBlock2()
* h r, {: e5 Y0 O
'On Error Resume Next/ S! Z' M% J- W4 E
'安全创建新选择集
9 ~' s4 ?) e7 D0 o& V, e
Dim objselect As AcadSelectionSet1 N. z3 n8 {" f/ R0 W
If IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then
! }: q: D' e' S# {
Set objselect = ThisDrawing.SelectionSets.Add("TAG")) _1 m2 R- @, f
Else
( w2 U( G& R2 P4 e
Set objselect = ThisDrawing.SelectionSets.Item("TAG")
9 J6 C! O8 H9 V
End If
2 F; V' V3 X" e9 c
% A8 v' i6 f2 [# J E( {
'定义过滤器, C2 ]6 w- ?/ G5 d1 s' h" R
Dim FType As Variant! J6 @9 f6 k8 a: `( ^, \9 v
Dim FData As Variant; A& I' f* R# n+ C
FType = 26 w* z2 @4 h/ A; ^
FData = "INSERT" '*****我想选择块参照，是否应这样使用
6 O: X! o, ^, F ~* l6 @
'选择实体并使用选择集1 T9 w* c/ ^" g5 W4 B' |, ]9 S
objselect.Select acSelectionSetAll, , , FType, FData '****提示：参数filtertype（位于select中）无效
6 y$ {. c* a* s! |% N
i1 K0 L6 c6 C8 P6 V/ i+ E
'Do something...
) N, v4 D, T2 y9 J* A
( l& e$ K4 G. j+ W9 p; s. I6 j
'安全删除选择集
) M9 k( d1 }3 c6 l2 X2 Y$ H, k
If Not IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then& b+ r0 A9 y* P% `& v$ Q+ r
objselect.Delete
0 H a. v8 Z% L: D
End If
$ R+ u, ~( H4 q4 G0 s5 ~
End Sub

复制代码

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

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

5 N8 ^5 A$ g- X( W9 L5 D- ~2 G
'定义过滤器7 _) ?5 S. Q u1 ^ \* X/ g
Dim FType(0) As Integer
) J4 q; ?: g' } U; q @# l
Dim FData(0) As Variant1 {1 i: t1 ?7 V e" l s0 ]
FType(0) = 0+ l9 F6 N; M+ O4 T* s& \# Q
FData(0) = "INSERT"1 Q/ d2 c& e& B3 W) O+ ]0 Q1 p
'选择实体并使用选择集 S; f/ J; l; z/ z5 H
objselect.Select acSelectionSetAll, , , FType, FData
( N7 H3 B. z$ T; M& X8 w, u/ N5 }. a- Y

复制代码

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

谢谢斑竹大人！！

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

通知