grip 拉伸成曲面

拉伸生成曲面   

obj = tabcyl/obj,x,y,z[,start,end]

obj
对象
x,y,z
矢量方向

start
起始距离

end
终止距离

==============================================


拉伸生成曲面 列

entity/face_ln,ln(2000),obj(2000),ffh
number/poin(3)

$$ 起始距离 和 终止距离
qsjl = -5000
zzjl = 5000

$$ 选择对象
l10:
mask/71
ident/'梅雷提示：请选择面...',face_ln,resp
jump/l10:,end:,,,resp


l20:
$$提取 面的失量方向  i=poin(1),j=poin(2),k=poin(3)  
poin = snorf(face_ln,.5,.5)
  

$$ 提取 面的边缘曲线  
ln = soledg/face_ln,cnt,n  


$$ 拉伸生成曲面  
i = 0
mei:
i = i+1
if/i>n,jump/fh:
obj(i) = tabcyl/ln(i),poin(1),poin(2),poin(3),qsjl,zzjl
jump/mei:


$$ 删除垃圾
$$ 缝合
fh:
delete/ln(1..i-1)
ffh = sew/obj(1..i-1),iferr,eend:
eend:

end:
halt

















_____________________________________________________________________________ _

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