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

yuangw1234 发表于 2006-7-7 15:34:00

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

有一个数组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 发表于 2006-7-10 11:58:00

Cenpt(0) = cen(J)
Cenpt(1) = cen(J+1)
Cenpt(2) = cen(J+2)
不太理解你说的“有一个数组cen()，其中数组的每一个元素都是一个三维点坐标”
难道是 cen(8)="100,200,0"?

查看完整版本: 求好的方法判斷三維點數組中元素相等