Macro Tool DB with Material

Macro Tool DB with Material

gosmann.andreas
Advocate Advocate
787 Views
4 Replies
Message 1 of 5

Macro Tool DB with Material

gosmann.andreas
Advocate
Advocate

whats wrong it tells me there the Material not in the DB

 

STRING $Material = ""
STRING LIST $Options = {"Aluminium", "Guss", "Werkzeugstahl"} 
INT $result = INPUT CHOICE $Options "Wähle das Material"
If $result == 0 {
    $Material = "Aluminium"
} ELSEIF $result == 1 {
    $Material = "Guss"
} ELSE {
    $Material = "Werkzeugstahl"
}

//Abfrage der Werkzeuge für M4
IF NOT $ENTITY_EXISTS('tool','HSS_NC-Anbohrer_D10,00_90Grad_YG-1_D2306100') {
   FORM TOOLDBSEARCH
   TOOLDB QUERY SET TOOL_TYPE ALL
   TOOLDB QUERY SET STOCK_MATERIAL_ACTIVE
   TOOLDB STOCK_MATERIAL SELECT "$Material"
   TOOLDB QUERY SET NAME "HSS_NC-Anbohrer_D10,00_90Grad_YG-1_D2306100"
   TOOLDB QUERY PRESET
   TOOLDB RESULTS_LIST CREATE NOQUIBBLE ALL
}
IF NOT $ENTITY_EXISTS('tool','HSS_Bohrer_D03,30_L36_Gold-P') {
   FORM TOOLDBSEARCH
   TOOLDB QUERY SET TOOL_TYPE ALL
   TOOLDB QUERY SET STOCK_MATERIAL_ACTIVE
   TOOLDB STOCK_MATERIAL SELECT "$Material"
   TOOLDB QUERY SET NAME "HSS_Bohrer_D03,30_L36_Gold-P"
   TOOLDB QUERY PRESET
   TOOLDB RESULTS_LIST CREATE NOQUIBBLE ALL
}
IF NOT $ENTITY_EXISTS('tool','Gewindebohrer_M4x0,7') {
   FORM TOOLDBSEARCH
   TOOLDB QUERY SET TOOL_TYPE ALL
   TOOLDB QUERY SET STOCK_MATERIAL_ACTIVE
   TOOLDB STOCK_MATERIAL SELECT "$Material"
   TOOLDB QUERY SET NAME "Gewindebohrer_M4x0,7"
   TOOLDB QUERY PRESET
   TOOLDB RESULTS_LIST CREATE NOQUIBBLE ALL
   TOOLDBSEARCH ACCEPT
}
0 Likes
Accepted solutions (1)
788 Views
4 Replies
Replies (4)
Message 2 of 5

rafael.sansao
Advisor
Advisor
Accepted solution

try this:

TOOLDB STOCK_MATERIAL SELECT $Material

Rafael Sansão

OptiNC - www.optinc.tech

EESignature

0 Likes
Message 3 of 5

gosmann.andreas
Advocate
Advocate

i tried that dont work

0 Likes
Message 4 of 5

rafael.sansao
Advisor
Advisor

I tested on the Powermill 2020 and 2021 and it works. Which version are you using?

 

STRING $Material = ""
STRING LIST $Options = {"Aluminium", "Guss", "Werkzeugstahl"} 
INT $result = INPUT CHOICE $Options "Wähle das Material"
If $result == 0 {
    $Material = "Aluminium"
} ELSEIF $result == 1 {
    $Material = "Guss"
} ELSE {
    $Material = "Werkzeugstahl"
}

//Abfrage der Werkzeuge für M4
IF NOT $ENTITY_EXISTS('tool','HSS_NC-Anbohrer_D10,00_90Grad_YG-1_D2306100') {
   FORM TOOLDBSEARCH
   TOOLDB QUERY SET TOOL_TYPE ALL
   TOOLDB QUERY SET STOCK_MATERIAL_ACTIVE
   TOOLDB STOCK_MATERIAL SELECT $Material
   TOOLDB QUERY SET NAME "HSS_NC-Anbohrer_D10,00_90Grad_YG-1_D2306100"
   TOOLDB QUERY PRESET
   TOOLDB RESULTS_LIST CREATE NOQUIBBLE ALL
}
//...................

Rafael Sansão

OptiNC - www.optinc.tech

EESignature

0 Likes
Message 5 of 5

gosmann.andreas
Advocate
Advocate

i dont know why but i cloesed everything reopend it and it works without ""

thank you

0 Likes