Topics

1

VB and the development of wizards / horizontal bolt pattern

« on: September 13, 2016, 03:57:00 PM »

whether someone has an idea for a macro script how to do layout for horizontal drilling this is for vertical drilling but should not let the z-10 that, for example, repeated 10 times in the same movement naprimet y30 x0, x0 y0 at a distance of 50 mm.
greeting

2

General Mach Discussion / Tangenta to angle 0/90 =on/off output

« on: February 25, 2016, 03:26:08 PM »

have solutions that tangent works as a pneumatic cylinder

G0 x0y0
M3
G1 x200 y0 ( output3 on )
M5
G0x300 y300
M3
G1 x300 y0 (output 3 off )
M5
M30

3

General Mach Discussion / pwm -conect

« on: January 02, 2016, 05:07:00 PM »

Does anyone have an idea how to make a circuit between the two devices as in the picture?
I have a PWM source which operates from 0 -2.5-5v and analog devices to the entrance between the input and GND has 5V and then output either 10V when you connect a short input and GNG have + 10v
2.5v = 0V
at the exit of how to do to merge these two assembly
greeting

4

VB and the development of wizards / ATC CW/CCW rotation

« on: December 10, 2015, 07:42:40 AM »

Can someone help me how to rotate tool cw / ccw with BCD encoder 1-4 tools .outpt 1 - cw , output2 - ccw,  output3 -clok
The engine that runs the three-phase tools with 2 relays


'M6Start.m1s
OldTool = GetOEMDRO (1200)
Tool = GetSelectedTool()
MaxToolNum = 4     

If OldTool = Tool Then
Message ("Selected Tool already loaded")
Exit Sub
End If

While Tool > MaxToolNum
Tool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend

Call StartTool

While NewTool <> Tool
   Call CheckPins
   While IsMoving()
   Wend
Wend

Call StopTool

Call SetUserDRO (1200, NewTool)
SetCurrentTool(NewTool)


Sub StartTool

If NevTool< Tool Then
ActivateSignal(Output2)
Exit Sub
End If

While IsMoving()
   Wend

If NevTool>Tool Then

ActivateSignal(Output4)
Exit Sub
End If



   ActivateSignal(Output3)
   
      While IsMoving()
      Wend
End Sub

Sub CheckPins
   If  IsActive(Input1) Then
      NewTool = 1
      End If
   If  IsActive(Input2) Then
      NewTool = 2
      End If
   If  IsActive(Input3) Then
      NewTool = 3
      End If
   If  IsActive(Input4) Then
      NewTool = 4
      End If
End Sub

Sub Stoptool
   DeActivateSignal(Output2)
      While IsMoving()
      Wend
   ActivateSignal(Output3) 
      Code "G4 P1.0"   
      While IsMoving()
      Wend
   DeActivateSignal(Output3)
   DeActivateSignal(Output4)

      While IsMoving()
      Wend
End Sub       



This example works in one direction, what is the problem
thanks

5

Modbus / OMRON C200

« on: September 20, 2015, 10:43:03 AM »

Hello .has anyone have a code example how to configure the OMRON C200H PLC to communicate ca Mach3 via RS232 Modbus connection .
thank you

6

Modbus / FATEK Modbus

« on: June 04, 2014, 09:12:33 AM »

Please give your someone can give me an example of how to do Modbus communication with the PLC FATEK how to fill a table and an example.
I do know how to spell brain. built a MTBus 1408 and it works great

7

VB and the development of wizards / activate the output to the desired position of the dro

« on: April 27, 2014, 05:53:27 AM »

Please how do I compare the current position on the x-axis to display the default if it is in the range of eg +100 - 50 of the preferred activates output 2

8

VB and the development of wizards / VB to start\stop

« on: May 12, 2013, 07:50:27 AM »

Does anyone can help how to write vb script
for this example:
M2000 (that's my car 'z'i preparation start it works
G91 X400
M2001
X300
M2001
X200
M2001
X300
M2001 (You need to stop the program, to include (output1)
It touches the limit switch (input1) then off (output1) then when you touch the microswitch (input2) again pkrene program while ignoring (input1) until the next cycle.)
X690
M2001
M2002 (the script I returned the machine to the starting position and ready for a new cycle)
This is a machine for automatic cutting of the rear dimension of krojnoj list which can be interesting and I reworked the screen for one axis with potreblim commands

any help is welcome
Greeting

9

VB and the development of wizards / vb script tostart posirion

« on: March 31, 2013, 06:40:23 AM »

help
how to write a script to bring back the program before the last word of the line is a straight line of sewing and even if there is a mistake that could rupture the end of the program to start with the penultimate line and not at the last instance of engraving
thank you
aluplastvz@yahoo.com