hexagon logo
Register Sign in
  • Replies 14 replies
  • Subscribers 30 subscribers
  • Views 286 views
  • Users 0 members are here
Options
Related

Help basic script

carlos silva
will it be possible to put a picture on a button?
will it be possible with a basic scrip to run another basic script ?
If possible how can I do it?
Parents

  • I have tried another code this one only gives an error but it creates the point in the pc dmis. Public Class Form1 Dim DmisApp As Object Dim DmisPart As Object Dim DmisCommands As Object Dim DmisCommand As Object Dim CommandCount Dim RETVAL Dim CMD Dim PCDCommands Dim PCDCommand Dim FCNTR Dim ID Dim DmisCommandProgram Dim RMEASFEATIDX Dim RMEASFEATIDY Dim RMEASFEATIDZ Dim CONTACT_VECTOR_POINT_FEATURE Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click DmisCommand = DmisCommands.Add(CONTACT_VECTOR_POINT_FEATURE, True) DmisCommand.Marked = True ' Set Theoretical X = -15.461 RETVAL = DmisCommand.PutText("-15.461", "THEO_X", 0) ' Set Theoretical Y = 13.28 RETVAL = DmisCommand.PutText("13.28", "THEO_Y", 0) ' Set Theoretical Z = 5.309 RETVAL = DmisCommand.PutText("5.309", "THEO_Z", 0) ' Set Theoretical I = 0 RETVAL = DmisCommand.PutText("0", "THEO_I", 0) ' Set Theoretical J = 0 RETVAL = DmisCommand.PutText("0", "THEO_J", 0) ' Set Theoretical K = 1 RETVAL = DmisCommand.PutText("1", "THEO_K", 0) ' Set Report Vector I = 0 RETVAL = DmisCommand.PutText("0", "REPORTVEC_I", 0) ' Set Report Vector J = 1 RETVAL = DmisCommand.PutText("1", " REPORTVEC_J", 0) ' Set Report Vector K = 0 RETVAL = DmisCommand.PutText("0", " REPORTVEC_K", 0) ' Set Update Vector I = 0 RETVAL = DmisCommand.PutText("0", "UPDATEVEC_I", 0) ' Set Update Vector J = 1 RETVAL = DmisCommand.PutText("1","UPDATEVEC_J", 0) ' Set Update Vector K = 0 RETVAL = DmisCommand.PutText("0", "UPDATEVEC_K", 0) ' Set Measured X = -15.461 RETVAL = DmisCommand.PutText("-15.461", "MEAS_X", 0) ' Set Measured Y = 13.28 RETVAL = DmisCommand.PutText("13.28", "MEAS_Y", 0) ' Set Measured Z = 5.309 RETVAL = DmisCommand.PutText("5.309","MEAS_Z", 0) ' Set Measured I = 0 RETVAL = DmisCommand.PutText("0", "MEAS_I", 0) ' Set Measured J = 0 RETVAL = DmisCommand.PutText("0"," MEAS_J", 0) ' Set Measured K = 1 RETVAL = DmisCommand.PutText("1", "MEAS_K", 0) ' Set Target X = -15.461 RETVAL = DmisCommand.PutText("-15.461", "TARG_X", 0) ' Set Target Y = 13.28 RETVAL = DmisCommand.PutText("13.28", "TARG_Y", 0) ' Set Target Z = 5.309 RETVAL = DmisCommand.PutText("5.309"," TARG_Z", 0) ' Set Target I = 0 RETVAL = DmisCommand.PutText("0", "TARG_I", 0) ' Set Target J = 0 RETVAL = DmisCommand.PutText("0", "TARG_J", 0) ' Set Target K = 1 RETVAL = DmisCommand.PutText("1", "TARG_K", 0) ' Set Update Vector I = 0 RETVAL = DmisCommand.PutText("0"," UPDATEVEC_I", 0) ' Set Update Vector J = 1 RETVAL = DmisCommand.PutText("1"," UPDATEVEC_J", 0) ' Set Update Vector K = 0 RETVAL = DmisCommand.PutText("0"," UPDATEVEC_K", 0) ' Set Report Vector I = 0 RETVAL = DmisCommand.PutText("0", "REPORTVEC_I", 0) ' Set Report Vector J = 1 RETVAL = DmisCommand.PutText("1", "REPORTVEC_J", 0) ' Set Report Vector K = 0 RETVAL = DmisCommand.PutText("0", "REPORTVEC_K", 0) ' Set Id = P1 RETVAL = DmisCommand.PutText("P1", ID, 0) End Sub
Reply

  • I have tried another code this one only gives an error but it creates the point in the pc dmis. Public Class Form1 Dim DmisApp As Object Dim DmisPart As Object Dim DmisCommands As Object Dim DmisCommand As Object Dim CommandCount Dim RETVAL Dim CMD Dim PCDCommands Dim PCDCommand Dim FCNTR Dim ID Dim DmisCommandProgram Dim RMEASFEATIDX Dim RMEASFEATIDY Dim RMEASFEATIDZ Dim CONTACT_VECTOR_POINT_FEATURE Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click DmisCommand = DmisCommands.Add(CONTACT_VECTOR_POINT_FEATURE, True) DmisCommand.Marked = True ' Set Theoretical X = -15.461 RETVAL = DmisCommand.PutText("-15.461", "THEO_X", 0) ' Set Theoretical Y = 13.28 RETVAL = DmisCommand.PutText("13.28", "THEO_Y", 0) ' Set Theoretical Z = 5.309 RETVAL = DmisCommand.PutText("5.309", "THEO_Z", 0) ' Set Theoretical I = 0 RETVAL = DmisCommand.PutText("0", "THEO_I", 0) ' Set Theoretical J = 0 RETVAL = DmisCommand.PutText("0", "THEO_J", 0) ' Set Theoretical K = 1 RETVAL = DmisCommand.PutText("1", "THEO_K", 0) ' Set Report Vector I = 0 RETVAL = DmisCommand.PutText("0", "REPORTVEC_I", 0) ' Set Report Vector J = 1 RETVAL = DmisCommand.PutText("1", " REPORTVEC_J", 0) ' Set Report Vector K = 0 RETVAL = DmisCommand.PutText("0", " REPORTVEC_K", 0) ' Set Update Vector I = 0 RETVAL = DmisCommand.PutText("0", "UPDATEVEC_I", 0) ' Set Update Vector J = 1 RETVAL = DmisCommand.PutText("1","UPDATEVEC_J", 0) ' Set Update Vector K = 0 RETVAL = DmisCommand.PutText("0", "UPDATEVEC_K", 0) ' Set Measured X = -15.461 RETVAL = DmisCommand.PutText("-15.461", "MEAS_X", 0) ' Set Measured Y = 13.28 RETVAL = DmisCommand.PutText("13.28", "MEAS_Y", 0) ' Set Measured Z = 5.309 RETVAL = DmisCommand.PutText("5.309","MEAS_Z", 0) ' Set Measured I = 0 RETVAL = DmisCommand.PutText("0", "MEAS_I", 0) ' Set Measured J = 0 RETVAL = DmisCommand.PutText("0"," MEAS_J", 0) ' Set Measured K = 1 RETVAL = DmisCommand.PutText("1", "MEAS_K", 0) ' Set Target X = -15.461 RETVAL = DmisCommand.PutText("-15.461", "TARG_X", 0) ' Set Target Y = 13.28 RETVAL = DmisCommand.PutText("13.28", "TARG_Y", 0) ' Set Target Z = 5.309 RETVAL = DmisCommand.PutText("5.309"," TARG_Z", 0) ' Set Target I = 0 RETVAL = DmisCommand.PutText("0", "TARG_I", 0) ' Set Target J = 0 RETVAL = DmisCommand.PutText("0", "TARG_J", 0) ' Set Target K = 1 RETVAL = DmisCommand.PutText("1", "TARG_K", 0) ' Set Update Vector I = 0 RETVAL = DmisCommand.PutText("0"," UPDATEVEC_I", 0) ' Set Update Vector J = 1 RETVAL = DmisCommand.PutText("1"," UPDATEVEC_J", 0) ' Set Update Vector K = 0 RETVAL = DmisCommand.PutText("0"," UPDATEVEC_K", 0) ' Set Report Vector I = 0 RETVAL = DmisCommand.PutText("0", "REPORTVEC_I", 0) ' Set Report Vector J = 1 RETVAL = DmisCommand.PutText("1", "REPORTVEC_J", 0) ' Set Report Vector K = 0 RETVAL = DmisCommand.PutText("0", "REPORTVEC_K", 0) ' Set Id = P1 RETVAL = DmisCommand.PutText("P1", ID, 0) End Sub
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement