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

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" ?

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

发表回复

精选推荐