4.72.grs

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

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

l30:
obj=ssurf/prima,prim(1..num1),cross,cros(1..num2)

trm:
halt