2-points-dis.grs

UG二次开发很好的东西 需要的朋友可以下载来看看 很好用啊

$$
$$    子程序2-points-dis，用于计算两点之间的距离。
$$    输入参数：pt1、pt2。
$$    输出参数：dis。
$$    输入文件：无。
$$    输出文件：无。
$$	

$$子程序头
proc/pt1,pt2,dis
$$实体变量和数组变量申明。
entity/pt1,pt2
number/a(3),b(3),dis

$$子程序主体。
l10:
a=&point(pt1)
b=&point(pt2)
dis=sqrtf((a(1)-b(1))*(a(1)-b(1))+(a(2)-b(2))*(a(2)-b(2))+$ 
        (a(3)-b(3))*(a(3)-b(3)))
$$程序返回。
trm:
return