grip 面中心线

面中心线

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

l10:
mask/22
ident/'梅雷提示！请选择平面...',face,resp
jump/l10:,end:,,,resp

l20:
num(1,1..3)=sposf(face,.5,0) $$取面上的点坐标
num(2,1..3)=sposf(face,.5,1)
num(3,1..3)=sposf(face,1,.5)
num(4,1..3)=sposf(face,0,.5)

ln(2)=line/num(1,1..3),num(2,1..3)  $$创建线
ln(1)=line/num(3,1..3),num(4,1..3)

end:
halt



_____________________________________________________________________________ _

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