grip ug部件文件 操作

$$ ug部件文件 操作

取部件文件途径  &pspec         
取部件文件名    &pname
当前文件的格式  &format
新建公制的      create/part,'c:\1.prt',mmeter
新建英制的      create/part,'c:\2.prt',inches
删除              fdel/'filespec'[,iferr,label:]
拷贝              fcopy/'源文件','目标文件'[,iferr,label:]
保存当前部件文件  file/part
导出文件          cpatt/update,'c:\1.prt',对象,[,iferr,label:]
打开ug部件文件    fetch/part,'c:\1.prt'[,iferr,label:]

=====
移动文件
fmove/'源文件','目标文件'[{,update|,newest}][{,verify|,delete}][,iferr,label:]

update
更新，覆盖文件

newest
编辑日期

verify
验证，核对任何错误可能发生在移动操作。

delete
删除，核对任何错误,可能发生的期间
=====

$$ -------------------------------------------------------------
$$ 新建prt画点和圆 并在ug中打开

entity/p1,p2,p3,l1,l2,l3
create/part,'c:\my.prt',mmeter
p1=point/0,0,0
l1=circle/center,p1,radius,8,start,0,end,180
file/part
halt
$$ -------------------------------------------------------------


$$ 导入prt文件
rpatt/'d:\gripwhy.prt'  

$$ 列
number/mat(12),mat1(12),mat2(12)
string/stra(80),strb(80)

l10:
gpos/'梅雷提示！请选择参考点...',x1,y1,z1,resp
jump/l10:,end:,,,resp

l20:
stra= 'c:\meilei_ug_wg\meilei_ug_wg\prt\'
strb= stra + 't1-a4.prt'
sb = 1

l30:
mat1 = matrix/scale,sb          $$ 生成缩放矩阵 均匀的缩放
mat2 = matrix/transl,x1,y1,z1   $$ 生成平移矩阵
mat=matrix/mat1,mat2            $$ 矩阵相乘
rpatt/strb,mat,iferr,m1:  $$导入prt文件
$$ 导入prt文件，实体可以移动但是不能缩放比例

end:
halt
m1:
messg/'梅雷提示！找不到指定文件...'
jump/end:


_____________________________________________________________________________ _

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