hexagon logo
Register Sign in
  • Replies 40 replies
  • Subscribers 32 subscribers
  • Views 1045 views
  • Users 0 members are here
Options
Related

Move Increment to Move Point Conversion Script?

Incredible.Mr.Lucas
Confused Is anybody familiar with a script that will scour your program and replace all the Move Increments with Move Points in the alignment context in which the moves reside? My team really doesn't like Move increments, but I really like the convenience while programing. It would be neat if there were a macro that converts them all with a click of a button.Confused
Parents
  • Hi,
    @


    with this you can extract probe Position in Offline mode 
    Private Sub test()
 
  Dim App As PCDLRN.Application
  Set App = CreateObject("PCDLRN.Application")
  Dim Part As PCDLRN.PartProgram
  Set Part = App.ActivePartProgram

  Dim MA As Object
  Set MA = App.Machines("OFFLINE")
 
  'MsgBox MA.Name
  MsgBox MA.ProbePosition.X & " - " & MA.ProbePosition.Y & " - " & MA.ProbePosition.Z
End Sub


    this is interesting
    i can execute a program partway in Offline-Mode and than extract the probe position.
    a Quick test shows that he extract the right probe data on every stop even with fancy aligment changes.
    thats cool, in offline mode you cant destroy something

    i try to build a working script for this in some days
Reply
  • Hi,
    @


    with this you can extract probe Position in Offline mode 
    Private Sub test()
 
  Dim App As PCDLRN.Application
  Set App = CreateObject("PCDLRN.Application")
  Dim Part As PCDLRN.PartProgram
  Set Part = App.ActivePartProgram

  Dim MA As Object
  Set MA = App.Machines("OFFLINE")
 
  'MsgBox MA.Name
  MsgBox MA.ProbePosition.X & " - " & MA.ProbePosition.Y & " - " & MA.ProbePosition.Z
End Sub


    this is interesting
    i can execute a program partway in Offline-Mode and than extract the probe position.
    a Quick test shows that he extract the right probe data on every stop even with fancy aligment changes.
    thats cool, in offline mode you cant destroy something

    i try to build a working script for this in some days
Children
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement