QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2485|回复: 2
收起左侧

[已答复] 块参照与选择集的问题

[复制链接]
发表于 2010-9-4 23:35:43 | 显示全部楼层 |阅读模式 来自: 中国北京

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

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

x
本帖最后由 woaishuijia 于 2010-9-5 06:04 编辑
# P+ ~3 `$ f3 y# g1 X
  1. Public Sub FindBlock2()
    * h  r, {: e5 Y0 O
  2. 'On Error Resume Next/ S! Z' M% J- W4 E
  3. '安全创建新选择集
    9 ~' s4 ?) e7 D0 o& V, e
  4. Dim objselect As AcadSelectionSet1 N. z3 n8 {" f/ R0 W
  5. If IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then
    ! }: q: D' e' S# {
  6. Set objselect = ThisDrawing.SelectionSets.Add("TAG")) _1 m2 R- @, f
  7. Else
    ( w2 U( G& R2 P4 e
  8. Set objselect = ThisDrawing.SelectionSets.Item("TAG")
    9 J6 C! O8 H9 V
  9. End If
    2 F; V' V3 X" e9 c

  10. % A8 v' i6 f2 [# J  E( {
  11. '定义过滤器, C2 ]6 w- ?/ G5 d1 s' h" R
  12. Dim FType As Variant! J6 @9 f6 k8 a: `( ^, \9 v
  13. Dim FData As Variant; A& I' f* R# n+ C
  14. FType = 26 w* z2 @4 h/ A; ^
  15. FData = "INSERT"   '*****我想选择块参照,是否应这样使用
    6 O: X! o, ^, F  ~* l6 @
  16. '选择实体并使用选择集1 T9 w* c/ ^" g5 W4 B' |, ]9 S
  17. objselect.Select acSelectionSetAll, , , FType, FData   '****提示:参数filtertype(位于select中)无效
    6 y$ {. c* a* s! |% N

  18.   i1 K0 L6 c6 C8 P6 V/ i+ E
  19. 'Do something...
    ) N, v4 D, T2 y9 J* A

  20. ( l& e$ K4 G. j+ W9 p; s. I6 j
  21. '安全删除选择集
    ) M9 k( d1 }3 c6 l2 X2 Y$ H, k
  22. If Not IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then& b+ r0 A9 y* P% `& v$ Q+ r
  23. objselect.Delete
    0 H  a. v8 Z% L: D
  24. End If
    $ R+ u, ~( H4 q4 G0 s5 ~
  25. End Sub
复制代码
发表于 2010-9-5 06:13:52 | 显示全部楼层 来自: 中国辽宁铁岭
本帖最后由 woaishuijia 于 2010-9-5 06:15 编辑 , U1 ^' a! P4 Z' w
  1. 5 N8 ^5 A$ g- X( W9 L5 D- ~2 G
  2. '定义过滤器7 _) ?5 S. Q  u1 ^  \* X/ g
  3. Dim FType(0) As Integer
    ) J4 q; ?: g' }  U; q  @# l
  4. Dim FData(0) As Variant1 {1 i: t1 ?7 V  e" l  s0 ]
  5. FType(0) = 0+ l9 F6 N; M+ O4 T* s& \# Q
  6. FData(0) = "INSERT"1 Q/ d2 c& e& B3 W) O+ ]0 Q1 p
  7. '选择实体并使用选择集  S; f/ J; l; z/ z5 H
  8. objselect.Select acSelectionSetAll, , , FType, FData   
    ( N7 H3 B. z$ T; M& X8 w, u/ N5 }. a- Y
复制代码
 楼主| 发表于 2010-9-5 07:22:22 | 显示全部楼层 来自: 中国北京
谢谢斑竹大人!!
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表