[VBA]两个问题请教

ntchjie

1、关于块筛选的问题，FilterType设置为0， FilterData用什么字符串？块上有扩展数据，是否与这个有关，我试过了很多，都不成功。


2、附图中选择了首尾两个直线，用算法如何实现读入图中红色的线段的长度。


如果一根与一跟相连，可以读入，但一根接两根，特别是多个一接两，就比较复杂了，请斑竹指教指教算法。

ntchjie

不知道为什么，图没有贴上去。

雪山飞狐_lzh

1、命令行键入"(entget(car(entsel)))",选择要过滤的实体看看DXF组码



2、用回溯法，从起点出发，先找一个路径，如果终点正好对应成功，如果不是，就会退一个点再找，直到找到为止

ntchjie

获取到的数据如下： ((-1 . <Entity name: 7ef81e18>) (0 . "INSERT") (330 . <Entity
name: 7ef76c10>) (5 . "158DEB") (100 . "AcDbEntity") (67 . 0) (410 . "Model")
(8 . "A_A") (6 . "ByBlock") (100 . "AcDbBlockReference") (2 . "cj_jcj") (10
97782.1 21024.2 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 .
0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0)) 我想应该是AcDbBlockReference，但调试没有成功。 奇怪的是，居然是INSERT，真的迷惑了。

CLARKLEE

请问板竹DXF组码是什么东东，我不太理解，是过几次均不成功


能不能详细解答一下

雪山飞狐_lzh

DXF组码是CAD实体在Dwg文件中的实际组成形式（个人观点），帮助里有关于DXF组码的详细说明

zzp-2000

带属性的块组码是2，名称是块的名称，示例： 这是我在图形中快速查找“GUANKOUHAO”和“GUANKOUBIAO”的属性块，并在找到后删除的一段模块。 Dim ssets As AcadSelectionSet
Dim EntObj As AcadObject
Dim gpCode(3) As Integer
Dim dataValue(3) As Variant
Dim groupCode As Variant, dataCode As Variant
Dim N As Integer
Dim varAtt As Variant
On Error Resume Next
Set ssets = DOCobj.SelectionSets("ZZPset")
If Err Then
Err.Clear
Set ssets = DOCobj.SelectionSets.Add("ZZPset")
End If
ssets.Clear
gpCode(0) = -4: gpCode(1) = 2: gpCode(2) = 2: gpCode(3) = -4
dataValue(0) = "<OR": dataValue(1) = "GuanKouBiao": dataValue(2) = "GuanKouHao": dataValue(3) = "OR>"
groupCode = gpCode
dataCode = dataValue
ssets.Select acSelectionSetAll, , , groupCode, dataCode
For N = 0 To ssets.Count - 1
Set EntObj = ssets.Item(N)
varAtt = EntObj.GetAttributes
If varAtt(0).TextString = "管口号" Then
ElseIf varAtt(0).TextString = GKHname Then
EntObj.Delete
End If
Next N
Set EntObj = Nothing
ssets.Delete
End Sub

laoliu09

如果块属性不止一个的话，这样就不行了，应该改一下 for i=0 to Ubound(varAtt) step 2 If varAtt(i).TextString = "管口号" Then EntObj.Delete
ElseIf varAtt(i).TextString = GKHname Then EntObj.Delete
End If