grip 点

点

$$ 最大方向 xlarge、ylarge、zlarge
$$ 最小方向 xsmall、ysmall、zsmall


$$ 创建点
entity/p        $$ 实体变量定义
p=point/0,0,10  $$ 创建点
halt            $$ 停止


p5=point/p1,vect,(line/p2,p3),ylarge,2 $$ 使p1点沿着p2p3向量往y最大方向偏移2
p2=point/p1,delta,-2,-2,0 $$ 使p1点偏置(-2,-2,0)



$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$ 过点d(3) 垂直线ln(1)
ln(2)=line/d(3),perpto,ln(1)

$$ 过点d(3) 垂直平面fa(1)
ln(3)=line/d(3),d(3),perpto,fa(1)
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

$$ 确定两条直线的交点
$$ l3确定两条直线的交点如果不相交 点生在l1延长线
$$ l4确定两条直线的交点如果不相交 点生在l2延长线
entity/l1,l2,l3,l4
略
略
l3=point/intof,l1,l2,iferr,px:   
l4=point/intof,l2,l1,iferr,px:   
$$ 找不到焦点 说明 两条线平行
px:
halt
$$$$$$$$$$$$$$$$$$$$$$



$$自动创建100个点

l10:                $$ 一段程序名为l10:
     i=i+1          $$ i=i+1
     if/i>100,halt  $$ 如果 i>100 停止
     point/i,10,10  $$ 创点x=i,y=10,z=10
     jump/l10:      $$ 跳到 l10:
halt                $$ 停止







$$ 运用点构造器定位生成箱体
$$ 建箱体
$$ 前三个数字为方体x、y、z坐标位置，
$$ 后三个数字是方体x、y、z方向的长度。

entity/box    $$ 实体变量定义
l10:
      gpos/'pick a point',x,y,z,resp
      jump/l10:,end:,,,resp

      box=solblk/origin,x,y,z,size,100,100,100
end: $$ 结束程序
halt $$ 停止


$$ 取面上的点

entity/face,pt(2000)
number/num1(3)

u=.5
v=.5
i=0
j=0
l10:
mask/71
ident/'梅雷提示！请选择面...',face,resp
jump/l10:,end:,,,resp
l20:
      param/'梅雷提示!请输入u、v方向参数【0~1】...',$
             'u方向参数【0~1】',u,$
             'v方向参数【0~1】',v,resp
      jump/l10:,end:,,,resp
i=i+1
num1(1..3)=sposf(face,u,v) $$ 取面上的点
pt(i)=point/num1(1..3)        $$ 创建点

l30:
     choose/'梅雷提示!请选择按钮...',$
            '继续操作',$
            '重新操作',$
            '取消上一次操作',$
            '退出操作',deflt,1,resp
     jump/l20:,end:,,,a1:,a2:,a3:,end:,resp
a1:
jump/l20:
a2:
jump/l10:
a3:
j=j+1
if/i-j+1>0,delete/pt(i-j+1)
jump/l30:

end:
halt


_____________________________________________________________________________ _

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