块参照与选择集的问题

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

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

x

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

Public Sub FindBlock2(), M) }! k0 J0 F. J9 _3 ]0 O
'On Error Resume Next
* ?7 z: |) o0 d; ^
'安全创建新选择集
# ^9 f* `: [8 p5 v* G+ }1 m5 V% O
Dim objselect As AcadSelectionSet6 g( \. j$ @' j1 [5 ~7 J
If IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then! Z z- t4 ]9 w, z3 S
Set objselect = ThisDrawing.SelectionSets.Add("TAG")
8 g) n% w& X! t, }
Else
; r' L! Z, R, v7 j! L5 t
Set objselect = ThisDrawing.SelectionSets.Item("TAG")
7 S H) Y g- m
End If
N0 h" F# k7 B B. s6 ?" t
% ]8 J& g* V) Z4 L3 J$ u; ?
'定义过滤器
% o8 F6 X. T+ A' a" `7 H# n- h" }
Dim FType As Variant
, n% o+ R T, f6 V' F6 _1 I
Dim FData As Variant
( P, [3 _# S' a5 o6 F: I
FType = 2
' V% l5 B. n* s5 p
FData = "INSERT" '*****我想选择块参照，是否应这样使用, P! V [. }: B3 b* o; ?
'选择实体并使用选择集
D1 j3 H* N, N! F5 o) {' T
objselect.Select acSelectionSetAll, , , FType, FData '****提示：参数filtertype（位于select中）无效, [+ S. z) x) F, l& T: L7 k
6 S5 G3 E4 F T7 Z* M9 h
'Do something...: C& `# b8 \) B' v+ M( Y5 w
z) F' f7 s4 m; s; @. o
'安全删除选择集% J9 a: T% R; n7 [
If Not IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then; s3 H- C" y u' z/ S1 Q: d& [
objselect.Delete6 h9 q$ I' b& j: d' V
End If
6 l( G- O. E) M1 ~% I
End Sub

复制代码

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

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

' w% F6 g, D: B7 x/ U7 n. w
'定义过滤器
( S8 U; n# F& n6 ?
Dim FType(0) As Integer
6 O- d& t2 r9 i4 J
Dim FData(0) As Variant# c, M+ |! P( O4 ~7 R
FType(0) = 0' {/ |: a/ t1 p
FData(0) = "INSERT"
, u% p: X& \* q0 n9 c! F
'选择实体并使用选择集& x' b( s- f2 A* P/ H/ r
objselect.Select acSelectionSetAll, , , FType, FData 3 U2 Y' }9 S/ _$ L7 u2 E4 U3 F

复制代码

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

谢谢斑竹大人！！

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

通知