[VBA]两个问题请教
1、关于块筛选的问题，FilterType设置为0， FilterData用什么字符串？块上有扩展数据，是否与这个有关，我试过了很多，都不成功。2、附图中选择了首尾两个直线，用算法如何实现读入图中红色的线段的长度。
如果一根与一跟相连，可以读入，但一根接两根，特别是多个一接两，就比较复杂了，请斑竹指教指教算法。 不知道为什么，图没有贴上去。
1、命令行键入"(entget(car(entsel)))",选择要过滤的实体看看DXF组码
2、用回溯法，从起点出发，先找一个路径，如果终点正好对应成功，如果不是，就会退一个点再找，直到找到为止 获取到的数据如下：
((-1 . <Entity name: 7ef81e18>) (0 . "INSERT") (330 . <Entity <BR>name: 7ef76c10>) (5 . "158DEB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") <BR>(8 . "A_A") (6 . "ByBlock") (100 . "AcDbBlockReference") (2 . "cj_jcj") (10 <BR>97782.1 21024.2 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . <BR>0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))
我想应该是AcDbBlockReference，但调试没有成功。
奇怪的是，居然是INSERT，真的迷惑了。 请问板竹DXF组码是什么东东，我不太理解，是过几次均不成功
能不能详细解答一下 DXF组码是CAD实体在Dwg文件中的实际组成形式（个人观点），帮助里有关于DXF组码的详细说明 带属性的块组码是2，名称是块的名称，示例：
这是我在图形中快速查找“GUANKOUHAO”和“GUANKOUBIAO”的属性块，并在找到后删除的一段模块。
Dim ssets As AcadSelectionSet<BR>Dim EntObj As AcadObject<BR>Dim gpCode(3) As Integer<BR>Dim dataValue(3) As Variant<BR>Dim groupCode As Variant, dataCode As Variant<BR>Dim N As Integer<BR>Dim varAtt As Variant<BR>On Error Resume Next<BR>Set ssets = DOCobj.SelectionSets("ZZPset")<BR>If Err Then<BR> Err.Clear<BR> Set ssets = DOCobj.SelectionSets.Add("ZZPset")<BR>End If<BR>ssets.Clear<BR>gpCode(0) = -4: gpCode(1) = 2: gpCode(2) = 2: gpCode(3) = -4<BR>dataValue(0) = "<OR": dataValue(1) = "GuanKouBiao": dataValue(2) = "GuanKouHao": dataValue(3) = "OR>"<BR>groupCode = gpCode<BR>dataCode = dataValue<BR>ssets.Select acSelectionSetAll, , , groupCode, dataCode<BR>For N = 0 To ssets.Count - 1<BR> Set EntObj = ssets.Item(N)<BR> varAtt = EntObj.GetAttributes<BR> If varAtt(0).TextString = "管口号" Then<BR> ElseIf varAtt(0).TextString = GKHname Then<BR> EntObj.Delete<BR> End If<BR>Next N<BR>Set EntObj = Nothing<BR>ssets.Delete<BR>End Sub<BR> 如果块属性不止一个的话，这样就不行了，应该改一下
for i=0 to Ubound(varAtt) step 2
If varAtt(i).TextString = "管口号" Then EntObj.Delete<BR>ElseIf varAtt(i).TextString = GKHname Then EntObj.Delete<BR>End If
页:
[1]