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

烟雨.江南

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

雪山飞狐_lzh

90组码

Sub tt()
On Error Resume Next

Dim ss As AcadSelectionSet
ThisDrawing.SelectionSets("Test").Delete
Set ss = ThisDrawing.SelectionSets.Add("Test")

Dim ft(1) As Integer, fd(1)

ft(0) = 0: fd(0) = "LWPOLYLINE"
ft(1) = 90: fd(1) = 3

ss.Select acSelectionSetAll, , , ft, fd
MsgBox ss.Count
End Sub

烟雨.江南

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

雪山飞狐_lzh

似乎只有LWPolyline可以

二维（旧格式）、三维多义线的顶点是子实体，Dxf数据没有保存在多义线上

你可以看下Dxf帮助

壮硕的程序猿

前辈！我看你八年前就写贴问了   VBA的选择集实体选中解决方法！  你最后解决了这个问题了吗？