Change dimension output mode - please help!

I am new to script programming and hope somebody can help.
I need to measure parts with holes on various pitch diameters to determine the PCD. The problem is that the amount of holes vary from part to part (10, 12, 16, 20, etc). I setup a part program using variables and flow controlk commands. I construct the pitch circles using the relevant amount of holes and get the diameter of each pitch circle eg.
DIM LOC10= LOCATION OF CIRCLE CIR_PCDH12 UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=1000.00 OUTPUT=BOTH
AX MEAS
D 550.025
END OF DIMENSION LOC10
DIM LOC12= LOCATION OF CIRCLE CIR_PCDH12 UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=1000.00 OUTPUT=BOTH
AX MEAS
D 550.025
END OF DIMENSION LOC12

If I print the report, all the PCD's are printed. I am looking for a script to change the output mode for the unnecessary dimensions to OUTPUT=NONE.

dph51 over 13 years ago

yes/no comment statement
assign variable to comment/statement
flow control to test
place variable V11 into report command

C1 =COMMENT/YESNO,NO,DO YOU WISH TO SEND DATA TO REPORT?

ASSIGN/V1 = C1.INPUT

IF/V1 == "YES"
ASSIGN/V11 = "REPORT"
END_IF/
IF/V1 == "NO"
ASSIGN/V11 = "NONE"
END_IF/

DIM DIST1A= 2D DISTANCE FROM POINT PNT1 TO POINT PNT2 PAR TO ZAXIS, NO_RADIUS UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=V11
AX MEAS
M 28.737

HTH
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
dph51 over 13 years ago

or you can try this

$$ NO,*****
GO_HERE =LABEL/

C1 =COMMENT/INPUT,NO,'Enter your choice:
,For A : TYPE "A"
,For B : TYPE "B"
,For C : TYPE "C"'

ASSIGN/V1 = C1.INPUT

IF/V1 == "A" OR V1 == "B" OR V1 == "C"
GOTO/GO_THERE
END_IF/

IF/V1 <> "A" OR V1 <> "B" OR V1 <> "C"
COMMENT/OPER,NO,YOU HAVE ENTERED A BOGUS VALUE!
,
,TRY AGAIN!
GOTO/GO_HERE
END_IF/

$$ NO,*****
GO_THERE =LABEL/
$$ NO,*****

$$ NO,*****
$$ NO,***** YOUR PROGRAM CODE HERE
$$ NO,*****

DO/
SELECT/C1.INPUT
CASE/"A"
$$ NO,You have selected A.
DIM LOC1= LOCATION OF POINT PNT1 UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=REPORT
AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
X 1.0000 1.0000 0.0100 0.0100 0.0000 0.0000
Y 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000
Z 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000
END OF DIMENSION LOC1
END_CASE/
CASE/"B"
$$ NO,You have selected B.
DIM LOC2= LOCATION OF POINT PNT2 UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=REPORT
AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
X 2.0000 2.0000 0.0100 0.0100 0.0000 0.0000
Y 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000
Z 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000
END OF DIMENSION LOC2
END_CASE/
CASE/"C"
$$ NO,You have selected C.
DIM LOC3= LOCATION OF POINT PNT3 UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=REPORT
AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
X 3.0000 3.0000 0.0100 0.0100 0.0000 0.0000
Y 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000
Z 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000
END OF DIMENSION LOC3
END_CASE/
END_SELECT/
UNTIL/V1 <> "A" OR V1 <> "B" OR V1 <> "C"
$$ NO,*****
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel