DMISMN/''
$$ *** 程序初始段 ***
MODE/MAN
RECALL/D(MAC)
WKPLAN/XYPLAN
UNITS/MM,ANGDEC,TEMPC
DECPL/DIST,4,VEC,8,ANGLE,4,TEMP,1
SCNMOD/OFF
TECOMP/OFF
PRCOMP/ON
PTBUFF/ON
SNSET/SEARCH,10.000
SNSET/APPRCH,4.0000
SNSET/RETRCT,2.0000
SNSET/DEPTH,0.0000
SNSET/CLRSRF,OFF
FLY/5.0000
FEDRAT/MESVEL,MMPS,3.5
FEDRAT/POSVEL,PCENT,0.50
FEDRAT/ROTVEL,PCENT,0.75
FEDRAT/SCNVEL,PCENT,0.75
ACLRAT/MESACL,PCENT,0.75
ACLRAT/POSACL,PCENT,0.75
GEOALG/CPARLN,ROUND
V(TEXT)=VFORM/ALL
V(RAWDAT)=VFORM/PLOT,ALL
V(PDF)=VFORM/DME,'PDF',ALL
V(HTML)=VFORM/DME,'HTM',ALL
V(CSV)=VFORM/DME,'CSV',ALL
V(GRAPHF)=VFORM/DME,'DMG',ALL
V(GRAPHV)=VFORM/DME,'DMG/V',ALL
V(GRAPHP)=VFORM/DME,'DMG/P',ALL
V(GRAPHA)=VFORM/DME,'DMG/A',ALL
V(XMLDF)=VFORM/DME,'XMLD',ALL
V(XMLDV)=VFORM/DME,'XMLD/V',ALL
V(XMLDP)=VFORM/DME,'XMLD/P',ALL
V(XMLDA)=VFORM/DME,'XMLD/A',ALL
V(SPCLIGHT)=VFORM/STAT,'SDD',ALL
V(GENSTAT)=VFORM/STAT,'SDD/L',ALL
V(ARCOSTAT)=VFORM/STAT,'SDD/C',ALL
V(QSSTATQ)=VFORM/STAT,'DFQ',ALL
V(QSSTATD)=VFORM/STAT,'DFD',ALL
EQUATE/D(MAC),DA(MAC)
$$ *** 程序初始段结束 ***
SNSLCT/SA(P_1)
F(POI_1)=FEAT/POINT,CART,0.0000,0.0000,0.0000,0.00000000,0.00000000,1.00000000
MEAS/POINT,F(POI_1),1
ENDMES
D(DAT_1) = TRANS/XORIG,FA(POI_1),YORIG,FA(POI_1),ZORIG,FA(POI_1)
BADTST/ON
MODE/PROG,MAN
F(POI_1)=FEAT/POINT,CART,0.0000,0.0000,10.0000,0.00000000,0.00000000,1.00000000
MEAS/POINT,F(POI_1),1
ENDMES
IF/(BADPT())
TEXT/OPER,'bad pt'
ELSE
TEXT/OPER,'good pt'
ENDIF
BADTST/OFF
ENDFIL
