Hello Guest it is April 18, 2024, 11:13:07 AM

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - TPS

Pages: « 1 2 3 »
11
G-Code, CAD, and CAM discussions / A-Axis TC
« on: December 13, 2017, 01:46:04 AM »
Hello together,

for the moment i am working on a retrofit of  a TongIL TNV40 Mill.
CS-Lab Controller, new servo motor's for axis , Mach3 aso.

now i have a little "fight" with the TC turn axis (A).
i configured in General config:

-A-Axis is angular
-Rot 360 rollover

positioning of A-Axis is as expected with the rollover at 360°

i have wiritten a small script witch calculates the nearest angle to the next expected tool (not an new idea).

so i get out a relative +/- angle to do the move to the TC Position.

so far so good.

G-code would look like this for example:

Situation:
TC P1 = 0
TC P2 = 30

A-Axis is at 0 (P1) and i want to move to P2(30)


'move incremental to P2
"G91 G1 A30 F800"

'do a absolute move to inviod angle Errors
"G90 G1 A30 F800"

ok this sample makes not much sense in this case, but if you have to go ccw for two ore thre positions, or at the rollpver it makes sense.
it is only to discribe the principal.


so now the real Problem:

'move incremental to P2
"G91 G1 A30 F800"
is working like expected, axis is moving +30deg, and axis dro is 30  at the end

'do a absolute move to inviod angle Errors
"G90 G1 A30 F800"
it does a complete turn in CW direction, an can not understand why.


i am not sure wether this is a Mach3 Problem, or CS-Lab Controller issue.

so i would prechiate if someone could do this simple test on a different Controller,
to figure out on witch side the Problem is.

Thank You in advance, and excuse my bad english.

Thomas
 












12
VB and the development of wizards / global script file Mach3
« on: November 25, 2017, 03:10:57 AM »
Hi guys,

is there a possibiltiy to declare/create a global script file,
where i can put all my functions witch are needed from
different scripts ?

Thank You Thomas

13
Third party software and hardware support forums. / Fanuc Pulse Coder
« on: July 06, 2017, 11:19:32 AM »
on my TongIL retrofit Project, i am at the spindle now.
the spindle has a pulse code A20B-9000-0380.

on the web i found two different types.

i have the the one with the following signals:

0V -> GND
5V -> Power supply

VA
VA/   the Sinus wave

VB
VB/  the Cosinus wave

so far so clear and i can measure the signals with the scope

then we have a

VZ witch should be the Zero pulse

the is no VZ/.

i have measured VZ to GND allways 2,5V
i have measured VZ to 5v allways -2,5V

i was never able to see a pulse on the scope.

maybe one of you has got any further ideas.

Regards Thomas


14
Hello together,

for the moment i am working on a retrofit of a Tong IL TNV40 Mill.
at the ATC is a SANYO DENKI DC Servo Motor Type C-200-20A8.

Sanyo Denki and Tong IL are not willed to give a electric connection diagram.

So  i am asking on this way, maybe one of you has got one.

Thanks in advance Thomas


15
Forum suggestions and report forum problems. / modify my own posts
« on: April 18, 2015, 07:34:20 AM »
hey guy's

sometimes i am not allowed to edit may own post's.
does somebody know why ?

Thank you Thomas

16
Mach Screens / translation main menue and submenues
« on: September 17, 2014, 10:22:06 AM »
hi,

does anybody know of a possibility to translate main menue bar and
al the submenues ?

Thanks Thomas

17
Mach Screens / tooltiptext
« on: September 17, 2014, 03:55:45 AM »
has anyone a idea how to add a tooltiptext to a button ?

Thanks Thomas

18
Screen designer tips and tutorials / BMP automatic update
« on: September 16, 2014, 07:43:15 AM »
hi,

is there any possibility to update a BMP picture during runtime ?

mine is only update if i start the software.

Thanks Thomas

19
VB and the development of wizards / homing macro and Ismoving
« on: August 31, 2014, 10:18:48 AM »
Hello together,
first of all excuse my bad english.

after hours of searching i will post my problem here.

i have written a small macro for auto homing and clearing home limit swtiches if
necessary.

here the code:
Code: [Select]
Sub Main()
' -------------------------------------------------------------------------------
' TPS 30.08.2014 
' Referenzschalter freifahren und anschliessend Referenzieren
' -------------------------------------------------------------------------------
'beim Laden des Files Abbrechen
If IsLoading() Then
    GoTo Ende
End If

Message ("Automatische Referenzfahrt")

'Referenz INI Z freifahren
If GetOEMLED(836) Then
Code "G91" ' Inkremental Modus
Code "G0 Z-50" ' Freifahren
WaitMoving
Code "G90" ' Absolut Modus
End If

'Z referenzieren
DoButton(24)   'Zuerst Z
WaitMoving

'Referenz INI X freifahren
If GetOEMLED(830) Then
Code "G91" ' Inkremental Modus
Code "G0 X-50" ' Freifahren
WaitMoving
Code "G90" ' Absolut Modus
End If

'Referenz INI Y freifahren
If GetOEMLED(833) Then
Code "G91" ' Inkremental Modus
Code "G0 Y-50" ' Freifahren
WaitMoving
Code "G90" ' Absolut Modus
End If

'X und Y referenzieren
RefCombination(3) ' dann X und Y
WaitMoving
Code "G54" 'Koordinatenverschiebung ein
Sleep(200) 'warten
    Message (" ") 'Stauszeile löschen
Exit Sub
 '--------------------------------------------------------------------------------

Ende:
 
 Message ("Automatisches Referenzieren Abgebrochen")
   
End Sub   

'Funktion zum warten bis Antrieb steht
Function WaitMoving()
Sleep(200)
While IsMoving()
Sleep(200)
Wend
End Function 


sorry for the german comments.

the problem ist that the macro hangs in about 1 of 50 tryes
at the line

   While IsMoving()

line. if i press the stop button
i get the message:

internal error at line ..


i have no idea what i am doing wrong.

Thanks Thomas

20
VB and the development of wizards / SetToolDesc problem
« on: July 26, 2012, 04:00:25 AM »
hi all,

tryed the example from

Mach3 Version 3.x
Macro Programmers Reference Manual

to set tool description.

Sub Main

   Dim TNum As Integer
   Dim TDesc As String

   TNum  = 1 ' want to set description for tool # 1
   TDesc = "1/4 135 degree split point drill"

   If SetToolDescription(TNum, TDesc) Then
      Message "Tool description was set"
   Else
      Message "Error setting Tool description"
   End If

End Sub

geting errormessage in VB Scripter : Sub or function not defined:SetToolDescription

any ideas how to fix ?

Thanks Thomas


Pages: « 1 2 3 »