digit-anglf.grs

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

$$
$$    子程序digit-anglf，用于计算某点的两个坐标值确定的角度。
$$    输入参数：dx、dy。
$$    输出参数：ang。
$$    输入文件：无。
$$    输出文件：无。
$$

$$子程序头。
proc/dx,dy,ang

$$子程序主体。
ifthen/dx==0 and dy==0
        ang=0
elseif/dx<>0 and dy==0
        ang=0
elseif/dx==0 and dy<>0
  ang=90
else
        arg=dy/dx
        ang=atanf(arg)
endif

$$程序返回。
Return