anglf.grs

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

proc/ln1,ln2,ang
entity/ln1,ln2,pt1,pt2,pt3
number/a(3),b(3),c(3)


l30:
a(1..3)=&spoint(ln1)

pt1=point/intof,ln1,ln2
a(1..3)=&point(pt1)

b(1..3)=&spoint(ln1)
c(1..3)=&epoint(ln1)
ifthen/a(1)==c(1) and a(2)==c(2) and a(3)==c(3)
pt2=point/b(1..3)
elseif/a(1)==b(1) and a(2)==b(2) and a(3)==b(3)
pt2=point/c(1..3)
else
jump/trm:
endif

b(1..3)=&spoint(ln2)
c(1..3)=&epoint(ln2)
ifthen/a(1)==c(1) and a(2)==c(2) and a(3)==c(3)
pt3=point/b(1..3)
elseif/a(1)==b(1) and a(2)==b(2) and a(3)==b(3)
pt3=point/c(1..3)
else
jump/trm:
endif

dis1=distf(pt1,pt2)
dis2=distf(pt1,pt3)
dis3=distf(pt3,pt2)

arg=(dis1*dis1+dis2*dis2-dis3*dis3)/(2*dis1*dis2)
ang=acosf(arg)
delete/pt1,pt2,pt3

trm:
return