有时候需要输出两段距离差值的比较。
但是实际国标公差中并没有长度公差的评价，但是可以通过DMIS取得两段长度，进行计算，最后输出到屏幕设备。
代码如下：
M(DISB_MO) = MACRO/
DECL/DOUBLE,VART[7],uptol,downtol
DECL/CHAR,10,DISTB1,DISTB2
TEMPCHAR = PROMPT/TEXT,'上公差',EDIT,uptol,$
TEXT,'下公差',EDIT,downtol,$
TEXT,'距离公差名1',EDIT,DISTB1,$
TEXT,'距离公差名2',EDIT,DISTB2
VART[1] = OBTAIN/T(@DISTB1),3
VART[2] = OBTAIN/T(@DISTB2),3
VART[3] = OBTAIN/TA(@DISTB1),4
VART[4] = OBTAIN/TA(@DISTB2),4
VART[5] = ASSIGN/ABS(VART[1] - VART[2])
VART[6] = ASSIGN/ABS(VART[3] - VART[4])
VART[7] = ASSIGN/ABS(VART[5] - VART[6])
WRITE/DID(DEFAULTSCREEN),’------------------------------------------------------------------------------------------------------------------------------------------------------------------------’
WRITE/DID(DEFAULTSCREEN),’ ‘,$
‘理论’,’ ‘,$
‘实际’,’ ‘,$
‘偏差’,’ ‘,$
‘下公差’,’ ',$
‘上公差’
WRITE/DID(DEFAULTSCREEN),‘两距离的差值 ‘,$
VART[5],’ ‘,$
VART[6],’ ‘,$
VART[7],’ ‘,$
downtol,’ ‘,$
uptol
WRITE/DID(DEFAULTSCREEN),’-------------------------------------------------------------------------------------------------------------------------------------------------------------------------’
ENDMAC
CALL/M(DISB_MO)
将两段公差名称填入提示的对话框，即可进行差值的评价。
