orient-line.grs

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

proc/ln,cp
entity/ln,pt1,pt2,ptc
number/cp(3),sp(3),ep(3)

obtain/ln,sp,ep
pt1=point/sp(1..3)
pt2=point/ep(1..3)
ptc=point/cp(1..3)

ifthen/distf(pt1,ptc)<distf(pt2,ptc)
delete/ln
ln=line/pt2,pt1
endif
delete/pt1,pt2,ptc

term:
return