怎么在mapbasic中定义object 、point

seven白芷 · 发表于 2014-4-30 16:56

seven白芷 · 发表于 2014-4-30 17:49

主要想通过折线的方式来测距离，但是一直说变量或字段point 没有定义
Sub drawline2
Dim dist,x1, y1,x2, y2,sum As Float
dim pts(100),p1,p2  as object
'point pts()=new point()
pts(1)=point
  ' p1=point
  ' p2=point
dim i,n as integer
sum=0.0
n=ubound(pts)
for i=1 to n
p1=pts(i)
p2=pts(i+1)
x1=CentroidX(CMD_INFO_p1)
y1=Centroidy(CMD_INFO_p1)
x2=CentroidX(CMD_INFO_p2)
y2=Centroidy(CMD_INFO_p2)
dist = Distance(x1,y1,x2,y2,"mi")
sum=sum+dist
next
note "距离为"+sum+"m"
end  sub

有人知道怎么改么