create-curve.grs

来自「UG二次开发很好的东西 需要的朋友可以下载来看看 很好用啊」· GRS 代码 · 共 84 行

proc/face,pl,result,ref
entity/face              $$鱼眼灯花的曲面
entity/pl                $$与灯花曲面相交的平面         
entity/result            $$最终生成的曲线
entity/ref               $$参考实体
entity/intercurve        $$灯花曲面与平面pl的相交曲线组
entity/muticurve(50)     $$曲线组intercurve提取之后的曲线
number/a(7),dist(50)


l10:
$$求灯花曲面face与平面pl的相交曲线组。
intercurve=intsec/face,with,pl
$$判断相交曲线组的数量。
intnum=&gcount(intercurve)
if/intnum<>1,jump/l20:
if/intnum==1,jump/l140:

$$若曲线数量intnum<>1，则执行以下程序。

$$计算曲线组muticurve(i)与参考实体距离最近的曲线result。
l20:
i=0

l30:
i=i+1
muticurve(i)=&gent(intercurve,i)
a(1..7)=reldst/muticurve(i),ref
dist(i)=a(7)

l40:
if/i<intnum,jump/l30:
if/i==intnum,jump/l50:

l50:
compare=dist(1)
search=1
i=1

l60:
i=i+1
drt=compare-dist(i)
if/drt>0.05,jump/l70:
if/drt<=0.05,jump/l80:

l70:
compare=dist(i)
search=i

l80:
if/i<intnum,jump/l60:
if/i==intnum,jump/l90:

l90:
result=&gent(intercurve,search)

$$删除曲线组muticurve(i)中除result之外的所有曲线。
l100:
i=0

l110:
i=i+1
if/i<>search,delete/muticurve(i)

l120:
if/i<intnum,jump/l110:
if/i==intnum,jump/l150:


l140:
$$若曲线数量intnum==1，则执行以下程序。
result=&gent(intercurve,1)
jump/l150:

l150:
$$解组。
ungrp/intercurve
jump/trm:

trm:
return