|
如下 程序能运行。就是求不了差。
求各神大神开解下疑惑。
主题: 导入部件并求差
entity/box1,box2,t1,t2,t3
number/mat1(12)
string/stra(80),strb(80)
l20:
ident/'选择体',box1,resp
ident/'选择体',box2,resp
stra= 'D:\G\DTA1_16.prt'
strb= 'D:\G\TAP1_16.prt'
jump/l20:,end:,,,resp
l40:
gpos/'选择点',x,y,z,resp
mat1=matrix/transl,x,y,z $$ 生成平移矩阵
rpatt/stra,mat1 $$导入prt文件
t1=rpattg/strb,mat1 $$导入prt文件
blank/t1 $$ 导入的实体可以被隐藏,
t2=subtra/box1,with,box2 $$两个选择的实体也可以求差
t3=subtra/box1,with,box3 $$就是选择的实体与导入的部件不能求差
jump/l20:
end:
halt
|
|