Home

You need to log in to create posts and topics.

Αναζήτηση VB Script

Καλησπέρα. Όπως αναφέρω και στον τίτλο του θέματος ψάχνω να βρω κάποιο script για το κεντράρισμα του κοπτικού σε οπή με την βοήθεια probe. Στο YouTube υπάρχουν πολλά βίντεο αλλά δεν κατάφερα να βγάλω άκρη. Θέλω να κάνω κάτι ανάλογο με το παρακάτω βίντεο :

https://www.youtube.com/watch?v=TTwjvDBv_dQ

Βρήκα αυτό στο forum. Δεν το έχω δοκιμάσει, αλλά φαίνεται να λειτουργεί.

------------------------------------------
This is to find the center of a circle or rectangle. I have not tried yet but it's something, take caution.
------------------------------------------
If GetOemLed(825)=0 Then
XN=GetOemDro(800)
Sleep 1000
Code "G91 G1 F30 X100"
While GetOemLed(825)=0
Wend
DoOEMButton (1003)
Sleep 1000
X1=GetOemDro(800)
Sleep 1000
Code "G90 G1 F300 X" &XN
While IsMoving()
Wend
Sleep 500
Code "G91 G1 F30 X-100"
While GetOemLed(825)=0
Wend
DoOEMButton (1003)
Sleep 1000
X2=GetOemDro(800)
XC=(X1+X2)/2
Sleep 1000
Code "G90 G1 F300 X" &XC
While IsMoving()
Wend
Sleep 500
YN=GetOemDro(801)
Sleep 1000
Code "G91 G1 F30 Y100"
While GetOemLed(825)=0
Wend
DoOEMButton (1003)
Sleep 1000
Y1=GetOemDro(801)
Sleep 1000
Code "G90 G1 F300 Y" &YN
While IsMoving()
Wend
Sleep 500
Code "G91 G1 F30 Y-100"
While GetOemLed(825)=0
Wend
DoOEMButton (1003)
Sleep 1000
Y2=GetOemDro(801)
YC=(Y1+Y2)/2
Sleep 1000
Code "G90 G1 F300 Y" &YC
While IsMoving()
Wend
Message( "Axis is now centered" )
Else
Message( "Check if plate is grounded and try again" )
End If
End

Αρχικά θέλω να ευχαριστήσω τον cnc_freack για την άμεση ανταπόκριση. Το αρχείο λειτουργεί άψογα με μόνο μειονέκτημα την πάρα πολύ αργή πρόωση.Αν καταφέρω να βγάλω άκρη με τον κώδικα και την αυξήσω λίγο έχει καλός διαφορετικά θα μείνει ως έχει. Στην συνέχεια έφτιαξα και ένα probe το οποίο σας παρουσιάζω παρακάτω. Η ιδέα βασισμένη σε διάφορα βιντεάκια από το YouTube και οι διαστάσεις σύμφωνα με τις ανάγκες μου.

 

Uploaded files:
  • You need to login to have access to uploads.

Και μια γρήγορη περιγραφή. Πιστεύω η αρχή λειτουργίας του probe να είναι γνωστή σε όλους. Τρία αξονάκια 3mm από βελονοειδή ρουλεμάν κλείνουν κύκλωμα με τις μπίλιες (4mm). Με την μετατόπιση του άξονα το κύκλωμα ανοίγει και μέσο της κάρτας interface και του Mach3 γίνονται τα περαιτέρω.Στην σειρά έχω βάλει και ένα LED 3mm με μία αντίσταση 220Ω για να έχω και οπτική ένδειξη κατά την λειτουργία του probe.Οι τρεις ακέφαλες Μ3 με τις μπίλιες (φωτό 4)έχουν τοποθετηθεί για να μπορέσω να κεντράρω τον άξονα του probe με τον άξονα περιστροφής. Τέλος οι διαστάσεις είναι 30mm διάμετρο,άξονας για collet 8mm ,μπίλια 4mm στην απόληξη του probe και ολικό μήκος 75mm.

https://www.youtube.com/watch?v=DK5PL5iIIVM&feature=youtu.be

Η εντολη για τη πρόωση είναι η FXXXX. Εκεί μπορείς να την αλλάξεις κατά βούληση.