求助，怎样列举只存在于图形中的块名称？

upc1999 · 发表于 2014-7-4 16:10:36

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

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

x

本帖最后由 upc1999 于 2014-7-4 16:24 编辑

我需要筛选特定的块名，比如图框A1，但是如果有插入过又删掉的块，还保留在块列表里，就需要判断这个块是不是在图形中使用。
我搜索到的代码都是先历遍实体，再判断是否为块，效率太低，有没有办法先列举块名称，再判断是不是在图行中使用？

Dim entry As AcadEntity, blk1 As AcadBlockReference
For Each entry In activeDoc.ModelSpace
      If entry.ObjectName = "AcDbBlockReference" Then
      Set blk1 = entry
      if blk1.name="块名称" then
……
next

SunVei · 发表于 2014-7-4 22:10:02

未学VBA , 此是 Lisp 语句
(ssget "X" '((0 . "INSERT") (2 . "A1")))

插入过又删掉的话返回值为 nil

upc1999 · 发表于 2014-7-5 09:42:44

谢谢沙发，我用另一种方法解决了这个困扰我很久的问题，先清理块，这样块集合里就只有在图形里使用的块了，再筛选块名称。
清理块代码
ThisDrawing.SendCommand "-purge" & vbCr & "B" & vbCr & vbCr & "N" & vbCr
筛选块代码
for each blk1 in thisdrawing.blocks
if bkl1.name="GB_A1" then
……
end if

woaishuijia · 发表于 2014-7-5 13:50:06

为什么不用选择集？

Dim SS As AcadSelectionSet, FT(1) As Integer, FD(1) As Variant
; q, O- d' M: R
FT(0) = 0: FD(0) = "INSERT"
( W+ I- t' u/ l0 w8 I$ g
FT(1) = 2: FD(1) = "块名称"
* s+ z* u6 j$ R! |
Set SS = ThisDrawing.SelectionSets.Add("SSS")' x) k; P4 I' y/ P) Y
SS.Select acSelectionSetAll, , , FT, FD2 M# X3 o1 d; p% C3 v8 W1 g7 S
MsgBox "图形中包含有名为" & Chr(34) & "块名称" & Chr(34) & "的块参照" & SS.Count & "个", vbOKOnly
( F9 V& @/ g2 e& M9 Q1 i
SS.Delete

复制代码

upc1999 · 发表于 2014-7-5 14:48:46

本帖最后由 upc1999 于 2014-7-5 15:26 编辑

版主厉害，代码测试成功。
再请教版主，块名称有十几种，开头都是GB，比如GBA1、GBA2、GBA3，图中可能有其中的一种或者多种，我要统计图里这样的块分别有多少个，只用选择集能实现吗？

woaishuijia · 发表于 2014-7-5 19:07:17

upc1999 发表于 2014-7-5 14:48 static/image/common/back.gif
( d8 K. t: |5 h/ ?5 ~版主厉害，代码测试成功。: S: h) S7 w3 X8 M* L1 D
再请教版主，块名称有十几种，开头都是GB，比如GBA1、GBA2、GBA3，图中可能有其 ...

Dim SS As AcadSelectionSet, FT(5) As Integer, FD(5) As Variant
FT(0) = 0: FD(0) = "INSERT"# z6 T" q7 S, k8 V8 D" X M
FT(1) = -4: FD(1) = "<or"
" D0 {- s- U; O+ V5 ^
FT(2) = 2: FD(2) = "块名称1"
8 b! R" A0 {9 D g
FT(3) = 2: FD(3) = "块名称2"7 ]2 e2 G# F- d" Q* |9 Y h
FT(4) = 2: FD(4) = "块名称3"9 i3 } D) r/ L/ ]' I% i
FT(5) = -4: FD(5) = "or>"
# W8 c/ L' r% \3 g# `- x
Set SS = ThisDrawing.SelectionSets.Add("SSS")
+ M5 n, M& S4 R/ |. [! n) Q
SS.Select acSelectionSetAll, , , FT, FD
$ W5 b3 o) ]6 a2 M" V
MsgBox "图形中包含有名为" & Chr(34) & "块名称1" & Chr(34) & "或" & Chr(34) & "块名称2" & Chr(34) & "或" & Chr(34) & "块名称3" & Chr(34) & "的块参照共" & SS.Count & "个", vbOKOnly
, ]% l U4 T: o" j) o& N$ ^- i
SS.Delete+ D4 I9 ]) B2 N. }* D& d- H

复制代码

upc1999 · 发表于 2014-7-6 12:01:50

再次感谢版主，我今年才开始学习cad开发，还得多学习。

huwenliang · 发表于 2019-12-29 16:45:27

高手多！

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

全站		goto3d 说: 版主微信号：caivin811031；还未入三维微信群的小伙伴，速度加	2022-07-04
全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11

通知

[已答复] 求助，怎样列举只存在于图形中的块名称？

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