烟雨.江南 发表于 2009-9-10 08:16:00

选择集能否过滤指定顶点个数的多义线？

如题。如果要过滤指定顶点个数的多义线，过滤条件应该怎么写呢？

雪山飞狐_lzh 发表于 2009-9-10 08:23:00

<p>90组码</p><p>Sub tt()<br/>On Error Resume Next</p><p>Dim ss As AcadSelectionSet<br/>ThisDrawing.SelectionSets("Test").Delete<br/>Set ss = ThisDrawing.SelectionSets.Add("Test")</p><p>Dim ft(1) As Integer, fd(1)</p><p>ft(0) = 0: fd(0) = "LWPOLYLINE"<br/>ft(1) = 90: fd(1) = 3</p><p>ss.Select acSelectionSetAll, , , ft, fd<br/>MsgBox ss.Count<br/>End Sub</p>

烟雨.江南 发表于 2009-9-10 09:27:00

<p>多谢版主。LWPolyline 这样是可以了，但其它的多义线用90组码不行啊。</p>

雪山飞狐_lzh 发表于 2009-9-10 09:40:00

<p>似乎只有LWPolyline可以</p><p>二维（旧格式）、三维多义线的顶点是子实体，Dxf数据没有保存在多义线上</p><p>你可以看下Dxf帮助</p>

壮硕的程序猿 发表于 2015-9-16 18:53:33

前辈！我看你八年前就写贴问了   VBA的选择集实体选中解决方法！你最后解决了这个问题了吗？
页: [1]
查看完整版本: 选择集能否过滤指定顶点个数的多义线？