hexagon logo

how to deal with looP in visual studio?

hi all

i use vb.net to design a software to output result into excel and i have a loop to report DEMENSIONS in pcDMIS

V1 =LOOP/START,ID=YES,NUMBER=5,START=1,SKIP=,
OFFSET:XAXIS=0,YAXIS=0,ZAXIS=0,ANGLE=0
PLN1 =FEAT/PLANE,CARTESIAN,TRIANGLE
THEO/<112.4335,54.2622,0>,<0,0,1>
ACTL/<112.4335,54.2622,0>,<0,0,1>
MEAS/PLANE,3
HIT/BASIC,NORMAL,<86.2897,90.7262,0>,<0,0,1>,<86.2897,90.7262,0>,USE THEO=YES
HIT/BASIC,NORMAL,<92.2755,36.1573,0>,<0,0,1>,<92.2755,36.1573,0>,USE THEO=YES
HIT/BASIC,NORMAL,<158.7352,35.9032,0>,<0,0,1>,<158.7352,35.9032,0>,USE THEO=YES
ENDMEAS/
PLN2 =FEAT/PLANE,CARTESIAN,TRIANGLE
THEO/<118.3962,0,-13.6702>,<0,-1,0>
ACTL/<118.3962,0,-13.6702>,<0,-1,0>
MEAS/PLANE,3
HIT/BASIC,NORMAL,<98.3375,0,-2.4526>,<0,-1,0>,<98.3375,0,-2.4526>,USE THEO=YES
HIT/BASIC,NORMAL,<95.7797,0,-19.361>,<0,-1,0>,<95.7797,0,-19.361>,USE THEO=YES
HIT/BASIC,NORMAL,<161.0713,0,-19.197>,<0,-1,0>,<161.0713,0,-19.197>,USE THEO=YES
ENDMEAS/
DIM ANGL1= 2D ANGLE FROM PLANE PLN1 TO PLANE PLN2 ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
A -90.0000 0.0100 -0.0100 -90.0000 0.0000 0.0000 ----#----
LOOP/END



WE know there are ANGL1[1],ANGL1[2],ANGL1[3],ANGL1[4],ANGL1[5] reported by PCDMIS

but how to get dimensions information in visual studio ,eg. ID,MES,NOM with ANGL1[1],ANGL1[2],ANGL1[3],ANGL1[4],ANGL1[5] ?

thanks
Parents
  • There's a 'count' property for commands, which is the number of times they've been executed.

    I think you can then access these instances using the itemindex property..


    For i as interger = 1 to cmd.count

    dimcom = cmd.itemindex(i).dimensioncommand

    dim measval as double = dimcom.meas

    next i


    Not 100% sure on this but I think it's right
Reply
  • There's a 'count' property for commands, which is the number of times they've been executed.

    I think you can then access these instances using the itemindex property..


    For i as interger = 1 to cmd.count

    dimcom = cmd.itemindex(i).dimensioncommand

    dim measval as double = dimcom.meas

    next i


    Not 100% sure on this but I think it's right
Children
No Data