块参照与选择集的问题

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

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

x

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

Public Sub FindBlock2(), B8 O( _3 x, M- O
'On Error Resume Next
2 z) ?" y6 y) r/ p3 B
'安全创建新选择集
* b* m* ?+ C. A1 e& [
Dim objselect As AcadSelectionSet
% n2 L" A4 r; |* i) u. b3 i3 t
If IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then' s X, X, T' \* H J# s9 N
Set objselect = ThisDrawing.SelectionSets.Add("TAG")
$ t% k6 D* k) n& Y3 l& E# O0 `
Else
1 L5 q( v# [: P( ^1 t
Set objselect = ThisDrawing.SelectionSets.Item("TAG")% f+ |+ R% o0 e8 U$ d9 w9 @: S1 a
End If! u5 h+ T4 S* ^! J! Z" y7 Q% |
5 m' ~. O8 x, K: `5 b2 G
'定义过滤器
- a8 [8 F# k% @4 V. ?8 [
Dim FType As Variant, D. y' k3 E) C5 B) a; U
Dim FData As Variant
0 C; p9 F( n% B; N0 ~! i# Z
FType = 2
# d2 ?! n. k. o$ z; D8 M
FData = "INSERT" '*****我想选择块参照，是否应这样使用
. x& g2 c, w# ?! D# v3 U
'选择实体并使用选择集8 ^, J* k' Q* t! X, O
objselect.Select acSelectionSetAll, , , FType, FData '****提示：参数filtertype（位于select中）无效; F# A' `) h6 x% X" O: E. L
' }1 F, R @+ F" n- P4 W5 h
'Do something...
( i1 Y6 l2 w7 d# `6 [* m
[. f5 N- T# a% c1 w& C( F
'安全删除选择集
/ K' q: D# J: G% z) I4 S1 h
If Not IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then0 v0 Q- F; F6 t8 j
objselect.Delete
0 F8 p" `- n9 N1 v' y
End If M4 R2 K9 D9 f! Y ?
End Sub

复制代码

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

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

! j" ? y3 b* R% S5 U
'定义过滤器$ x9 |* P: N) x& }! z- L2 X* I2 J, O
Dim FType(0) As Integer
: {& u X1 v; S% w
Dim FData(0) As Variant
' Z [5 n W( q2 i
FType(0) = 0
5 W+ ?, K% A$ s$ z
FData(0) = "INSERT"4 k3 S N' w+ R ^" R6 J7 F) V
'选择实体并使用选择集
) q/ z2 j. U5 j6 M% l/ E
objselect.Select acSelectionSetAll, , , FType, FData
8 E) B+ Q/ ? m# `( v0 G3 K3 ^

复制代码

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

谢谢斑竹大人！！

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

通知