块参照与选择集的问题

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

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

x

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

Public Sub FindBlock2()" [( n* ?8 t! J
'On Error Resume Next7 q+ Z, n2 g. C6 H
'安全创建新选择集; k! |& A: d: p, y
Dim objselect As AcadSelectionSet. {# t( J( \: N: a$ `: Y
If IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then7 D. V3 s- [& y
Set objselect = ThisDrawing.SelectionSets.Add("TAG")
0 H( X7 o# w* y6 U
Else
$ ~4 ~* k7 k& H- R
Set objselect = ThisDrawing.SelectionSets.Item("TAG")
" N( c5 m/ L! i& A. R1 b
End If
5 o2 E. r/ w m$ ^% k) q
% I$ U5 g: X0 Q0 I) R
'定义过滤器2 D& Z' L) P7 E4 M2 d$ F. K! N
Dim FType As Variant
* G7 d' o1 ^- `4 A: s5 \5 y3 H
Dim FData As Variant
$ q, r4 G7 k: M6 `7 B5 ]
FType = 2" _4 T7 L1 i# ]7 O4 p2 R4 g4 b
FData = "INSERT" '*****我想选择块参照，是否应这样使用9 u N# j5 H3 `/ Z7 ~
'选择实体并使用选择集
3 T/ f3 g7 w( |: w
objselect.Select acSelectionSetAll, , , FType, FData '****提示：参数filtertype（位于select中）无效7 h0 N/ |( B# C( |. V1 o
# h/ o* S# d$ S) y5 e
'Do something...
) w! Z* h3 q9 y' S
3 f! J5 Z& }; T, V4 ~
'安全删除选择集
- V# [& Y0 J8 \: b
If Not IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then
6 l9 ^' ~- Z+ |
objselect.Delete
. X7 s" ]8 |+ c& n# Z1 @
End If O6 M+ Y4 [: G& q) \
End Sub

复制代码

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

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

复制代码

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

谢谢斑竹大人！！

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

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知