Szia Gábor,

szuper, örülök, hogy találtál. Tényleg nagyon kedves a Hölgy, csak ajánlani tudom.

Előzmény: ANTAL GÁBOR, 2024-10-24 10:23:45 [52193]

A Bervinánál van szorító .(9.87 euró ) Nagyon kedvesek voltak Aki nem ismeri őket annak érdekes lehet a cég . Kuplunggal is foglalkoznak

Előzmény: Aknai Gábor, 2024-10-23 19:13:04 [52190]

Szerintetek a 13-as képes megszorítani 12.7-es tengelyt? Valamilyen mértékben biztosan , de azért én nem kísérletezgetnék vele , bármikor megfordulhat aztán kész a baj , rengeteg kárt bosszúságot is okozhat a későbbiekben. Inkább akkor már beperselyeznék egy nagyobbat. Hasított perselyeket én is használok. PL: ha nincs megfelelő patronom.

Előzmény: ANTAL GÁBOR, 2024-10-23 17:53:59 [52186]

köszönöm mindenkinek . ez a Bervina nagyon tetszik . Holnap felhívom őket . Holnap megnézek egy KLCC 12 est hogy marad e fala ha felfúrnám 12.7 re

Szia Gábor,

hívd föl a fóti Bervina-t hátha van nekik 12,7mm-es készleten.
Én is vettem már tőlük párat léptetőkhöz, nagyon jól működik és könnyebb szerelni, mint a KLCC-t.

üdv, gaben

Előzmény: ANTAL GÁBOR, 2024-10-23 18:03:18 [52187]

Esetleg a Trantorque sorozat?

Előzmény: ANTAL GÁBOR, 2024-10-23 17:53:59 [52186]

Mi egy pár szervótengelyen már használtuk vagy 3 éve Hézagoló lemez és azóta is megfelelően működnek.

Előzmény: ANTAL GÁBOR, 2024-10-23 17:53:59 [52186]

most nézem a Powerbelt katalógust . Csak elvileg létezik a 13 as de se a gyártóknál sem itthon sem Romániában nincs készleten .

Előzmény: ANTAL GÁBOR, 2024-10-23 17:53:59 [52186]

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.

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

Előzmény: navra55, 2024-10-20 21:36:18 [52183]

'*************************************************************************************************************
'***************************     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
'*************************************************************************************************************
'*************************************************************************************************************

Köszönöm.

Előzmény: svejk, 2024-10-20 21:29:34 [52181]

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

Előzmény: navra55, 2024-10-20 21:06:08 [52180]

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
'*************************************************************************************************************
'*************************************************************************************************************

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)

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

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.

Előzmény: baltech, 2024-10-19 13:08:34 [52163]

Huhhh...

Előzmény: TBS-TEAM, 2024-10-20 18:53:27 [52175]

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.

Előzmény: svejk, 2024-10-20 11:36:21 [52174]

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.

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.

Előzmény: baltech, 2024-10-19 13:08:34 [52163]

Keresnék számozott kábelereket.

Előzmény: baltech, 2024-10-20 08:54:34 [52171]

Olyanom van. Az a baj hogy minden egyes zsugorcső növeli az átmérőt, és így is alig férnek bele a kábelek a nagyobb csatlakozókba. Mindenképp a kábelt kell feliratoznom.

Előzmény: D.Laci, 2024-10-20 07:56:24 [52170]

Dymo címke nyomtató, van hozzá zsugorcső is, több színben.

Előzmény: baltech, 2024-10-19 13:08:34 [52163]

HP45Si patronokkal szerelik a legtöbb ipari nyomtatót nagysebességű nyomtatásra alkalmas.
Akár 90m/p.
~1-12mm távolságból lehet nyomtatni.
Magyarnyelvű menüvel
Kinai olcsóbb változat.
~2-12,7mm száles nyomtatás (van 24 széles is).
Persze vannak milliós nagyságrendűek is melyek már tartályosok és nem patronosok.

Előzmény: baltech, 2024-10-19 20:34:35 [52168]

Köszi a válaszokat.
közben találtam egy ilyet is:
https://www.youtube.com/watch?v=9G1mg1YHF3s&ab_channel=ITWDiagraph
de a tintasugaras megoldás jobban tetszik.

Van ennek gazdasagosabb verzioja is.

Előzmény: remrendes, 2024-10-19 14:35:16 [52165]

Szerintem erre találták ki a kábeljelölő klipszeket, bár a nyomtatás kétségtelenül elegánsabb, és jobban automatizálható.

Előzmény: baltech, 2024-10-19 13:08:34 [52163]

Errol nekem a datum nyomtatok jutnak eszembe.

Előzmény: baltech, 2024-10-19 13:08:34 [52163]

Szia,

Na ezzel kínlódtam én is évekkel ezelőtt, több kevesebb sikerrel, a végén egészen triviális lett a megoldás. A lézerjelölés némileg működött fehér-világos színű vezetékeknél, de több volt a baj vele mint a haszna, érdes lett a felület a jelöléstől, nem lehetett húzni ezért a gégecsőbe, ha jobban megtépted, a jelölésnél sérült a szigetelés. próbáltam galvós co2-vel, fiber-re, soha nem lett az igazi, UV-re meg nem volt pénz. Aztán jött a reveláció, gumihengerre co lézerrel a palástra gravíroztam a szükséges szöveget vagy azonosítószámot (tükrözve, kiemelve, stb), amit a fémiparban használatos fehér vagy sárga filctollal "kentem", így egy v hornyos fémhenger és a pecsétgumi henger között áthúzva egész szép lett. Persze, ahány szöveg, annyi bélyeg kell, de úgy oldottam meg, hogy minden rajta volt egy hosszabb gumihengeren és odahúztam a v hornyos támasztógörgőt, amilyen szöveg/szám kellett. Az első gumihenger - és egyben az utolsó is egy hp lézernyomtató bontásából lett, a fuserben volt, de tintasugarasokban is van szinte mindegyikben ilyen.
Római számozást használtam, fehér vezetéknél fekete alkoholos filc, feketénél meg a sárga vagy fehér alkoholos jelölőfilc. elvileg rendes bélyegzővel is meg lehetne oldani, hogy időnként rábélyegzel a vezetékre. Persze ezzel azonosítást meg tudsz oldani, de a hossz jelölése nem lehetséges.
O.

Előzmény: baltech, 2024-10-19 13:08:34 [52163]

Sziasztok!
Az alábbi kérdéssel fordulnék hozzátok:
Egyedi kábelkötegeket szoktam gyártani(Mezőgazdasági gép, munkagép)
Színes kábelekkel dolgozom, de sokszor 40-50 kábel is fut párhuzamosan,
és így hosszadalmas az azonos színű kábeleket kicsöngetni hogy melyiket hová kössem a csatiba.
Arra gondoltam számozni kellene valahogy a kábeleket, így akár egyetlen színű (pl. fehér) kábelt is használhatnék az egész kötegben,
így a kábelszámok alapján sokkal gyorsabban lehetne azonosítani a kábeleket.
A neten nem találtam erre megoldást, sőt azt sem tudom hogy valami tintasugaras eljárással kellene "nyomtatni", vagy mondjuk lézergravírozással?
Az elképzelésem az lenne, hogy pl. egy arduino vezérelte gépbe bepötyögöm hogy milyen feliratot szeretnék a kábelre, és a kábel hosszát,
a gép pedig egy hengeres továbbítóval lecsévélné a kábeldobról a kábelt, bizonyos távolságonként rányomtatná a megadott kábelszámot,
majd a beállított hossznál levágná a kész kábelrészt.
A kábelhossz mérését, méretre darabolás automatizálását meg is tudnám oldani, a nyomtatásnál akadtam el.
Esetleg valaki épített már hasonlót, vagy valami ötlet?
https://res.cloudinary.com/engineering-com/image/upload/v1551686865/tips/9c_skmylc.jpg

Ó, Istenem! Még Zsiguli-Lada korszakban csináltam 2N3055-el tirisztoros gyújtásokhoz tápot, fazékvasmaggal, saját tekercsezéssel. Levágtam a gyertaérintkezőt, akkor is szikrázott nyomás alatt is!

Előzmény: PSoft, 2024-10-18 19:53:51 [52152]

Még egy hasznos info:
Ha egy oldalom mereven befogott tartó esetét 3m-es kinyúlással nézzük, akkor a kéttámaszúra kiszámolt erőnek csak a NEGYEDÉT bírná el.

Előzmény: Robsy1, 2024-10-16 14:02:22 [52140]

Köszönöm szépen a megerősítést.

Köszönöm, holnap csere/ "próba".

Előzmény: Vetesi75, 2024-10-18 20:10:26 [52155]

Jó a következtetés!

Előzmény: Kelepeisz Lajos, 2024-10-18 21:17:41 [52156]

Jól érted.

Előzmény: Kelepeisz Lajos, 2024-10-18 21:17:41 [52156]

Sziasztok!
Egy kis segítséget kérnék egy A4988 léptetőmotor áramának beállításában, a gyári képlet így néz ki:
ITripMAX = VREF / ( 8 × RS).
Vagyis ha jól értem, megnéztem a meghajtó kártyán R100 (0,1R) áramfigyelő ellenállások vannak, ami azt jelenti ha mondjuk a panel potin beállítok 1 voltot akkor a képlet 1/(8x0,1)=1,25A motoráramot jelent?
Köszönöm.

Megpróbálnám. Ha nem izzad a meghajtó, akkor maradhat.

Előzmény: Vetesi75, 2024-10-18 20:06:55 [52154]

ŐŐŐŐ.... A 3055 piros feliratú. Toshiba? Azok sanszos, hogy különlegesen nagy bétájú válogatott darabok lehettek. A Toshibák arról voltak híresek. Nálam is az szól a mókolt Quad405-ben.

Előzmény: Vetesi75, 2024-10-18 20:00:58 [52153]

Szerintem igen.

Előzmény: PSoft, 2024-10-18 19:53:51 [52152]

Az elektronikában nálam járatosabbakat kérdezem...

Van nálam javításon egy öreg -legalább 40 éves- EMG 18135-ös labortáp.(30V 2,5A)
Eredetileg, 2N3055 tranzisztorokkal van szerelve.
Az egyik 2N3055 zárlatos a "seggén".
Pillanatnyilag nincs a kezem ügyébe 2N3055, van viszont sok darab 2N3442 a fiókomban.
Cserélhetem a 2N3055-öket 2N3442-re?

      

Szia Tibor

Megkérdezte milyen biztonsági tényezővel számoljon, én azt mondtam neki ne tegyen bele biztonsági tényezőt.

Előzmény: Robsy1, 2024-10-17 14:46:44 [52147]

Megapaszkál és nem Giga . De a helyettesítés rendben van
( 10ad6)

Előzmény: ANTAL GÁBOR, 2024-10-17 19:03:37 [52149]

A terhelési eset az egyik legáltalánosabb ( kéttámaszú tartó középen koncentrált terheléssel M max = (F*l)/4 ( l a teljes hossz ) A tartó keresztmetszeti tényezőjének(k) ismeretében a hajlítófeszültség értéke adott nyomatéknál kiszámolható
M = k*szigma . A két egyenlet ismeretében
F =( k*4*szigma )/l
Kérdéses az adott zártszelvény keresztmetszeti tényezője - Ezt több módon is megismerhetjük . A legegyszerűbb és legpontosabb eset ha a gyártó katalógusából megnézzük . Ez azért jó mert figyelembe veszi a sarkoknál lévő lekerekítéseket. természetesen nem mindegy hogy hogyan helyezzük el a tartót . Legyen a nagyobb terhelést elviselő "kantra" fordított eset . A dunaferr adata : k= 8.188cm3

A hagyományos módon is kiszámolhatjuk a"sarkos" zártszelvény keresztmetszeti tényezőjét . Elöször ki kell számolni a tartó inerciáját majd azt osztani kell a szélső szál távolságával . Az inercia 3 tagból áll a két 54*3 mm es tartórészből , a két 40*3 mm tartórészből és az un Steiner tagból ( szintén kettő ) .A levezetések mellőzésével az inercia értékek : 7.8732 ,0.018, 19.494 summa 27.3852 ebből a keresztmetszeti tényező 9.1284cm3 . Ez az általános módszer nagyon hasznos mert komplikáltabb alakú tartóknál is célravezető Én amikor a műhelyemet építettem akkor az alapba helyezett betonvasakat is optimalizáltam ( a steiner tag a távolság négyzetével arányosan növeli az inerciát , vagyis vékonyabb de távolabb elhelyezett vasak olcsóbb eredményt adnak

Esetünkben más módszer is adódik : egy 60*40 es tömör téglatest keresztmetszeti tényezőjéből levonva a belső virtuális 54*34 es téglatest keresztmetszeti tényezőjét megkapjuk a zártszelvény tényezőjét az eredmény : 9.1284cm3

Van egy modern módszer is : a fejlettebb CAD programok egy rajz alapján képesek az inerciát kiszámolni ( moment of inercia ) a sarkos modellre elvégeztem : I = 273852 mm4 ebből a keresztmetszeti tényező 9.1284cm3

És akkor az erő F= (8.188*10ad-6*4*235*10ad6)/3=2565N
A szigmánál a 235 GPa adattal számoltam Robsy adata ( mint említettem ) ennél kisebb mert ő a 235Gpa kb 90 % át vette figyelembe

Előzmény: Kopirnyák, 2024-10-17 17:59:53 [52148]

Van érdeklődés

Előzmény: ANTAL GÁBOR, 2024-10-17 13:51:09 [52144]

Kérdezd meg az AI-t, hogy milyen biztonsági tényezővel számolt, amikor ezeket az eredményeket kihozta?

Előzmény: Szedlay Pál, 2024-10-17 14:39:35 [52145]

Messze vagyok még attól hogy bármit is elhiggyek a mesterséges intelligenciának.Ezzel én is így vagyok.

Aki sokat dolgozott már ezekkel az alapanyagokkal az tudja , hogy elég nagy a szórásuk , a minőséget tekintve. Tehát már csak-e miatt sem lehet nagyon pontosan kiszámolni. Már az is elég ha a gyártáskor a dolgozók nem tartanak be minden előírást tű-pontosan. (a fél életemet tömeggyártási területen éltem le, sajnos sok negatív dolgot is láttam , papíron persze mindig minden rendbe volt)

Előzmény: ANTAL GÁBOR, 2024-10-17 13:51:09 [52144]

Én azzal kezdtem, hogy Tibor kiszámolta, ő mérnök én pedig nem értek hozzá.
Az hogy butaságot számol nem cáfolom, lehet én fogalmaztam meg neki , nem elég konkrétan a feladatot, csak mint érdekesség raktam ide és nem akartam Tibor számítását kétségbe vonni, miért is tenném, semmi okom rá.
Nyilván ha a levezetését is felrakta volna akkor abból többet tanulhatnánk, de nem biztos, hogy ez cél.
És nem is ez volt a kérés, csak egy végeredmény.

Előzmény: ANTAL GÁBOR, 2024-10-17 13:51:09 [52144]