Segítség, béna vagyok!

[D.Laci]

Keresnék számozott kábelereket.

[Robsy1]

Szia!
Van HP45 tintasugaras jelöléshez kifejlesztett Robsy CNC vezérlőm.
Erről és más Robsy CNC jelöléstechnika, vágás megoldásokról
ezen a linken tájékozódhatsz.
Csörrenj rám, ha érdekel ez a megoldás, szívesen segítek.

[svejk]

Ezek az említett tinták tényleg bírják az ipati környezetet mint pl. emulzió, hidraulika olaj, különböző tisztítóspray-k, vagy csak az összeszerelésig tartanak ki?
A spray-kel nem egyszer jártam úgy hogy véletlen fújás és már huss is a feliratoknak.

Anno az '50-es években gyártott berendezésekben mipolán csőre írtak kézzel valamilyen vegytintával, javarészt még ma is jól olvashatók.

A másik, hogy mondjuk egy 2 mm átmérőjű vezeték esetében gyanítom nagyon torzul a felirat ha csak síkban mozog a patron.

Nekem azok az utólagos feliratok tetszenek amiknél a vékony hordozóra keresztben vannak a feliratok 5-10 mm-enként és 2-3 rétegben van rátekerve a vezetékre.
Ha megsérül a felirat csak le kell tekerni egy menetet és ott a másik hibátlan rész.
Ha van hely persze mehet rá az átlátszó zsugor is.

[TBS-TEAM]

Polimer bázisú festék kell az nem jön le.
Van belőle dörzsölésálló is:
POLYtij thermal festékpatron Adhesion +50
42ml ~50 ezer.

[svejk]

Huhhh...

[TBS-TEAM]

Ha meg tudod oldani arduinoval a kábel csévélés stb.. akkor
arduinoval lehetne a kábelre pl: EDDING FSE141F filcell számokat gravirozn(írni) ez lenne a legolcsóbb.
A kábelre hosszában írnám a számokat rugós felfogatással
rögzíteném a tollat. [#eplus2]

[Révész Richárd]

Nem tudom a Németek mivel csinálják, de 15 év után is olvasható marad a felirat a vezetékeken.
Van pár régebbi szekrény a látókörömben. 0,75 mm2 vezetékek is jól olvashatók

[uph5fcryd]

Szép jóestét mindenkinek!
Kis segítséget szeretnék kérni.
Mach3 szoftver vezéli a gépemet, ahol van ugye van egy ilyen funkció, hogy "auto tool zero". Régebben már használtam egy másik gépnél, de valahogy elkevertem azt scriptet amit fel kellet tölteni.Nem is volt mindíg fontos a használata hiszen lehet nullpontot felvenni máshogy is. Aztán találtam egy scriptet ma a neten , gondoltam egy próbát megér...Feltöltöttem, szépen működott, a scriptben kijavitottam a mérő magasság(vastagság) értékét, aztán új próba... és itt jött a furcsaság: nem a "Z" tengely mozdult hanem a 4.tengely, egy forgató kezdett fordulni...És azóta csak a 4.tengelyt mozdítja
Vajon mit rontottam el? Mi lehet a hiba?
Nagyon megköszönném, ha valaki tudna segíteni...

 Alább beszúrom a scriptet... nem tudom hogy egy .txt fájl lehet-e egyszerűbben is mellékelni?

**********************************************************************************************************
*******FONT**************                 CHARLIE SARSFIELD               ********************************
******Courier************            www.YouTube.com/sunny5rising         ********************************
*************************                sunny5rise@gmail.com             ********************************
**********************************************************************************************************
*****************   TEST SCRIPTS CAUTIOUSLY  ******  USE SCRIPTS AT YOUR OWN RISK  ***********************
**********************************************************************************************************
*****************         To Support My Work: http://paypal.me/CharlieCNC          ***********************
**********************************************************************************************************

These scripts were written and tested on Mach3 Version R3.043.066. Some older versions of Mach3 may
require editing of the scripts. I recommend downloading the latest released version of Mach3 if you
have any problems with these scripts. ( https://www.machsupport.com/software/mach3/ )

These scripts have been tested on both Parallel Port and USB connected machines. If you have any
issues, please contact me via the email address above.

*** Video about Z Auto Tool Zero:
     CNC/MACH3 - Tool Setting Touch Plate | Auto Tool Zero (Z Axis) | Includes INCH/MM Script
     ( https://youtu.be/tvV2Vmrxarc )

     Z_TOUCH_REV22.zip (Link to zip file in video description)

     * Z_TOUCH_SCRIPT_REV22.txt
     * ToolCompleteSND1.wav   (:\Mach3)
     * ReadMe.txt (This file)



*** Video about XY Edge/Center Finding:
     CNC/MACH3 | Automated Tool Setting | Edge/Center Finding (X/Y) | Includes INCH/MM Scripts
     ( https://youtu.be/MQ9XT30s-PU )

     XY_TOUCH_SCRIPTS2.zip (Link to zip file in video description)

    Before copying the below image files to the image folder (:\Mach3\Bitmaps\MillBitmaps), rename
    original image files if you wish to keep them (recommended)

     * BackgroundOffset.jpg            (:\Mach3\Bitmaps\MillBitmaps)
     * HelpWorkOffset.jpg              (:\Mach3\Bitmaps\MillBitmaps)
     * select2.jpg                     (:\Mach3\Bitmaps\MillBitmaps)
     * TouchImage2.jpg                 (:\Mach3\Bitmaps\MillBitmaps)
     * TouchImagec2.jpg                (:\Mach3\Bitmaps\MillBitmaps)
     * CENTER_EXTERNAL_SCRIPT_REV16.txt
     * CENTER_INTERNAL_SCRIPT_REV15.txt
     * X_NEGATIVE_SCRIPT_REV13.txt
     * X_POSITIVE_SCRIPT_REV13.txt
     * Y_NEGATIVE_SCRIPT_REV13.txt
     * Y_POSITIVE_SCRIPT_REV13.txt
     * ReadMe.txt (This file)

[uph5fcryd]

Bocsánat a sript ez lenne:

'*************************************************************************************************************
'***************************     Z Axis Touch Plate Script For Mach3 R3.043   ********************************
'******FONT*****************    For Both INCH And MM Units | Rev22 July/2022  ********************************
'*********Courier***********                 CHARLIE SARSFIELD                ********************************
'***************************            www.YouTube.com/sunny5rising          ********************************
'***************************                sunny5rise@gmail.com              ********************************
'*************************************************************************************************************
'********************    TEST SCRIPT CAUTIOUSLY  ******  USE SCRIPT AT YOUR OWN RISK   ***********************
'*************************************************************************************************************
'*************************************************************************************************************
'********************         To Support My Work: http://paypal.me/CharlieCNC          ***********************
'*************************************************************************************************************

'----- USER VARIABLES FOR DISTANCES, FEED RATES, TOUCH PLATES, OPTIONS ---------------------------------------
If GetParam("Units") = 0 Then
 '* METRIC VALUES *
 VarUnits = "  MM"
 VarMaxDistance = -25.4      'MAX Z TRAVEL * ALWAYS MAKE NEGATIVE
 VarFeedRate = 127           'MM/MIN DOWN FEEDRATE
 VarStandOff = 1.27          'STANDOFF DISTANCE ABOVE PROBE CONTACT
 VarTouchPlate = 20.066      'PRIMARY/DEFAULT TOUCH PLATE THICKNESS
 VarSecondPlate = 0.038      'SECONDARY TOUCH PLATE THICKNESS * OPTION FOR CHOICE DIALOG
 VarThirdPlate = 0           'TERTIARY TOUCH PLATE THICKNESS * OPTION FOR CHOICE DIALOG
Else
 '* SAE VALUES *
 VarUnits = " INCH"
 VarMaxDistance = -1.0       'MAX Z TRAVEL * ALWAYS MAKE NEGATIVE
 VarFeedRate = 5             'INCH/MIN DOWN FEEDRATE
 VarStandOff = 0.05          'STANDOFF DISTANCE ABOVE PROBE CONTACT
 VarTouchPlate = 0.79        'PRIMARY/DEFAULT TOUCH PLATE THICKNESS
 VarSecondPlate = 0.0015     'SECONDARY TOUCH PLATE THICKNESS * OPTION FOR CHOICE DIALOG
 VarThirdPlate = 0           'TERTIARY TOUCH PLATE THICKNESS * OPTION FOR CHOICE DIALOG
End If

VarRunTheChoice = 1          'RUN PLATE CHOICE DIALOG?  0=NO  1=YES

VarDelayInSec = 0            'DEFAULT SECONDS TO DELAY MOTION
VarBeepOrSpeak = 2           'COUNTDOWN AUDIO: 0=NONE 1=BEEP 2=SPEAK
VarSecOfAudio = 5            'COUNTDOWN SECOND AT WHICH AUDIO BEGINS

VarCompleteAudio = 3         'END SIGNAL: 0=NONE 1=BEEP 2=SPEAK 3=WAV_AUDIO_FILE
VarWavAudioFile = "C:\MACH3\ToolCompleteSND1.wav"     'WAV_AUDIO_FILE LOCATION

'*************************************************************************************************************
'*************************************************************************************************************

'----- GET INITIAL ENVIRONMENT SETTINGS FOR LATER REINSTATEMENT ----------------------------------------------
VarInitialLinearMode = GetOemDRO(819)        'LINEAR MODE  G00/G01
VarInitialDistMode = GetOemLED(48)           'DISTANCE MODE G90/G91
VarInitialFeedRate = GetOemDRO(818)          'FEEDRATE
VarInitialInhibit = GetParam("ZInhibitOn")   'Z INHIBIT STATUS  OFF/ON
VarInitialZScale = GetParam("ZScale")        'Z SCALE VALUE
VarInitialFRO = GetOemDRO(821)               'FEEDRATE OVERRIDE PERCENTAGE
Message ""     'CLEAR STATUS LINE TEXT


'----- CHECK DIGITIZE STATE; 0=CLEAR 1=ACTIVE ----------------------------------------------------------------
If GetOemLED (825) <> 0 Then
 RET = MachMsg("Digitize Status Not Clear. Check Probe/Connections And Try Again!","*** ERROR! ***",0)
 End     'END SCRIPT
End If


'----- CHECK IF USER WANTS TO RUN PLATE CHOICE DIALOG --------------------------------------------------------
If VarRunTheChoice = 1 Then RunTheThing     'RUN SUBROUTINE


'----- ACTIVATE TIME DELAY IF USED ---------------------------------------------------------------------------
If VarDelayInSec <> 0 Then
 Do Until VarDelayInSec = 0     'LOOP UNTIL SECONDS = ZERO
  Message VarDelayInSec         'DISPLAY SECONDS VALUE IN STATUS LINE
   If VarDelayInSec < VarSecOfAudio + 1 Then
    Select Case VarBeepOrSpeak
     Case 1     'OPTION BEEP
      Beep
     Case 2     'OPTION SPEAK
      Speak(VarDelayInSec)
    End Select
   End If
  Sleep 1000     'PAUSE 1 SEC.
  VarDelayInSec = VarDelayInSec - 1     'REDUCE SECONDS BY 1 AFTER EACH LOOP
 Loop
End If


'----- PREPARE FOR MOVE ----- MOVE PROBE DOWN TOWARD CONTACT -------------------------------------------------
SetParam("ZInhibitOn",0)     'TURN Z INHIBIT OFF
SetParam("ZScale",1.0)       'SET Z SCALE TO 1.0
DoOemButton(1014)            'CANCEL FEED OVERRIDE
SetOemDRO(802,0)             'ZERO Z AXIS DRO
Sleep 200                    'DELAY TO ALLOW DRO TO CHANGE
Message "Auto Tool Zero Running..."

Code "#100=" &VarMaxDistance
Code "#101=" &VarFeedRate

Code "G91 G31 Z#100 F#101"   '*MOVE DOWN @ FEEDRATE
 While IsMoving()            'WAIT UNTIL MOVE IS COMPLETE BEFORE PROCEEDING
  SLEEP 100
 Wend
Sleep 200

'----- GET Z CONTACT POSITION AND TEST FOR MAX TRAVEL ------ MOVE TO STANDOFF ------ UPDATE Z AXIS DRO -------
Code "#102=" &VarStandOff

If GetOemDRO(802) <= VarMaxDistance + .001 Then
 RET = MachMsg("Maximum Travel Reached. Reposition Z Axis Closer To Touch Plate And Try Again!","*** OOPS! ***",0)
 Message ""
 RETURNSTATE     'CALL REINSTATE SUBROUTINE
 End     'END SCRIPT
Else
 SetOemDRO(802,0)     'ZERO Z AXIS DRO
 Sleep 200
 Code "G91 G1 Z#102 F[#101*2]"     '*MOVE TO STANDOFF DISTANCE AT TWICE FEEDRATE
  While IsMoving ()
  Wend
 SetOemDRO(802, VarStandOff + VarTouchPlate)     'SET Z DRO (STANDOFF + PLATE THICKNESS)
 Sleep 200
  Select Case VarCompleteAudio
    Case 1     'OPTION BEEP
      Beep
    Case 2     'OPTION SPEAK
      Speak("Tool Zero Complete.")
    Case 3 'OPTION WAV_AUDIO_FILE
      PlayWave(VarWavAudioFile)
  End Select
 Message "Auto Tool Zero Complete! ***Remove Touch Plate***"
End If
RETURNSTATE     'CALL REINSTATE SUBROUTINE
End     'END SCRIPT

'******************************************* SUBROUTINES BELOW ***********************************************

'----- SUBROUTINE TO RETURN INITIAL SETTINGS -----------------------------------------------------------------
Sub RETURNSTATE
 'REINSTATE INITIAL FEEDRATE
 Code "F" &VarInitialFeedRate
 
 'REINSTATE DISTANCE MODE  0=G91  -1=G90
 If VarInitialDistMode = 0 Then Code "G91" Else Code "G90"

 'REINSTATE LINEAR MODE  0=G00  1=G01
 If VarInitialLinearMode = 0 Then Code "G00" Else Code "G01"

 'REINSTATE Z INHIBIT STATUS 0=OFF 1=ON
 If VarInitialInhibit = 1 Then SetParam("ZInhibitOn",1)
 
 'SET Z SCALE TO INITIAL VALUE
 If VarInitialZScale <> 1.0 Then SetParam("ZScale",VarInitialZScale)

 'SET FEEDRATE OVERRIDE TO INITIAL VALUE
 If VarInitialFRO <> 100 Then SetOemDRO(821,VarInitialFRO)
End Sub


'----- DIALOG SUBROUTINE FOR TOUCH PLATE CHOICE AND TIME DELAY -----------------------------------------------
Sub RunTheThing
  Dim PlateList$ (2)     'DECLARE 3 ITEM ARRAY FOR PLATE SIZE LIST
  If GetParam("Units") = 0 Then
    'MM FORMATTING FOR LISTBOX
    PlateList (0) = Format(VarTouchPlate,"00.000")    'FILL ARRAY 1
    PlateList (1) = Format(VarSecondPlate,"00.000")   'FILL ARRAY 2
    PlateList (2) = Format(VarThirdPlate,"00.000")    'FILL ARRAY 3
  Else
     'INCH FORMATTING FOR LISTBOX
    PlateList (0) = Format(VarTouchPlate,"0.0000")    'FILL ARRAY 1
    PlateList (1) = Format(VarSecondPlate,"0.0000")   'FILL ARRAY 2
    PlateList (2) = Format(VarThirdPlate,"0.0000")    'FILL ARRAY 3
  End If

 Dim UnitList$ (0)     'DECLARE 1 ITEM ARRAY FOR UNIT LISTBOX
     UnitList (0) = VarUnits     'FILL ARRAY 1

 'SETUP DIALOG CONTROLS
 Begin Dialog PlateChoice 110,68,"Touch Plate"
    ListBox 15,20,35,30, PlateList$(),.Lstbox2
    ListBox 64,20,25,10, UnitList$(),.Listbox1
    GroupBox 8,8,95,45,"Choose Plate Thickness",.GroupBox1
    OKButton 57,34,37,12
    Text 13,55,100,15, "Delay"
    TextBox 37,55,30,10, .SecText
    Text 70,55,30,15, "Seconds"          
 End Dialog

 Dim Dlg1 As PlateChoice
 Dlg1.SecText = VarDelayInSec     'FILL SECONDS TEXTBOX WITH DEFAULT VALUE

  Button = Dialog (Dlg1)          'SHOW DIALOG AND WAIT FOR BUTTON REPLY

  If Button = 0 Then              'IF CLOSE BUTTON
   Message "Auto Tool Zero CANCELED"
   End     'END SCRIPT
  End If

 'CHECK THAT SECONDS WAS ENTERED NUMERIC
  If IsNumeric(Dlg1.SecText) = True Then
   VarDelayInSec = Int(Dlg1.SecText)
  Else
   RET = MachMsg("*****  SECONDS MUST BE ENTERED IN NUMERIC FORMAT! *****", _
   "  Substance Abuse Is Not Recommended  ",0)
   RunTheThing     'RESTART SUB
  End If
 
 'SET PLATE VARIABLE BASED ON PLATE CHOICE
 PlateNum = Dlg1.Lstbox2
 Select Case PlateNum
      Case 0     'PRIMARY PLATE
        'WILL USE PRIMARY/DEFAULT THICKNESS
      Case 1     'SECONDARY PLATE
        VarTouchPlate = VarSecondPlate
      Case 2     'TERTIARY PLATE
        VarTouchPlate = VarThirdPlate
 End Select
End Sub
'*************************************************************************************************************
'*************************************************************************************************************

[svejk]

Programok bemásolásánál használdd a "[PRG]" gombot a szovegmező jobb felső sarkánál!

[uph5fcryd]

Köszönöm.

[uph5fcryd]

Kód Kijelölés Kibont


'*************************************************************************************************************
'***************************     Z Axis Touch Plate Script For Mach3 R3.043   ********************************
'******FONT*****************    For Both INCH And MM Units | Rev22 July/2022  ********************************
'*********Courier***********                 CHARLIE SARSFIELD                ********************************
'***************************            www.YouTube.com/sunny5rising          ********************************
'***************************                sunny5rise@gmail.com              ********************************
'*************************************************************************************************************
'********************    TEST SCRIPT CAUTIOUSLY  ******  USE SCRIPT AT YOUR OWN RISK   ***********************
'*************************************************************************************************************
'*************************************************************************************************************
'********************         To Support My Work: http://PayPal.Me/CharlieCNC          ***********************
'*************************************************************************************************************

'----- USER VARIABLES FOR DISTANCES, FEED RATES, TOUCH PLATES, OPTIONS ---------------------------------------
If GetParam("Units") = 0 Then
 '* METRIC VALUES *
 VarUnits = "  MM"
 VarMaxDistance = -25.4      'MAX Z TRAVEL * ALWAYS MAKE NEGATIVE
 VarFeedRate = 127           'MM/MIN DOWN FEEDRATE
 VarStandOff = 1.27          'STANDOFF DISTANCE ABOVE PROBE CONTACT
 VarTouchPlate = 20.066      'PRIMARY/DEFAULT TOUCH PLATE THICKNESS
 VarSecondPlate = 0.038      'SECONDARY TOUCH PLATE THICKNESS * OPTION FOR CHOICE DIALOG
 VarThirdPlate = 0           'TERTIARY TOUCH PLATE THICKNESS * OPTION FOR CHOICE DIALOG
Else
 '* SAE VALUES *
 VarUnits = " INCH"
 VarMaxDistance = -1.0       'MAX Z TRAVEL * ALWAYS MAKE NEGATIVE
 VarFeedRate = 5             'INCH/MIN DOWN FEEDRATE
 VarStandOff = 0.05          'STANDOFF DISTANCE ABOVE PROBE CONTACT
 VarTouchPlate = 0.79        'PRIMARY/DEFAULT TOUCH PLATE THICKNESS
 VarSecondPlate = 0.0015     'SECONDARY TOUCH PLATE THICKNESS * OPTION FOR CHOICE DIALOG
 VarThirdPlate = 0           'TERTIARY TOUCH PLATE THICKNESS * OPTION FOR CHOICE DIALOG
End If

VarRunTheChoice = 1          'RUN PLATE CHOICE DIALOG?  0=NO  1=YES

VarDelayInSec = 0            'DEFAULT SECONDS TO DELAY MOTION
VarBeepOrSpeak = 2           'COUNTDOWN AUDIO: 0=NONE 1=BEEP 2=SPEAK
VarSecOfAudio = 5            'COUNTDOWN SECOND AT WHICH AUDIO BEGINS

VarCompleteAudio = 3         'END SIGNAL: 0=NONE 1=BEEP 2=SPEAK 3=WAV_AUDIO_FILE
VarWavAudioFile = "C:\MACH3\ToolCompleteSND1.wav"     'WAV_AUDIO_FILE LOCATION

'*************************************************************************************************************
'*************************************************************************************************************

'----- GET INITIAL ENVIRONMENT SETTINGS FOR LATER REINSTATEMENT ----------------------------------------------
VarInitialLinearMode = GetOemDRO(819)        'LINEAR MODE  G00/G01
VarInitialDistMode = GetOemLED(48)           'DISTANCE MODE G90/G91
VarInitialFeedRate = GetOemDRO(818)          'FEEDRATE
VarInitialInhibit = GetParam("ZInhibitOn")   'Z INHIBIT STATUS  OFF/ON
VarInitialZScale = GetParam("ZScale")        'Z SCALE VALUE
VarInitialFRO = GetOemDRO(821)               'FEEDRATE OVERRIDE PERCENTAGE
Message ""     'CLEAR STATUS LINE TEXT


'----- CHECK DIGITIZE STATE; 0=CLEAR 1=ACTIVE ----------------------------------------------------------------
If GetOemLED (825) <> 0 Then
 RET = MachMsg("Digitize Status Not Clear. Check Probe/Connections And Try Again!","*** ERROR! ***",0)
 End     'END SCRIPT
End If


'----- CHECK IF USER WANTS TO RUN PLATE CHOICE DIALOG --------------------------------------------------------
If VarRunTheChoice = 1 Then RunTheThing     'RUN SUBROUTINE


'----- ACTIVATE TIME DELAY IF USED ---------------------------------------------------------------------------
If VarDelayInSec <> 0 Then
 Do Until VarDelayInSec = 0     'LOOP UNTIL SECONDS = ZERO
  Message VarDelayInSec         'DISPLAY SECONDS VALUE IN STATUS LINE
   If VarDelayInSec < VarSecOfAudio + 1 Then
    Select Case VarBeepOrSpeak
     Case 1     'OPTION BEEP
      Beep
     Case 2     'OPTION SPEAK
      Speak(VarDelayInSec)
    End Select
   End If
  Sleep 1000     'PAUSE 1 SEC.
  VarDelayInSec = VarDelayInSec - 1     'REDUCE SECONDS BY 1 AFTER EACH LOOP
 Loop
End If


'----- PREPARE FOR MOVE ----- MOVE PROBE DOWN TOWARD CONTACT -------------------------------------------------
SetParam("ZInhibitOn",0)     'TURN Z INHIBIT OFF
SetParam("ZScale",1.0)       'SET Z SCALE TO 1.0
DoOemButton(1014)            'CANCEL FEED OVERRIDE
SetOemDRO(802,0)             'ZERO Z AXIS DRO
Sleep 200                    'DELAY TO ALLOW DRO TO CHANGE
Message "Auto Tool Zero Running..."

Code "#100=" &VarMaxDistance
Code "#101=" &VarFeedRate

Code "G91 G31 Z#100 F#101"   '*MOVE DOWN @ FEEDRATE
 While IsMoving()            'WAIT UNTIL MOVE IS COMPLETE BEFORE PROCEEDING
  SLEEP 100
 Wend
Sleep 200

'----- GET Z CONTACT POSITION AND TEST FOR MAX TRAVEL ------ MOVE TO STANDOFF ------ UPDATE Z AXIS DRO -------
Code "#102=" &VarStandOff

If GetOemDRO(802) <= VarMaxDistance + .001 Then
 RET = MachMsg("Maximum Travel Reached. Reposition Z Axis Closer To Touch Plate And Try Again!","*** OOPS! ***",0)
 Message ""
 RETURNSTATE     'CALL REINSTATE SUBROUTINE
 End     'END SCRIPT
Else
 SetOemDRO(802,0)     'ZERO Z AXIS DRO
 Sleep 200
 Code "G91 G1 Z#102 F[#101*2]"     '*MOVE TO STANDOFF DISTANCE AT TWICE FEEDRATE
  While IsMoving ()
  Wend
 SetOemDRO(802, VarStandOff + VarTouchPlate)     'SET Z DRO (STANDOFF + PLATE THICKNESS)
 Sleep 200
  Select Case VarCompleteAudio
    Case 1     'OPTION BEEP
      Beep
    Case 2     'OPTION SPEAK
      Speak("Tool Zero Complete.")
    Case 3 'OPTION WAV_AUDIO_FILE
      PlayWave(VarWavAudioFile)
  End Select
 Message "Auto Tool Zero Complete! ***Remove Touch Plate***"
End If
RETURNSTATE     'CALL REINSTATE SUBROUTINE
End     'END SCRIPT

'******************************************* SUBROUTINES BELOW ***********************************************

'----- SUBROUTINE TO RETURN INITIAL SETTINGS -----------------------------------------------------------------
Sub RETURNSTATE
 'REINSTATE INITIAL FEEDRATE
 Code "F" &VarInitialFeedRate
 
 'REINSTATE DISTANCE MODE  0=G91  -1=G90
 If VarInitialDistMode = 0 Then Code "G91" Else Code "G90"

 'REINSTATE LINEAR MODE  0=G00  1=G01
 If VarInitialLinearMode = 0 Then Code "G00" Else Code "G01"

 'REINSTATE Z INHIBIT STATUS 0=OFF 1=ON
 If VarInitialInhibit = 1 Then SetParam("ZInhibitOn",1)
 
 'SET Z SCALE TO INITIAL VALUE
 If VarInitialZScale <> 1.0 Then SetParam("ZScale",VarInitialZScale)

 'SET FEEDRATE OVERRIDE TO INITIAL VALUE
 If VarInitialFRO <> 100 Then SetOemDRO(821,VarInitialFRO)
End Sub


'----- DIALOG SUBROUTINE FOR TOUCH PLATE CHOICE AND TIME DELAY -----------------------------------------------
Sub RunTheThing
  Dim PlateList$ (2)     'DECLARE 3 ITEM ARRAY FOR PLATE SIZE LIST
  If GetParam("Units") = 0 Then
    'MM FORMATTING FOR LISTBOX
    PlateList (0) = Format(VarTouchPlate,"00.000")    'FILL ARRAY 1
    PlateList (1) = Format(VarSecondPlate,"00.000")   'FILL ARRAY 2
    PlateList (2) = Format(VarThirdPlate,"00.000")    'FILL ARRAY 3
  Else
     'INCH FORMATTING FOR LISTBOX
    PlateList (0) = Format(VarTouchPlate,"0.0000")    'FILL ARRAY 1
    PlateList (1) = Format(VarSecondPlate,"0.0000")   'FILL ARRAY 2
    PlateList (2) = Format(VarThirdPlate,"0.0000")    'FILL ARRAY 3
  End If

 Dim UnitList$ (0)     'DECLARE 1 ITEM ARRAY FOR UNIT LISTBOX
     UnitList (0) = VarUnits     'FILL ARRAY 1

 'SETUP DIALOG CONTROLS
 Begin Dialog PlateChoice 110,68,"Touch Plate"
    ListBox 15,20,35,30, PlateList$(),.Lstbox2
    ListBox 64,20,25,10, UnitList$(),.Listbox1
    GroupBox 8,8,95,45,"Choose Plate Thickness",.GroupBox1
    OKButton 57,34,37,12
    Text 13,55,100,15, "Delay"
    TextBox 37,55,30,10, .SecText
    Text 70,55,30,15, "Seconds"          
 End Dialog

 Dim Dlg1 As PlateChoice
 Dlg1.SecText = VarDelayInSec     'FILL SECONDS TEXTBOX WITH DEFAULT VALUE

  Button = Dialog (Dlg1)          'SHOW DIALOG AND WAIT FOR BUTTON REPLY

  If Button = 0 Then              'IF CLOSE BUTTON
   Message "Auto Tool Zero CANCELED"
   End     'END SCRIPT
  End If

 'CHECK THAT SECONDS WAS ENTERED NUMERIC
  If IsNumeric(Dlg1.SecText) = True Then
   VarDelayInSec = Int(Dlg1.SecText)
  Else
   RET = MachMsg("*****  SECONDS MUST BE ENTERED IN NUMERIC FORMAT! *****", _
   "  Substance Abuse Is Not Recommended  ",0)
   RunTheThing     'RESTART SUB
  End If
 
 'SET PLATE VARIABLE BASED ON PLATE CHOICE
 PlateNum = Dlg1.Lstbox2
 Select Case PlateNum
      Case 0     'PRIMARY PLATE
        'WILL USE PRIMARY/DEFAULT THICKNESS
      Case 1     'SECONDARY PLATE
        VarTouchPlate = VarSecondPlate
      Case 2     'TERTIARY PLATE
        VarTouchPlate = VarThirdPlate
 End Select
End Sub
'*************************************************************************************************************
'*************************************************************************************************************



Így?

[svejk]

[uph5fcryd]

Köszönöm, a probléma megoldódott...

[ANTAL GÁBOR]

Egy 12.7 mm es tengelyméretű  amerikai szervómotorra szeretnék egy fogazott szíjtárcsát feltenni. A metrikus rendszerű tengelyeknél előszeretettel használom a KLCC szorítót.  Szerintetek a 13 as képes megszorítani a 12.7 es tengelyt? A collos rendszerű szorítók horror drágák . Átesztergálni nem akarom a tengelyt .Elvileg egy vékony falú hüvelyt is ráragaszthatnék és egy nagyobb metrikus szorítót alkalmazhatnék de a legegyszerűbb lenne a túlfeszített KLCC 13 as.