4.78.grs

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

entity/guide(2),generator,obj

$$选择第一条导引曲线。
l10:
ident/'pick the first guide curve',guide(1),resp
jump/l10:,trm:,,resp

$$选择第二条导引曲线。
l20:
ident/'pick the second guide curve',guide(2),resp
jump/l20:,trm:,,resp

$$选择扫掠曲线。
l30:
ident/'pick the generator curve',generator,resp
jump/l30:,trm:,,resp

$$生成B-曲面。
l40:
obj=bsurf/swpsrf,tracrv,guide(1..2),gencrv,generator,iferr,err:

$$程序结束。
trm:
halt

$$错误信息输出。
err:
messg/'sweep surface error'
jump/trm: