只選擇圖層SIDE中的polyline為什麼會失敗

yuangw1234

本人以下程序为什么会失败呢？错误我知道在

Ftype(1) = 0
Fdata(1) = "polyline"　这两句

因为将polyline改为circle,就可以实现只选SIDE上的圆了，请问只选多义线怎么不是polyline,如果本人将polyline改为*line可以选到polyline，但同是也选上了不想要的line，请老师指教，谢谢

Public Sub copyboard()
On Error Resume Next
Dim ssetobj As AcadSelectionSet
Dim Ftype(3) As Integer
Dim Fdata(3) As Variant
ThisDrawing.SelectionSets("cbss").Delete
If Err Then
Err.Clear
End If
Ftype(0) = -4
Fdata(0) = "<and"
Ftype(1) = 0
Fdata(1) = "polyline"
Ftype(2) = 8
Fdata(2) = "SIDE"
Ftype(3) = -4
Fdata(3) = "and>"
Set ssetobj = ThisDrawing.SelectionSets.Add("cbss")
ssetobj.SelectOnScreen Ftype, Fdata

End Sub

雪山飞狐_lzh

Dim Ftype(1) As Integer
Dim Fdata(1) As Variant

Ftype(0) = 0
Fdata(0) = "*polyline"
Ftype(1) = 8
Fdata(1) = "SIDE"