Your Products have been synced, click here to refresh
Sub Main() Dim App As PCDLRN.Application Set App = CreateObject("PCDLRN.Application") Dim Part As PCDLRN.PartProgram Set Part = App.ActivePartProgram Dim Var As PCDLRN.Variable Dim i_var As VariableArray Set Var = Part.GetVariableValue("PT") MsgBox Var.VariableType End Sub
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |