Hello Guest it is November 20, 2019, 10:58:54 PM

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.


Messages - TPS

1201
VB and the development of wizards / Re: Z probe macro with offset
« on: May 18, 2015, 04:47:01 PM »
OK,

again try to "play" a little bit with
G43 H??

G43H0 is your master, an then you will understand this
tool hight thing.

Thomas

1202
OK,
i think your B/C axis can work as a "normal" CSMIO-A axis,
so the only little problem witch is left, is to get this C/B axis
controler (Witch is now in a positionig via RS232/mode ore someting like this),
into a -/+10V mode.

Thomas

1203
VB and the development of wizards / Re: Z probe macro with offset
« on: May 18, 2015, 04:22:49 PM »
Hi AVRnj,

not realy sure what you are trying to do.
in Your macro you are setting the z-axis zero to something (plate height, i asume).

tool hieght is set by g43 H??,

so i am not sure what you want to to,
set the z-axis height,
or set set the tool height ??

Thomas






1204
Hi,

tested on my -M machine.
exactly like Hood described.

Thomas

1205
CS-Lab / Re: CSMIO IP-M very slow input
« on: May 18, 2015, 10:13:58 AM »
Hi Benny,

any new info ?

Thomas

1206
Would Mach 4 be better than Mach 3?

imho not for the moment.

Thomas

1207
Hi,
Regarding the ModBus set -up I try it , but it seems don't work....or I do somethingh wrong?

i'll gona try this tonight, never worked with brain.

Thomas

1208
Hi M21,

here:
Code: [Select]
'Function to read a Section/entry of a  INI file
Function ReadIni( ByVal file As String, ByVal section As String, ByVal item As String ) As String
ReadIni = " "
Set FileSysObj = CreateObject("Scripting.FileSystemObject")
If FileSysObj.FileExists( file ) Then
Set ini = FileSysObj.OpenTextFile( file, 1, False)

Do While ini.AtEndOfStream = False
TextLine = ini.ReadLine
If TextLine = "[" & section & "]" Then
TextLine = ini.ReadLine
Do While Left( TextLine, 1) <> "["
If InStr( TextLine, item & "=" ) = 1 Then
ReadIni = Mid( TextLine, Len( item ) + 2 )
Exit Do
End If
If ini.AtEndOfStream Then Exit Do
TextLine = ini.ReadLine
Loop
Exit Do
End If
Loop
ini.Close
End If
End Function

not exectly what you need, but shows the principals of file/text handling.

Thomas

1209
have you checked your grounding for noise ?
your power supply for Geko ?

Thomas

1210
Hi,

i think first step will be to get much manuals of the used controler's
as possible.

mitsubishi anyway, and ITRI as well.
maybe you can get a wiring diagram from Ecoca.
as more informations you get from the existing system, as easier it
will be to convert.

Thomas