grip 曲率梳

曲率梳

$$ 建模与矢量方向教材(列1：曲率梳)

entity/face,ln
number/poin(3),num(2,3)

$$ifthen/&actprt==1 $$判断ug是否打开部件基本上用不着写这个
$$messg/'请打开一个部件!'
$$jump/end:
$$endif

h=10 $$偏置距离 【+-表示方向】
n=30 $$曲率梳数大于3的正整数

l10:
mask/71
ident/'梅雷提示！请选择面【矢量方向】...',face,resp
jump/l10:,end:,,,resp

l20:
param/'梅雷提示!请输入参数...',$
      '曲率梳数',n,$
      '偏置距离',h,resp
jump/l10:,end:,,,resp

n=absf(n) $$绝对值
n=intf(n) $$整数
if/n<3,messg/'梅雷提示！你输入的数量不能小于3 '
if/n<3,jump/l20:


la:
     choose/'梅雷提示!请选择按钮...',$
            'u方向',$
            'v方向',deflt,1,resp
     jump/l20:,end:,,,a1:,a2:,resp

a1:
xyyx=1
jump/l30:
a2:
xyyx=2

l30:
do/l40:,i,0,n-1 $$循环i=0~n-1
if/xyyx==1,poin=snorf(face,.5,1/(n-1)*i)        $$取面的矢量方向
if/xyyx==1,num(1,1..3)=sposf(face,.5,1/(n-1)*i) $$取面上的点坐标
if/xyyx<>1,poin=snorf(face,1/(n-1)*i,.5)      
if/xyyx<>1,num(1,1..3)=sposf(face,1/(n-1)*i,.5)
num(2,1)=num(1,1)+poin(1)*h      $$按照矢量方向偏置点的x轴坐标
num(2,2)=num(1,2)+poin(2)*h      $$按照矢量方向偏置点的y轴坐标
num(2,3)=num(1,3)+poin(3)*h      $$按照矢量方向偏置点的y轴坐标
ln=line/num(1,1..3),num(2,1..3)  $$创建线
l40:
jump/l10:
end:
halt
$$________________________________________________________________________
$$ 点余矢量方向
$$ 矢量方向的作用 就是 可以不改变坐标 创建想要的位置的实体
$$________________________________________________________________________
$$ 按照同一矢量方向偏置点的xyz轴坐标 且偏置距离也相同
$$ 相当于 按照一矢量方向 偏置点
$$ 矢量方向 可以通过 面或 线 取的
$$ （两个点可以确定一直线 也可以确定一矢量方向）
$$________________________________________________________________________
$$ 列：
$$ 点1 减 点2 就等于 矢量方向 反之也相同
$$ 设点1 坐标=p1(1..3)，点2 坐标=p2(1..3)
$$ 则矢量方向 p1(1)-p2(1),p1(2)-p2(2),p1(3)-p2(3)
$$________________________________________________________________________
$$ 取点函数
$$ &point 取点坐标       &center 取圆心坐标   sposf取面上点坐标
$$ cposf  取线上的点坐标 snorf   取面的矢量方向




_____________________________________________________________________________ _

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