5.11.grs

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

entity/pt(2),cr(2),ln

pt(1)=point/-1,-0.5,0
pt(2)=point/1,0.5,0
cr(1)=circle/-1,-0.5,0,1
cr(2)=circle/1,0.5,0,1
ln=line/pt(1),pt(2)

ang1=anglf(ln)
ang2=anglf(cr(1),cr(2))
ang3=anglf(pt(1),pt(2))
print/ang1,ang2,ang3

halt