问count的用法。

armylee · 发表于 2005-4-8 19:53:00

能用count获得自定义的选择集中项目的个数吗？
具体怎么样实现？

王咣生 · 发表于 2005-4-8 21:20:00

ssetObj.Count

armylee · 发表于 2005-4-8 21:47:00

Sub example_select()
   On Error Resume Next

   Dim myss As AcadSelectionSet
   If Not IsNull(ThisDrawing.SelectionSets.Item("myss")) Then
   Set myss = ThisDrawing.SelectionSets.Item("myss")
   myss.detele
   End If

   Set myss = ThisDrawing.SelectionSets.Add("myss")

   Dim mode As Integer
   mode = acSelectionSetAll
   myss.Select mode

   Dim returnobj As Object

   Dim re As Variant
   ThisDrawing.Utility.GetEntity returnobj, "Ñ¡ÔñÒ»¸öÍ¼Ïñ:"

   returnobj.color = acRed
   returnobj.Update
   startpoint = returnobj.startpoint
   endpoint = returnobj.endpoint
   re = returnobj.ObjectName
   MsgBox "×ø±êÆðµã" & startpoint(0) & "," & startpoint(1) & "," & startpoint(2) & "    ÖÕµã    " & endpoint(0) & "," & endpoint(1) & "," & endpoint(2) & "    id    " & re
   returnobj.color = acByLayer
   returnobj.Update
   myss.RemoveItems returnobj


   MsgBox "    ¸öÊý    " & myss.count


End Sub为什么运行后是3个，难道myss.RemoveItems returnobj没有用？

mccad · 发表于 2005-4-8 21:57:00

returnobj必须为图元数组，而不是图元。
程序中GetEntity中的参数缺少，这样的结果是returnobj连图元都没返回

armylee · 发表于 2005-4-8 21:59:00

可以帮我改一下让我看看吗？
光看书发现好多弄不懂啊。

mccad · 发表于 2005-4-8 22:27:00

copy


Sub example_select()
       On Error Resume Next
       
       Dim myss As AcadSelectionSet
       If Not IsNull(ThisDrawing.SelectionSets.Item("myss")) Then
               Set myss = ThisDrawing.SelectionSets.Item("myss")
               myss.detele
       End If
       
       Set myss = ThisDrawing.SelectionSets.Add("myss")
       
       Dim mode As Integer
       mode = acSelectionSetAll
       myss.Select mode
   MsgBox "选择集数量" & myss.Count
       
       Dim returnobj(0) As Object
       Dim returnpnt As Variant
       
       Dim re As Variant
       ThisDrawing.Utility.GetEntity returnobj(0), returnpnt, "选择直线:"
       
       returnobj(0).color = acRed
       returnobj(0).Update
       Dim StartPoint, EndPoint
       StartPoint = returnobj(0).StartPoint
       EndPoint = returnobj(0).EndPoint
       re = returnobj(0).ObjectName
       MsgBox "起点 " & StartPoint(0) & "," & StartPoint(1) & "," & StartPoint(2) & "   终点 " & EndPoint(0) & "," & EndPoint(1) & "," & EndPoint(2) & "   id   " & re
       returnobj(0).color = acByLayer
       returnobj(0).Update
       
       myss.RemoveItems returnobj
       
       
   MsgBox "选择集数量" & myss.Count
       
       
End Sub

armylee · 发表于 2005-4-8 22:30:00

真是太感谢了，学二次开发三个多星期了。
发现看书好多东西弄不懂。
以后希望能够多多向您请教。

问count的用法。

发表回复

精选推荐