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

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

<P>有一个数组cen()，其中数组的每一个元素都是一个三维点坐标，请问为什么不可以用 "="来描述它们相等如下红色处有问题,有没有什么好的方法</P>
<P>Dim cen(100) As Variant, selobj As AcadEntity,&nbsp;J As Integer<BR>Dim Cenpt As Variant<BR>Cenpt = selobj.Center<BR>For J= 0 To UBound(cen)<BR>&nbsp;&nbsp;&nbsp; If <FONT color=#f73809>Cenpt = cen(J)</FONT> Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; selobj.Delete<BR>&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; selobj.Copy<BR>&nbsp;&nbsp;&nbsp; End If<BR>Next<BR></P>

68651521 发表于 2006-7-10 11:58:00

<P><FONT color=#f73809>Cenpt(0) = cen(J)<BR></FONT><FONT color=#f73809>Cenpt(1) = cen(J+1)<BR>Cenpt(2) = cen(J+2)</FONT></P>
<P><FONT color=#f73809>不太理解你说的&nbsp; “</FONT><FONT color=#000000>有一个数组cen()，其中数组的每一个元素都是一个三维点坐标”</FONT></P>
<P>难道是 cen(8)="100,200,0"&nbsp; ?</P>
页: [1]
查看完整版本: 求好的方法判斷三維點數組中元素相等