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

bsirhell 发表于 2006-8-12 08:30:00

选择集中的点转成数组后出现的问题？源程序如下：
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 发表于 2006-8-12 09:24:00

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 发表于 2006-8-12 17:37:00

先谢谢！
还是不行
Dim x As Double  Dim y As Double  x = ptarr(0, 0)  y = ptarr(0, 1)     MsgBox x     MsgBox y
任何时候显示为0，0

雪山飞狐_lzh 发表于 2006-8-12 18:28:00

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)

页: [1]

明经CAD社区's Archiver

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