Jump to content

PCM function to run/"jump" a specific characteristic list


---
 Share

Recommended Posts

Hi, Im looking for some solution to my problem or/and another way to follow.

I have a characteristics list separated by groups because this is the way to inspect the part 2 time faster and do not use the clearance cube, this is necessary for the process because we inspect 100% the parts.
I want to know how can I do to inspect a group list but just when the part number meets the condition... in example we run 20 types of parts every part have 4 subfamilies... A1, A2, A3, A4... the numb 1 and numb 2 are pretty similar but the 3 and 4 is the same geometry except by 5 additional features. When the part is A1 or A2 run the program except the characteristic group mentioned, and when the part be A3 or A4 need to measure these characteristics...

Is not an option to run the routine by characteristic list, just for features list...the condition option by characteristics works fine but this increase the time inspection.

I appreciate your help, thank you.
Link to comment
Share on other sites

Actually, running from Characteristics is faster, but looks like is not popular to deal with the execution order using this list.
I normally save from 30 to 80 seconds in programs that take around 12 minutes.

is not necessary to use PCM for that but I do it sometimes:

viewtopic.php?p=31310#p31310



1375_7e67cea54f61b4d7767ad3854b971f84.7z
Link to comment
Share on other sites

Please sign in to view this quote.

I was very focused to fix this issue with a complex PCM command and after many trials I understood... always was a simple command:

//********************MINI PLAN********************
//select if the part is a production or set-up part
repeat
definer_2=0
MINIPLAN=inquireList("TIPO DE MEDICIÓN","SHORT","AUDIT")
if MINIPLAN=="SHORT" then
definer_2=1
endif
if MINIPLAN=="AUDIT" then
definer_2=1
endif
if definer_2==0 then
message("SELECCIONA UNA OPCIÓN DE LA LISTA o PRESIONA ESC EN EL JOYSTICK PARA VOLVER A CARGAR DATOS")
endif
until definer_2==1
setRecordHead("u_MINIPLAN",MINIPLAN)

//********************COMPRESSOR SIZE "H1"********************
if PARTSIZE=="H1" then
NEWPATH=PARAMETERPATH+"ORBITING_FINISHING_57001366_142.para"
readPCMFile(NEWPATH)
PARTEXT="142"
PARTNUMBER="57001366"
PARTREV="H"
loadCADFile(CADPATH+"ORBITING_FINISHING_57001366.sab")
//********************ALIGNMENT********************
copyFile(BASEALIGNPATH+CMMID+BS+PARTFAMILY+TAB+OPERATION+TAB+FAM3+BS+DAT,BASESYSTEMPATH+PROGRAMNAME+BS+DAT)
copyFile(BASEALIGNPATH+CMMID+BS+PARTFAMILY+TAB+OPERATION+TAB+FAM3+BS+USE,BASESYSTEMPATH+PROGRAMNAME+BS+USE)
copyFile(BASEALIGNPATH+CMMID+BS+PARTFAMILY+TAB+OPERATION+TAB+FAM3+BS+VER,BASESYSTEMPATH+PROGRAMNAME+BS+VER)

//********************MINIPLAN SELECTION********************
if MINIPLAN=="SHORT" then
setRunID("SHORT")
endif
if MINIPLAN=="AUDIT" then
setRunID("AUDIT")
endif
endif
//********************COMPRESSOR SIZE "H7"********************
if PARTSIZE=="H7" then
NEWPATH=PARAMETERPATH+"ORBITING_FINISHING_57007481_132LOVI.para"
readPCMFile(NEWPATH)
PARTEXT="132 LOVI"
PARTNUMBER="57007481"
PARTREV="A2"
loadCADFile(CADPATH+"ORBITING_FINISHING_57007481_132LOVI.sab")
//********************ALIGNMENT********************
copyFile(BASEALIGNPATH+CMMID+BS+PARTFAMILY+TAB+OPERATION+TAB+FAM3+BS+DAT,BASESYSTEMPATH+PROGRAMNAME+BS+DAT)
copyFile(BASEALIGNPATH+CMMID+BS+PARTFAMILY+TAB+OPERATION+TAB+FAM3+BS+USE,BASESYSTEMPATH+PROGRAMNAME+BS+USE)
copyFile(BASEALIGNPATH+CMMID+BS+PARTFAMILY+TAB+OPERATION+TAB+FAM3+BS+VER,BASESYSTEMPATH+PROGRAMNAME+BS+VER)

//********************MINIPLAN SELECTION********************
if MINIPLAN=="SHORT" then
setRunID("SHORT")
endif
if MINIPLAN=="AUDIT" then
setRunID("VVI")
endif
endif
Link to comment
Share on other sites

 Share

×
×
  • Create New...