QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
本帖最后由 woaishuijia 于 2010-9-5 06:04 编辑 ) Z* d4 A( R: ~; T" k
  1. Public Sub FindBlock2()
      X! @& S2 ?1 W, L
  2. 'On Error Resume Next
    4 k9 r) y6 F, s% A
  3. '安全创建新选择集
    - \. B+ t) u! I. F! G2 [
  4. Dim objselect As AcadSelectionSet
    + g1 m1 r; N! q5 ^; h
  5. If IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then
    / v  P, m: H( ?3 s  x" V, z
  6. Set objselect = ThisDrawing.SelectionSets.Add("TAG")
    ( {  ]) k  I" m" Q
  7. Else
    % J. l0 [" P! N9 I/ p7 Y
  8. Set objselect = ThisDrawing.SelectionSets.Item("TAG")
    0 n+ q3 E3 Q3 }  ~' i) s% H2 P
  9. End If
    * H" ~7 \. A9 t0 Q9 I& ], F
  10. 4 q$ E) t% L, q, q) B4 D
  11. '定义过滤器- F+ D7 O6 y- N
  12. Dim FType As Variant* i. i' }0 l9 Y# f
  13. Dim FData As Variant3 g: W: P5 h# d" b% J0 d
  14. FType = 2
    8 x0 e: ~( s1 V, T
  15. FData = "INSERT"   '*****我想选择块参照,是否应这样使用/ L0 s: v/ B+ Q2 }
  16. '选择实体并使用选择集5 a* T8 c; N9 ~) A7 p! l5 ?
  17. objselect.Select acSelectionSetAll, , , FType, FData   '****提示:参数filtertype(位于select中)无效9 G2 n0 P4 f& u. P/ @- D# l/ M

  18. ) C. X6 O7 r0 \( e
  19. 'Do something...: G) x5 Z2 b7 `

  20. 9 \2 ?% z) H: y+ U) K' `: v+ o
  21. '安全删除选择集7 G$ U. V: g8 J' W- ^1 U( A" ~
  22. If Not IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then9 t  H5 M6 n2 H
  23. objselect.Delete
    2 z. V# a0 X4 c  W' \+ ?
  24. End If: w, H2 E! E/ t6 D4 ^+ w
  25. End Sub
复制代码
发表于 2010-9-5 06:13:52 | 显示全部楼层 来自: 中国辽宁铁岭
本帖最后由 woaishuijia 于 2010-9-5 06:15 编辑
6 J, ?4 B7 `% Q( l! d* j

  1. 4 ?: H: ]0 ]4 M" u, z, G- j7 X
  2. '定义过滤器
    3 [! Z& a  d) ?- X& a
  3. Dim FType(0) As Integer2 v# s4 ?' G6 U) k0 x; o+ F1 |
  4. Dim FData(0) As Variant
    2 z1 a! _2 c# _2 E" }% S
  5. FType(0) = 0
    + J! h: ?& g0 o! B8 Q
  6. FData(0) = "INSERT"' X3 `. V8 F$ R  A6 f6 H, u! P
  7. '选择实体并使用选择集& t  {; o; N6 {: I& {) {) j
  8. objselect.Select acSelectionSetAll, , , FType, FData   
    3 P7 p' `9 K$ @8 g/ c2 W
复制代码
 楼主| 发表于 2010-9-5 07:22:22 | 显示全部楼层 来自: 中国北京
谢谢斑竹大人!!
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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