yuangw1234 发表于 2006-4-19 12:30:00

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

<P>本人以下程序为什么会失败呢？错误我知道在</P>
<P>Ftype(1) = 0<BR>Fdata(1) = "polyline"　这两句</P>
<P>因为将polyline改为circle,就可以实现只选SIDE上的圆了，请问只选多义线怎么不是polyline,如果本人将polyline改为*line可以选到polyline，但同是也选上了不想要的line，请老师指教，谢谢<BR></P>
<P>Public Sub copyboard()<BR>On Error Resume Next<BR>Dim ssetobj As AcadSelectionSet<BR>Dim Ftype(3) As Integer<BR>Dim Fdata(3) As Variant<BR>ThisDrawing.SelectionSets("cbss").Delete<BR>If Err Then<BR>Err.Clear<BR>End If<BR>Ftype(0) = -4<BR>Fdata(0) = "&lt;and"<BR>Ftype(1) = 0<BR>Fdata(1) = "polyline"<BR>Ftype(2) = 8<BR>Fdata(2) = "SIDE"<BR>Ftype(3) = -4<BR>Fdata(3) = "and&gt;"<BR>Set ssetobj = ThisDrawing.SelectionSets.Add("cbss")<BR>ssetobj.SelectOnScreen Ftype, Fdata</P>
<P>End Sub</P>

雪山飞狐_lzh 发表于 2006-4-19 13:33:00

<P>Dim Ftype(1) As Integer<BR>Dim Fdata(1) As Variant</P>
<P>Ftype(0) = 0<BR>Fdata(0) = "*polyline"<BR>Ftype(1) = 8<BR>Fdata(1) = "SIDE"<BR></P>
页: [1]
查看完整版本: 只選擇圖層SIDE中的polyline為什麼會失敗