jobschan 发表于 2005-6-4 23:15:00

肯定高手指点下，问题出什么地方了？

我在图形中有两个相交矩形，我将它们都炸开成直线，然后通过选择集选中所有直线，但是通过SelectAll方法却得不到直线，count显示为0，而使用selectonscreen方法获得却有8条直线（两个矩形），应该是选择集出问题了，还请高手指点下，谢谢！！


                               Dim SS As AcadSelectionSet                                        <BR>                               Set SS = Acaddoc.SelectionSets("SS")<BR>                                                       If Err Then<BR>                                                                                       Err.Clear<BR>                                                       Set SS = Acaddoc.SelectionSets.Add("SS")<BR>                                                       End If<BR>                               SS.Clear<BR>                       <BR>                                                                       <BR>                               Dim Entry As AcadEntity<BR>                               For Each Entry In MoSpace<BR>                                                       Entry.Explode<BR>                               Next<BR>                               <BR>                               Dim ft(0) As Integer, fd(0) As Variant<BR>                               ft(0) = 0<BR>                               fd(0) = "LINE"                                <BR><BR>                               SS.SelectAll, , ,ft, fd<BR>                               'SS.SelectOnScreen ft, fd<BR>                               Debug.Print SS.Count

mccad 发表于 2005-6-5 07:36:00

请注意对象模型中并没有SelectAll方法。

jobschan 发表于 2005-6-5 08:47:00

谢明总！
页: [1]
查看完整版本: 肯定高手指点下，问题出什么地方了？