MODUS 编程示例

科技前沿 • 2025-03-25 07:28 • 阅读 81

大家好，我是讯享网，很高兴认识大家。

WKPLAN/XYPLAN MODE/MAN DECL/GLOBAL,CHAR,512,ask ask=PROMPT/'Do you want to run another part (Y,N)? ',3 IF/(ask.EQ.'Y'.OR.ask.EQ.'y') JUMPTO/(STARTNEWPART) ENDIF (endprogram) ENDFIL (STARTNEWPART) F(PNT00Z)=FEAT/POINT,CART,0.981,0.9101,0,0,0,1 MEAS/POINT,F(PNT00Z),1 ENDMES F(PNT00Y)=FEAT/POINT,CART,1.0457,0,-0.9877,0,-1,0 MEAS/POINT,F(PNT00Y),1 ENDMES F(PNT00X)=FEAT/POINT,CART,0,1.0394,-1.042,-1,0,0 MEAS/POINT,F(PNT00X),1 ENDMES D(1_PNTZYX)=TRANS/XORIG,FA(PNT00X),YORIG,FA(PNT00Y),ZORIG,FA(PNT00Z) MODE/AUTO,PROG,MAN GOTO/CART,-0.2,-0.2,0.2 F(PLN001)=FEAT/PLANE,CART,27.13,7.5,0,0,0,1 MEAS/PLANE,F(PLN001),4 PTMEAS/CART,7.1691,1.5432,0,0,0,1 PTMEAS/CART,6.71,12.5739,0,0,0,1 PTMEAS/CART,47.3128,12.6584,0,0,0,1 PTMEAS/CART,47.0637,1.7122,0,0,0,1 ENDMES SNSET/CLRSRF,FA(PLN001),0.2 SNSET/DEPTH,0.2 F(CIR001)=FEAT/CIRCLE,INNER,CART,47.125,7.5,-2.735,0,0,1,6.252 MEAS/CIRCLE,F(CIR001),7 ENDMES F(CIR002)=FEAT/CIRCLE,INNER,CART,27.125,7.5,-2.735,0,0,1,6.252 MEAS/CIRCLE,F(CIR002),7 ENDMES F(CIR003)=FEAT/CIRCLE,INNER,CART,7.125,7.5,-2.735,0,0,1,6.252 MEAS/CIRCLE,F(CIR003),7 ENDMES $$<CONSTRUCT_LINE name = "LINE001 = Construction Wizard: CIR003 - CIR002- CIR001"> F(LINE001)=FEAT/LINE,BND,CART,7.125,7.5,-2.735,47.125,7.5,-2.735,0,0,1 CONST/LINE,F(LINE001),BF,FA(CIR003),FA(CIR002),FA(CIR001) $$<CONSTRUCT_LINE > DATDEF/FA(PLN001),DAT(A_TEMP) DATDEF/FA(LINE001),DAT(B_TEMP) DATDEF/FA(CIR002),DAT(C_TEMP) D(1_TEMPABC)=DATSET/DAT(A_TEMP),ZDIR,ZORIG,DAT(B_TEMP),XDIR,DAT(C_TEMP),XORIG,YORIG GOTO/CART,-18.481,-2.408,0.2

讯享网

讯享网DECL/COMMON,LONG,Var1 Var1=PROMPT/0,0,215,45,TITLE,'PROMPT',BUTTON,5,20,100,20,'Yes' ,1,BUTTON,110,20,100,20,'No',0,TEXT,5,5,205,10,'Do you want to run the manual alignment? Yes or No' IF/(Var1.EQ.1) $$ ENTER MANUAL ALIGNMENT HERE SAVE/DA(Manual Alignment Name goes here) ELSE RECALL/DA(Manual Alignment Name goes here) ENDIF

MODUS 编程示例

相关推荐