4.76.grs

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

entity/startcurve,endcurve,apexcurve,spinecurve,obj
number/list(2)

$$选择起始边缘曲线。
l10:
ident/'pick the start edge curve',startcurve,resp
jump/l10:,trm:,,resp

$$选择终止边缘曲线。
l20:
ident/'pick the end edge curve',endcurve,resp
jump/l20:,trm:,,resp

$$选择顶线。
l30:
ident/'pick the apex curve',apexcurve,resp
jump/l30:,trm:,,resp

$$选择脊线。
l40:
ident/'pick the spine curve',spinecurve,resp
jump/l40:,trm:,,resp

$$生成B-曲面。
l50:
list(1)=1
list(2)=0.5
obj=bsurf/consrf,5,startcurve,endcurve,apexcurve,spine,spinecurve,$
   rho,list,result,num
print/num

trm:
halt