6
« on: December 28, 2008, 07:30:58 PM »
Ron,
I am using the latest zipped version file I could find called "Newfangled282.zip"
Here is the code I have been using that I added to your screen in a prior version (v2.77) to pull up the tool diameters and descriptions. It works perfectly. You may be correct that ToolDesc doesn't work so I use a DRO that pulls up the Tool Description bases on the tool number like Tormach does in their screens. (check out the program line...."SetOemDRO(824,ToolNumber (Dlg1.listbox)) 'set minimized Tool#DRO so that TOOLDESC DRO will Update")
Sub main
' read tool info from tool table and update DROs for tool number and dia
Dim ToolNumber (256) As Single
'''''Dim ToolDesc (20) as string
Dim ToolDia (256) As Double
Dim ToolDisplay(256) As String
CurrentTool = 1
ToolCnt=0
For CurrentTool=1 To 255
''''''ToolDesc (CurrentTool) =
TempDia = GetToolParam(CurrentTool , 1)
If TempDia>0 Then
ToolNumber (ToolCnt) = CurrentTool
ToolDia (ToolCnt)= TempDia
ToolDisplay(ToolCnt) = Format(ToolNumber (ToolCnt),"000") & " (" & Format(ToolDia (ToolCnt),"0.0000") &""")"
ToolCnt=ToolCnt+1
End If
Next CurrentTool
Begin Dialog ToolBox 256,89, "Select Tool from Tool Table"
OKButton 204,24,40,14
CancelButton 204,44,40,14
ListBox 50,24,128,60, ToolDisplay (), .listbox
Text 50,17,128,10,"Tool # (Tool Dia) "
End Dialog
Dim Dlg1 As ToolBox
Button = Dialog (Dlg1)
If Button=0 Then 'cancel button
Exit Sub
End If
SetUserDRO(1007, ToolNumber (Dlg1.listbox))
'''''''SetUserLabel (1,ToolDesc(count))
SetUserDRO(1004, ToolDia (Dlg1.listbox))
SetOemDRO(824,ToolNumber (Dlg1.listbox)) 'set minimized Tool#DRO so that TOOLDESC DRO will Update
End Sub
main
Guest
Show Posts