问count的用法。

armylee

能用count获得自定义的选择集中项目的个数吗？


具体怎么样实现？

王咣生

ssetObj.Count

armylee

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

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

armylee

可以帮我改一下让我看看吗？


光看书发现好多弄不懂啊。

mccad

2. Sub example_select()
3.        On Error Resume Next
4.       
5.        Dim myss As AcadSelectionSet
6.        If Not IsNull(ThisDrawing.SelectionSets.Item("myss")) Then
7.                Set myss = ThisDrawing.SelectionSets.Item("myss")
8.                myss.detele
9.        End If
10.       
11.        Set myss = ThisDrawing.SelectionSets.Add("myss")
12.       
13.        Dim mode As Integer
14.        mode = acSelectionSetAll
15.        myss.Select mode
16.    MsgBox "选择集数量" & myss.Count
17.       
18.        Dim returnobj(0) As Object
19.        Dim returnpnt As Variant
20.       
21.        Dim re As Variant
22.        ThisDrawing.Utility.GetEntity returnobj(0), returnpnt, "选择直线:"
23.       
24.        returnobj(0).color = acRed
25.        returnobj(0).Update
26.        Dim StartPoint, EndPoint
27.        StartPoint = returnobj(0).StartPoint
28.        EndPoint = returnobj(0).EndPoint
29.        re = returnobj(0).ObjectName
30.        MsgBox "起点 " & StartPoint(0) & "," & StartPoint(1) & "," & StartPoint(2) & "   终点 " & EndPoint(0) & "," & EndPoint(1) & "," & EndPoint(2) & "   id   " & re
31.        returnobj(0).color = acByLayer
32.        returnobj(0).Update
33.       
34.        myss.RemoveItems returnobj
35.       
36.       
37.    MsgBox "选择集数量" & myss.Count
38.       
39.       
40. End Sub

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

真是太感谢了，学二次开发三个多星期了。


发现看书好多东西弄不懂。


以后希望能够多多向您请教。