1、Point01点实际测值是X=-59.0000,Y=-54.0000,Z=-125.5000； 2、Point01点理论值是X=-57.0000,Y=-58.0000,Z=,-134.5000；各个方向公差是±1.5。 想法：从上面的Point01点可以看出实测值超差，编一段程序将Point01点的Z向实测值取出来（整个的或者是其中的一个方向值），Point01点的Z向坐标值要在-136~-133之间材算合格。将Z向坐标值取出后先判断它是否符合以上的条件。如果不符合就加一个运算，使之达到合格即在公差范围内。再将运算后的结果重写入到Point01点再输出。 以下的程序我是这样写的，但是有问题，请教各位大侠给指点指点，谢谢！！！ 程序： OUTPUT/FA(Point01) DECL/DOUBLE,ZZ DECL/DOUBLE,Var1 Var1=OBTAIN/FA(Point01),5 IF/(Var1<(-136)) ZZ=(-134.5)+(Var1)/100 ELSE IF/(Var1>(-133)) ZZ=-133+(Var1)/100 ENDIF ZZ=Var1 ENDIF WRITE/DID(DidTerm),'POINT01-Z.',ZZ MEAS/POINT,F(Point01),1 PTMEAS/CART,-59.0000,-54.0000,ZZ,0,0,1 ENDMES MODE/PROG,MAN OUTPUT/FA(Point01) F(Point01)=FEAT/POINT,CART,100.0000,110.0000,-134.5000,$ 0.0000,0.0000,0.0000 T(CorTol01)=TOL/CORTOL,ZAXIS,-0.5000,0.5000 OUTPUT/FA(Point01),TA(CorTol01) $$End of this file

我的联系方式：cx@teec.cn

你這好像不是PCDMIS程式吧,是否是VIRTUAL DMIS,我發覺有很多語法都有錯誤,程式思路也不是很清楚,建議先看看VIRTUAL DMIS語法書!然后自行檢查程式,若還有問題,我再跟你修改! Edited by - 80929 on 2004/10/29 17:03:03

我现在可以将数据取出来，也修改了，就是不知道再怎么写回去， 请版主给改改，谢谢了，我急用！！！cx@teec.cn

F(PT1)=FEAT/POINT, CART, 400.00022, 400.01270, 300.00363, 0.00000, 0.00000, $ 1.00000 MEAS/POINT, F(PT1), 1 PTMEAS/CART, 400.00022, 400.01270, -300.00363, 0.00000, 0.00000, 1.00000 ENDMES OUTPUT/FA(PT1) DECL/DOUBLE,ZZ DECL/DOUBLE,Var1 Var1=OBTAIN/FA(PT1),5 IF/Var1<-136 ZZ=(-134.5)+(Var1)/100 ELSE IF/Var1>-133 ZZ=-133+(Var1)/100 ELSE ZZ=Var1 ENDIF ENDIF F(PT1)=FEAT/POINT,CART,100.0000,110.0000,-134.5000,$ 0.0000,0.0000,1.0000 MEAS/POINT,F(PT1),1 PTMEAS/CART,59.0000,54.0000,ZZ,0,0,1 ENDMES OUTPUT/FA(PT1) T(CorTol01)=TOL/CORTOL,ZAXIS,-0.5000,0.5000 OUTPUT/FA(PT1),TA(CorTol01)

当你学会编写程序，你会发现编程其实是一种乐趣，不是吗？ 让我们把PC-DMIS进行到底

MEAS/POINT,F(PT1),1 后边的“1”代表什么意思

点1 =自动/矢量点, 显示所有参数=否 理论值/-59,-54,-134.5,0,0,1 实际值/-59,-54,-138,0,0,1 目标值/-59,-54,-138,0,0,1 IF/点1.Z<133 OR 点1.Z>136 赋值/V1 = 点1.Z+134.5 注释/运算符,"点1的偏差数值："+ V1 +"" END_IF/ 我也不会，不过不明白写回去 是什么意识？？

“1”是采点的数量吧

这是DMIS程序，大家不要把PCDMIS的语句都用上了，这是DMIS语句。 这段程序是想测一个指定点吧。