grip 沿导线扫掠

沿导线扫掠

entity/box(3),obj(99)


mask/3,5,6,9
l10:
ident/'梅雷提示！请选择截面线...',obj,cnt,nm,resp
jump/l10:,end:,,,resp

l20:
ident/'梅雷提示！请选择引导线...',box(1),resp
jump/l10:,end:,,,resp

l30:
box(2)=obj(1)
if/nm>1,box(2)=spline/approx,toler,0.000001,obj(1..nm)$$合并曲线
box(3)=bsurf/swpsrf,tracrv,box(1),gencrv,box(2),iferr,entd$沿导线扫掠


end:
halt

entd:
delete/box(2)
messg/'梅雷提示！扫掠有误'
jump/end:

$$ tracrv,引导线 一条或两条
$$ gencrv,截面线 只能一条（可以先合并曲线）


_____________________________________________________________________________ _

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