grip 画曲面上任意点的法向线

画曲面上任意点的法向线

$$==========================================
entity/face,vln
entity/pt
number/u,v $$ 曲面的u，v参数
number/a(3),b(3),c(3)
number/x,y,z

l=5                     
sta:
param/'输入曲线的长度','曲线长度',l,resp
jump/sta:,end:,,resp
l00:
mask/16,17,18,19,20,22,23,43,65,66,70,71
ident/'选择曲面',face,resp
jump/sta:,end:,,resp
a10:
   choose/'选择方向','正 向','反 向',resp
   jump/l00:,end:,,,a20:,a30:,resp
a20:
   i=0
   jump/l10:
a30:
   i=1
l10:
   gpos/'选择点',x,y,z,resp
   jump/a10:,end:,,resp
sparf/face,x,y,z,u,v     $$获取u，v参数
a=sposf(face,u,v)        $$获取曲面上点的坐标,
b=snorf(face,u,v)        $$获取法向向量
ifthen/i==1
b=-b
endif
b=scalvf(l,b)           $$延长线段，设为l倍
c=a+b                   $$获取法向线段终点
vln=line/a,c            $$画出法向线段
jump/l10:               $$循环画法向线段
end:
halt

_____________________________________________________________________________ _

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