论坛上很久以前的一个程序（忘记原创是谁了）···程序很有创意，十分巧妙。做了原程序发出来。 [attach]wsyzxxn@235087432001.rar[/attach] 　　　　　　　　　　　　　　　　　　[此贴子已经被作者于2007-6-13 23:18:40编辑过]

{/tp}

先下载了,慢慢学习

没看懂IF(1)是什么意思

应该“F1”吧``是构造特征 在构造菜单的最后一项。 很久以前做的，赋值部分完全可以直接引入特征参数，程序看上去会简洁很多！

这是他程序的后半部分，请看第二行 (DOF1) IF/(1) JUMPTO/(DOF1END) ELSE F(F1)=FEAT/CIRCLE,OUTER,CART,QX,QY,QZ,0,0,1,QD F(直线1)=FEAT/LINE,UNBND,CART,53.729,28.186,0,-0.9829258,-0.1840022,0,0,0,1 CONST/LINE,F(直线1),BF,F(F1),F(圆A) F(直线2)=FEAT/LINE,UNBND,CART,53.729,28.186,0,0.9847087,-0.174209,0,0,0,1 CONST/LINE,F(直线2),BF,F(F1),F(圆B) F(直线3)=FEAT/LINE,UNBND,CART,53.729,28.186,0,-0.416378,0.9091916,0,0,0,1 CONST/LINE,F(直线3),BF,F(F1),F(圆C) F(点1)=FEAT/POINT,CART,19.829,21.84,0,-0.9829258,-0.1840022,0 CONST/POINT,F(点1),PIERCE,FA(直线1),FA(圆A) F(点2)=FEAT/POINT,CART,87.691,22.178,0,0.9847087,-0.174209,0 CONST/POINT,F(点2),PIERCE,FA(直线2),FA(圆B) F(点3)=FEAT/POINT,CART,39.369,59.543,0,-0.416378,0.9091916,0 CONST/POINT,F(点3),PIERCE,FA(直线3),FA(圆C) GEOALG/CIRCLE,LSTSQR F(GY)=FEAT/CIRCLE,OUTER,CART,53.729,28.186,0,0,0,1,68.978 CONST/CIRCLE,F(GY),BF,FA(点1),FA(点2),FA(点3) QX = ASSIGN/GY.X QY = ASSIGN/GY.Y QZ = ASSIGN/GY.Z QD = ASSIGN/GY.D V1 = ASSIGN/V1+1 TEXT/OPER,"第"+V1+"次的X="+QX+"Y="+QY JUMPTO/(DOF1) ENDIF (DOF1END) T(位置2__X)=TOL/CORTOL,XAXIS,0,0 T(位置2__Y)=TOL/CORTOL,YAXIS,0,0 T(位置2__D)=TOL/DIAM,0,0 OUTPUT/FA(GY),TA(位置2__X),TA(位置2__Y),TA(位置2__D) 这是他程序的后半部分，请看第二行 我还没搞懂“IF/(1)”是什么意思 IF的条件是什么呢？ 烦请楼上的版主解释一下、 　　　　　　　　　　　　　　　　　　[此贴子已经被作者于2007-6-16 11:38:39编辑过]

高手和版主们都休假了么 按理说，IF后面肯定是条件语句 但我想不明白就跟个（1）怎么样来确定条件

不是PC-DMIS的语言

楼上的，呵呵，也许吧，但是附件文件的后缀名是.prg,我可以认为他是PCDMIS做的吗？ 把这个文件用PCDMIS打开就是这个样子呵呵

以下是PCDMIS 下的文本复制（原帖找不到了）~做下参考吧！···另外楼上的版本是什么呢？ 圆A =自动/圆,SHOWALLPARAMS = 否,显示触测 = 是 理论值/10,20,0,0,0,1,20 实际值/10,20,0,0,0,1,20 目标值/10,20,0,0,0,1 测定/圆 触测/BASIC,20,20,0,-1,0,0,20,20,0 触测/BASIC,10,30,0,0,-1,0,10,30,0 触测/BASIC,0,20,0,1,0,0,0,20,0 触测/BASIC,10,10,0,0,1,0,10,10,0 终止测量/ 圆B =自动/圆,SHOWALLPARAMS = 否,显示触测 = 是 理论值/100,20,0,0,0,1,25 实际值/100,20,0,0,0,1,25 目标值/100,20,0,0,0,1 测定/圆 触测/BASIC,112.5,20,0,-1,0,0,112.5,20,0 触测/BASIC,100,32.5,0,0,-1,0,100,32.5,0 触测/BASIC,87.5,20,0,1,0,0,87.5,20,0 触测/BASIC,100,7.5,0,0,1,0,100,7.5,0 终止测量/ 圆C =自动/圆,SHOWALLPARAMS = 否,显示触测 = 是 理论值/30,80,0,0,0,1,45 实际值/30,80,0,0,0,1,45 目标值/30,80,0,0,0,1 测定/圆 触测/BASIC,52.5,80,0,-1,0,0,52.5,80,0 触测/BASIC,30,102.5,0,0,-1,0,30,102.5,0 触测/BASIC,7.5,80,0,1,0,0,7.5,80,0 触测/BASIC,30,57.5,0,0,1,0,30,57.5,0 终止测量/ 圆1 =特征/圆，直角,内,最小二乘方 理论值/55,38.333,0,0,0,1,97.183 实际值/55,38.333,0,0,0,1,97.183 构造/圆,最佳拟合,圆A,圆B,圆C,, OUTLIER_REMOVAL/关,3 FILTER/关,UPR=0 赋值/QX = 圆1.X 赋值/QY = 圆1.Y 赋值/QZ = 圆1.Z 赋值/QD = 圆1.DIAM 赋值/V1 = 0 DO/ F1 =一般/圆,从属,直角,外,$ 标称值/XYZ,QX,QY,QZ,$ 测定值/XYZ,QX,QY,QZ,$ 标称值/IJK,0,0,1,$ 测定值/IJK,0,0,1,$ 直径/QD,QD 直线1 =特征/直线，直角,非定界 理论值/53.729,28.186,0,-0.9829258,-0.1840022,0 实际值/53.729,28.186,0,-0.9829258,-0.1840022,0 构造/直线,最佳拟合,2D,F1,圆A,, OUTLIER_REMOVAL/关,3 FILTER/关,WAVELENGTH=0 直线2 =特征/直线，直角,非定界 理论值/53.729,28.186,0,0.9847087,-0.174209,0 实际值/53.729,28.186,0,0.9847087,-0.174209,0 构造/直线,最佳拟合,2D,F1,圆B,, OUTLIER_REMOVAL/关,3 FILTER/关,WAVELENGTH=0 直线3 =特征/直线，直角,非定界 理论值/53.729,28.186,0,-0.416378,0.9091916,0 实际值/53.729,28.186,0,-0.416378,0.9091916,0 构造/直线,最佳拟合,2D,F1,圆C,, OUTLIER_REMOVAL/关,3 FILTER/关,WAVELENGTH=0 点1 =特征/点，直角 理论值/19.829,21.84,0,-0.9829258,-0.1840022,0 实际值/19.829,21.84,0,-0.9829258,-0.1840022,0 构造/点,刺穿,直线1,圆A 点2 =特征/点，直角 理论值/87.691,22.178,0,0.9847087,-0.174209,0 实际值/87.691,22.178,0,0.9847087,-0.174209,0 构造/点,刺穿,直线2,圆B 点3 =特征/点，直角 理论值/39.369,59.543,0,-0.416378,0.9091916,0 实际值/39.369,59.543,0,-0.416378,0.9091916,0 构造/点,刺穿,直线3,圆C GY =特征/圆，直角,外,最小二乘方 理论值/53.729,28.186,0,0,0,1,68.978 实际值/53.729,28.186,0,0,0,1,68.978 构造/圆,最佳拟合,点1,点2,点3,, OUTLIER_REMOVAL/关,3 FILTER/关,UPR=0 赋值/QX = GY.X 赋值/QY = GY.Y 赋值/QZ = GY.Z 赋值/QD = GY.D 赋值/V1 = V1+1 注释/运算符,否,"第"+V1+"次的X="+QX+"Y="+QY UNTIL/ABS(F1.X-GY.X)<=0.005 AND ABS(F1.Y-GY.Y)<=0.005 尺寸 位置2= 圆 的位置GY 单位=毫米 ,$ 图示=关 文本=关 乘数=1.00 输出=两者 轴 标称值 正公差 负公差 测定 偏差 超差 X F1.X 0.000 0.000 53.729 0.000 0.000 ----#---- Y F1.Y 0.000 0.000 28.186 0.000 0.000 ----#---- 直径 F1.D 0.000 0.000 68.978 0.000 0.000 ----#---- 终止尺寸 位置2