hexagon logo
Register Sign in
  • Replies 6 replies
  • Subscribers 31 subscribers
  • Views 88 views
  • Users 0 members are here
Options
Related

Set TOUCHSPEED from Visual Basic - Is it possible?

robovanbasten
Hi All,

I have a VB6 program that references the pcdlrn.tlb (v4.2).

In my VB6 code I'm then able to open and execute a PC-DMIS part program.

Question is once I've opened my part program is it then possible to set the TOUCHSPEED before I execute it?

Kind Regards,
Chris
Parents
  • This is what I use.

    Dim DmisApp As Object
    Dim DmisPart As Object
    Dim DmisCommands As Object
    Dim DmisCommand As Object

    Sub Main
    Set DmisApp = CreateObject("PCDLRN.Application")
    Set DmisPart = DmisApp.ActivePartProgram
    Set DmisCommands = DmisPart.Commands
    CommandCount = DmisCommands.Count
    Set DmisCommand = DmisCommands.Item(CommandCount)
    DmisCommands.InsertionPointAfter DmisCommand

    ' Set Move Speed = 100
    Set DmisCommand = DmisCommands.Add(MOVE_SPEED, TRUE)
    DmisCommand.Marked = TRUE
    retval = DmisCommand.PutText ("100", F_MOVESPEED, 0)

    ' Set Touch Speed = 4
    Set DmisCommand = DmisCommands.Add(TOUCH_SPEED, TRUE)
    DmisCommand.Marked = TRUE
    retval = DmisCommand.PutText ("4", F_TOUCHSPEED, 0)

    ' Set Scan Speed = 50
    Set DmisCommand = DmisCommands.Add(SCAN_SPEED, TRUE)
    DmisCommand.Marked = TRUE
    retval = DmisCommand.PutText ("50", F_SCANSPEED, 0)

    ' Set Max Acceleration
    Set DmisCommand = DmisCommands.Add(OPTIONMOTION, TRUE)
    DmisCommand.Marked = TRUE
    ' X = 1000
    retval = DmisCommand.PutText ("2500", F_MAXACCELX, 0)
    ' Y = 1000
    retval = DmisCommand.PutText ("2500", F_MAXACCELY, 0)
    ' Z = 1000
    retval = DmisCommand.PutText ("2500", F_MAXACCELZ, 0)

    ' Assign SAFE_Z = -10
    Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
    DmisCommand.Marked = TRUE
    retval = DmisCommand.PutText ("SAFE_Z", DEST_EXPR, 0)
    retval = DmisCommand.PutText ("-10", SRC_EXPR, 0)

    End Sub
Reply
  • This is what I use.

    Dim DmisApp As Object
    Dim DmisPart As Object
    Dim DmisCommands As Object
    Dim DmisCommand As Object

    Sub Main
    Set DmisApp = CreateObject("PCDLRN.Application")
    Set DmisPart = DmisApp.ActivePartProgram
    Set DmisCommands = DmisPart.Commands
    CommandCount = DmisCommands.Count
    Set DmisCommand = DmisCommands.Item(CommandCount)
    DmisCommands.InsertionPointAfter DmisCommand

    ' Set Move Speed = 100
    Set DmisCommand = DmisCommands.Add(MOVE_SPEED, TRUE)
    DmisCommand.Marked = TRUE
    retval = DmisCommand.PutText ("100", F_MOVESPEED, 0)

    ' Set Touch Speed = 4
    Set DmisCommand = DmisCommands.Add(TOUCH_SPEED, TRUE)
    DmisCommand.Marked = TRUE
    retval = DmisCommand.PutText ("4", F_TOUCHSPEED, 0)

    ' Set Scan Speed = 50
    Set DmisCommand = DmisCommands.Add(SCAN_SPEED, TRUE)
    DmisCommand.Marked = TRUE
    retval = DmisCommand.PutText ("50", F_SCANSPEED, 0)

    ' Set Max Acceleration
    Set DmisCommand = DmisCommands.Add(OPTIONMOTION, TRUE)
    DmisCommand.Marked = TRUE
    ' X = 1000
    retval = DmisCommand.PutText ("2500", F_MAXACCELX, 0)
    ' Y = 1000
    retval = DmisCommand.PutText ("2500", F_MAXACCELY, 0)
    ' Z = 1000
    retval = DmisCommand.PutText ("2500", F_MAXACCELZ, 0)

    ' Assign SAFE_Z = -10
    Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
    DmisCommand.Marked = TRUE
    retval = DmisCommand.PutText ("SAFE_Z", DEST_EXPR, 0)
    retval = DmisCommand.PutText ("-10", SRC_EXPR, 0)

    End Sub
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement