块参照与选择集的问题

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

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

x

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

Public Sub FindBlock2()
+ a' ]$ b. V# w9 y% H5 h, a( L
'On Error Resume Next
! f/ X6 D. l; e; X2 r
'安全创建新选择集0 i* \0 w9 W; v1 O, p" G
Dim objselect As AcadSelectionSet
: R8 m- I" I( _7 ^' @
If IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then* i1 f# N/ a! C2 G$ e2 y" h) Q
Set objselect = ThisDrawing.SelectionSets.Add("TAG")
G+ H1 q) I2 ~& W
Else' R: y/ V G0 [! h
Set objselect = ThisDrawing.SelectionSets.Item("TAG")
( P% F7 ^# v. v6 Q0 f
End If
1 b: l5 W) i, R5 s
8 h. l5 [$ |/ U2 p0 R7 K1 }
'定义过滤器
; m% w& q% w8 B7 K& Q9 o9 J k0 `
Dim FType As Variant- H" G; B5 h& E: ?, F- w+ k
Dim FData As Variant
* `1 R+ d; s1 t) b
FType = 2
& z- Y+ U3 g3 w
FData = "INSERT" '*****我想选择块参照，是否应这样使用
( v9 [. ]2 S7 v' F7 i2 H
'选择实体并使用选择集" G9 _8 ], J1 {
objselect.Select acSelectionSetAll, , , FType, FData '****提示：参数filtertype（位于select中）无效. i3 D% A, o$ ^2 ^: M6 V+ b
|% i! Q' [8 C$ u
'Do something..." b [! T9 b& h- Y1 f, \$ k
6 G- V- y: |* F( P# ]
'安全删除选择集
; E$ k' z! v6 p' w; z0 v+ ~
If Not IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then+ f3 ? G: v3 D' ?( h
objselect.Delete! D8 S# M% ^% \$ ]* w! }
End If3 c- p$ z9 o) ~5 o
End Sub

复制代码

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

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

4 R8 ]5 }& y/ ~; T
'定义过滤器/ M0 O7 L& n' w$ l }( G+ Q
Dim FType(0) As Integer, \* x& H, v. {0 s
Dim FData(0) As Variant7 ]: U7 b& h5 a+ ?
FType(0) = 06 v9 B3 s/ W/ j5 u. k
FData(0) = "INSERT"; u; B0 b7 F# X! D9 X6 V
'选择实体并使用选择集
' r& s3 a/ X5 o. r# u% O
objselect.Select acSelectionSetAll, , , FType, FData 1 Z; e" q7 o: S; I/ q4 m0 y' P

复制代码

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

谢谢斑竹大人！！

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

通知