aszepesi
Mechanical
- May 26, 2010
- 81
Dear All,
I added the following rows to the end of the holder_ascii.def file:
CLASS GRAPHIT_MILLING
{
TYPE QRY
QUERY "[DB(Type)] == [03]"
DIALOG libref Type
RSET libref Description N_Sections Max_offset
UI_NAME "Graphit_Milling"
CLASS MILL_1
{
TYPE QRY
QUERY "[DB(SubType)] == [0]"
DIALOG libref Description
RSET libref Type Description
UI_NAME "Mill_1"
}
CLASS MILL_2
{
TYPE QRY
QUERY "[DB(SubType)] == [1]"
DIALOG libref Description
RSET libref Type Description
UI_NAME "Mill_2"
}
}
I added the following rows to the holder_database.dat file:
DATA | GR_ZSUG001_00001 | 1 | 3 | 0 | 3 | 0.00000 | 0.00000 | 0.00000 | Small collet
and
DATA | GR_ZSUG001_00001 | 2 | 1 | 44.00000 | 25.00000 | 0.00000 | 0.00000
DATA | GR_ZSUG001_00001 | 2 | 2 | 40.00000 | 27.00000 | 0.00000 | 0.00000
DATA | GR_ZSUG001_00001 | 2 | 3 | 64.00000 | 15.90000 | 0.00000 | 0.00000
I added the following rows to the holder_ascii.tcl file:
For the proc Asc_load_holder_data:
if {$dbc_holder_type == 3} {
ASC_load_milling_holder_data
}
For the proc ASC_retrieve:
if {$dbc_holder_type == 3} {
#milling holder
set dbc_holder_num_sections [ASC_ask_att_val SNUM $db_row "%d" 0 flag]
set dbc_holder_max_offset [ASC_ask_att_val MAXOFF $db_row "%g" 0 flag]
set dbc_holder_min_diameter [ASC_ask_att_val MINDIA $db_row "%g" 0 flag]
set dbc_holder_max_diameter [ASC_ask_att_val MAXDIA $db_row "%g" 0 flag]
}
And the end of the proc Asc_load_holder_data:
For checking:
MOM_log_message "A konkret sor 0 seq-e"
MOM_log_message $dbc_seqno(0)
MOM_log_message $dbc_hld_diam(0)
MOM_log_message $dbc_hld_hgt(0)
MOM_log_message $dbc_hld_taper(0)
MOM_log_message $dbc_hld_corner(0)
I can see the following rows in the syslog file:
************* MOM: TCL SCRIPT MESSAGE *************
User message: A konkret sor 0 seq-e
************* MOM: TCL SCRIPT MESSAGE *************
User message: 1
************* MOM: TCL SCRIPT MESSAGE *************
User message: 44.00000
************* MOM: TCL SCRIPT MESSAGE *************
User message: 25.00000
************* MOM: TCL SCRIPT MESSAGE *************
User message: 0.00000
************* MOM: TCL SCRIPT MESSAGE *************
User message: 0.00000
So, I think everything is correct.
But these values don't set on the Holder tab of the Milling Tool - 5 Parameters dialog window.
Every values remain 0.0000 in every cells on this dialog window.
What is my mistake?
Thanks a lot.
I added the following rows to the end of the holder_ascii.def file:
CLASS GRAPHIT_MILLING
{
TYPE QRY
QUERY "[DB(Type)] == [03]"
DIALOG libref Type
RSET libref Description N_Sections Max_offset
UI_NAME "Graphit_Milling"
CLASS MILL_1
{
TYPE QRY
QUERY "[DB(SubType)] == [0]"
DIALOG libref Description
RSET libref Type Description
UI_NAME "Mill_1"
}
CLASS MILL_2
{
TYPE QRY
QUERY "[DB(SubType)] == [1]"
DIALOG libref Description
RSET libref Type Description
UI_NAME "Mill_2"
}
}
I added the following rows to the holder_database.dat file:
DATA | GR_ZSUG001_00001 | 1 | 3 | 0 | 3 | 0.00000 | 0.00000 | 0.00000 | Small collet
and
DATA | GR_ZSUG001_00001 | 2 | 1 | 44.00000 | 25.00000 | 0.00000 | 0.00000
DATA | GR_ZSUG001_00001 | 2 | 2 | 40.00000 | 27.00000 | 0.00000 | 0.00000
DATA | GR_ZSUG001_00001 | 2 | 3 | 64.00000 | 15.90000 | 0.00000 | 0.00000
I added the following rows to the holder_ascii.tcl file:
For the proc Asc_load_holder_data:
if {$dbc_holder_type == 3} {
ASC_load_milling_holder_data
}
For the proc ASC_retrieve:
if {$dbc_holder_type == 3} {
#milling holder
set dbc_holder_num_sections [ASC_ask_att_val SNUM $db_row "%d" 0 flag]
set dbc_holder_max_offset [ASC_ask_att_val MAXOFF $db_row "%g" 0 flag]
set dbc_holder_min_diameter [ASC_ask_att_val MINDIA $db_row "%g" 0 flag]
set dbc_holder_max_diameter [ASC_ask_att_val MAXDIA $db_row "%g" 0 flag]
}
And the end of the proc Asc_load_holder_data:
For checking:
MOM_log_message "A konkret sor 0 seq-e"
MOM_log_message $dbc_seqno(0)
MOM_log_message $dbc_hld_diam(0)
MOM_log_message $dbc_hld_hgt(0)
MOM_log_message $dbc_hld_taper(0)
MOM_log_message $dbc_hld_corner(0)
I can see the following rows in the syslog file:
************* MOM: TCL SCRIPT MESSAGE *************
User message: A konkret sor 0 seq-e
************* MOM: TCL SCRIPT MESSAGE *************
User message: 1
************* MOM: TCL SCRIPT MESSAGE *************
User message: 44.00000
************* MOM: TCL SCRIPT MESSAGE *************
User message: 25.00000
************* MOM: TCL SCRIPT MESSAGE *************
User message: 0.00000
************* MOM: TCL SCRIPT MESSAGE *************
User message: 0.00000
So, I think everything is correct.
But these values don't set on the Holder tab of the Milling Tool - 5 Parameters dialog window.
Every values remain 0.0000 in every cells on this dialog window.
What is my mistake?
Thanks a lot.