选择集中的点转成数组后出现的问题？

bsirhell

选择集中的点转成数组后出现的问题？源程序如下：

Sub mm()
  On Error Resume Next
   Dim sset As AcadSelectionSet
    Dim objcir As AcadCircle
    Dim radius As Double
   
    Dim filtertype(0) As Integer
    Dim filterdata(0) As Variant
   
    If Not IsNull(ThisDrawing.SelectionSets.Item("Circles")) Then
       Set sset = ThisDrawing.SelectionSets.Item("Circles")
       sset.Delete
    End If
    Set sset = ThisDrawing.SelectionSets.Add("Circles")
   
    filtertype(0) = 0 '设置选择过滤器
    filterdata(0) = "circle"
 
    sset.SelectOnScreen filtertype, filterdata
     Dim ptarr()
    Dim count As Integer
    count = sset.count
    ReDim ptarr(count - 1)
     For Each objcir In sset
   
     Dim ptcen As Variant
     ptcen = objcir.Center
     Dim i As Integer
     For i = 0 To count - 1
     Dim cir1 As AcadCircle
     Set cir1 = sset.Item(i)
     cir1.Center = ptarr(i)
     Next i
     Next
    Dim pt1 As Variant
    pt1 = ptarr(0)
    MsgBox pt1(0)
    MsgBox pt1(1)
    
End Sub

运行后无任何反应！

fjfhgdwfn

ReDim ptarr(count - 1,2)
dim ii,i as Integer    

ii=0

i=0 

For Each objcir In sset
   
     Dim ptcen As Variant
    ' ptcen = objcir.Center

  Set ptcen = objcir.Center
     For i = 0 To 2

ptarr(ii,i)=ptcen(i)
         Next i

ii=ii+1
     Next
改成这样试试

bsirhell

先谢谢！

还是不行

Dim x As Double
 Dim y As Double
 x = ptarr(0, 0)
 y = ptarr(0, 1)
    MsgBox x
    MsgBox y

任何时候显示为0，0

 

雪山飞狐_lzh

2. ReDim ptarr(sset.count - 1)
3. For i= 0 to sset.count-1   
4.      ptarr(i)=sset(i).Center
5. Next
6. msgbox ptarr(0)(0) & "," & ptarr(0)(1) & "," & ptarr(0)(2)

ReDim ptarr(sset.count - 1) For i= 0 to sset.count-1         ptarr(i)=sset(i).Center Next msgbox ptarr(0)(0) & "," & ptarr(0)(1) & "," & ptarr(0)(2)