Export coordinates with machining time in .txt file

[poppabear]

Perhaps you can store a copy of the X, y, z value as an "Old Value toward the end of the loop. you could then compare the new value verses the old value, if they are different then in the if code compare, the write function would execute. If they where = then the If would drop out that has the write in it. and thus not write the change.

scott

[vansyle]

Thank your very much.
Scott... Good idea, I solved this problem. it is very important that the pulses must be synchronised. My VB Script can save all of coordinates when tool is moving.

Best regards.

[poppabear]

So Others may benefit, if you solved it, post your code.

I would like to see what changes you made, others here might want to do similar things.

We (as a group), try to post solutions since somebody, somewhere will have that same issue.

Unless your stuff is secret or something.

scott

[vansyle]

I completely support to your idea about posting solutions. Anybody can refer these code for their applications. This is my code to get coordinates:

Sub Main ()
Open "c:\TESTFILE.txt" For Output As #1 ' Open to write file.

 oldX = GetOEMDRO (800)
 oldY = GetOEMDRO (801)
 oldZ = GetOEMDRO (802)

 Write #1, oldX , oldY, oldZ
While GetUserLED (1005)
 
     newx = GetOEMDRO (800)
    newy = GetOEMDRO (801)
     newz = GetOEMDRO (802)     

 if oldX <> newX or oldY <> newY or oldZ <> newZ Then
  oldX = newX
  oldY = newY
  oldZ = newZ
  Write #1, oldX , oldY, oldZ
 
     End If
Wend
Close #1
End Sub

Thank you for your helps
Best Regards
Van Sy