拉伸
$$拉伸 分析
$$实体名=solext/对象,高度,100,失量方向,poin(1),poin(2),poin(3)
$$拉伸 选择线 只能拉伸 线
$$只要用 提取 面的边缘曲线 的方法 就相当于拉伸 面和圆
$$上下拉伸 只要 拉伸两次 正负方向个一次 在合并
列
entity/ln(4),solid1
ln(1)=line/0,0,0,1,0,0
ln(2)=line/1,0,0,1,1,0
ln(3)=line/1,1,0,0,1,0
ln(4)=line/0,1,0,0,0,0
solid1=solext/ln(1..4),height,10,axis,0,0,1 $$ 拉伸实体
列
entity/face,ln(2000),obj,obj1,obj2
number/poin(3)
l10:
mask/71
ident/'选择面',face,resp
jump/l10:,end:,,,resp
l20:
$$提取 面的失量方向 x=poin(1),y=poin(2),z=poin(3)
poin=snorf(face,.5,.5)
$$提取 面的边缘曲线
ln=soledg/face,cnt,n
$$上下拉伸 = 正负方向个拉伸一次 在合并
obj1=solext/ln(1..n),height,100,axis,poin(1),poin(2),poin(3)
obj2=solext/ln(1..n),height,-100,axis,poin(1),poin(2),poin(3)
obj=unite/obj1,with,obj2 $$ 实体相加
delete/ln(1..n) $$ 删除 刚提取的面的边缘曲线
end:
halt
_____________________________________________________________________________ _
中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/
|