4.77.grs

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

entity/prim(100),cros(100),obj

$$选择主曲线。
l10:
ident/'pick the primary curves',prim,cnt,num1,resp
jump/l10:,trm:,,resp

$$选择横越线。
l20:
ident/'pick the cross curves',cros,cnt,num2,resp
jump/l20:,trm:,,resp

$$曲线网格法生成B-曲面
l30:
obj=bsurf/mesh,prim(1..num1),with,cros(1..num2),type,3,result,num
print/num

trm:
halt