grip 生成B-曲面

生成B-曲面

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


_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/