极坐标系下测量均布孔位置度程序
应用：用于轮毂、轴承座、航空部件等一系列零部件的位置度误差、角向及径向误差的检测，这种零件的共同特征是围绕回转中心均匀分布一周小孔。
程序使用说明：
A)如图建立工件坐标系（注意保存时和程序中名称保持一致）；
B)运行程序，按照提示依次输入分度小孔个数、组合圆直经、分度小孔直径、分度小孔深度、分度小孔测点数；
C)程序将按照输入的参数自动测量完所有均布孔，并给出位置度误差及每个小孔的角向误差，径向误差结果；
结论：
A)这种使用AC-DMIS提供的高级语言编程可实现许多复杂工件的自动测量；
B)该程序通用性强，只需要根据不同工件输入相应的参数即可实现全自动测量；
C)程序扩展性强，稍加修改即可实现不同需求的测量。
测量均分圆程序实例：
INIT
LOAD-COORSYS（1）
LOAD-PROBE-FILE（"DEFAULT"）
PROBE-NO（"AOBO"）
INPUT-VAR（V11，"分度小孔个数="）
INPUT-VAR（V12，"组合圆直经="）
INPUT-VAR（V13，"分度小孔直径="）
INPUT-VAR（V14，"分度小孔深度="）
INPUT-VAR（V15，"分度小孔测点数"）
MOVE-TO（0，0，-20）
PROJECTION（1）
POLAR！极坐标
FOR（V9，1，V11）
V10=360/V11*（V9-1）
V7=V12/2*cos（V10）
V8=V12/2*SIN（V10）
V70=SQRT（V8^2+V7^2）
IF（V7>=0ANDV8>=0）
IF(V7==0)
V80=90
ENDIF
V80=ATAN(V8/V7)
ENDIF
IF(V7<0ANDV8>0)
V80=180+ATAN(V8/V7)
ENDIF
IF(V7<=0ANDV8<=0)
IF(V7==0)
V80=270
ENDIF
V80-180+ATAN(V8/V7)
ENDIF
IF(V7>0ANDV8<0)
V80=360+ATAN(V8N7)
ENDIF
