求好的方法判斷三維點數組中元素相等

yuangw1234

有一个数组cen()，其中数组的每一个元素都是一个三维点坐标，请问为什么不可以用 "="来描述它们相等如下红色处有问题,有没有什么好的方法

Dim cen(100) As Variant, selobj As AcadEntity, J As Integer
Dim Cenpt As Variant
Cenpt = selobj.Center
For J= 0 To UBound(cen)
    If Cenpt = cen(J) Then
        selobj.Delete
    Else
        selobj.Copy
    End If
Next

68651521

Cenpt(0) = cen(J)
Cenpt(1) = cen(J+1)
Cenpt(2) = cen(J+2)

不太理解你说的  “有一个数组cen()，其中数组的每一个元素都是一个三维点坐标”

难道是 cen(8)="100,200,0"  ?