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

Is there a way to access a PC-DMIS array variable from PC-DMIS Basic?

AndersI
Is there a way to access a PC-DMIS array variable from PC-DMIS Basic? The Help for GetVariableValue() doesn't mention arrays and indices.
Parents
  • Yes, found them in the Type Library, but still not sure how to get at them. Experimenting...

    OK, this seems to work! But GetArrayUpperBound returns the number of elements + 1, and it took a while to find the .PointValue which is necessary to get at the parts (XYZ) of the indexed value.

    Thanks! 

    
Sub Main
  Dim App As Object 
  Set App = CreateObject ("PCDLRN.Application")
  Dim Part As Object
  Set Part = App.ActivePartProgram
  Dim Var As Object
  Dim i_var As Object

  Set Var = Part.GetVariableValue ("PT")
  MsgBox Var.GetArrayUpperBound
  Set i_var = var.getarrayindexvalue(2).PointValue
  MsgBox i_var.x

End Sub
Reply
  • Yes, found them in the Type Library, but still not sure how to get at them. Experimenting...

    OK, this seems to work! But GetArrayUpperBound returns the number of elements + 1, and it took a while to find the .PointValue which is necessary to get at the parts (XYZ) of the indexed value.

    Thanks! 

    
Sub Main
  Dim App As Object 
  Set App = CreateObject ("PCDLRN.Application")
  Dim Part As Object
  Set Part = App.ActivePartProgram
  Dim Var As Object
  Dim i_var As Object

  Set Var = Part.GetVariableValue ("PT")
  MsgBox Var.GetArrayUpperBound
  Set i_var = var.getarrayindexvalue(2).PointValue
  MsgBox i_var.x

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