Your Products have been synced, click here to refresh
Sub Test() Dim app As PCDLRN.Application Dim cmds As Object Dim cmd As PCDLRN.Command Dim part As PCDLRN.PartProgram Dim varValue As String Dim s As String = "" Try app = CreateObject("PCDLRN.Application.10.1") 'Using PCD version 2015.1 Catch ex As Exception MsgBox("PcDmis cannot connect. " & vbNewLine & "(Error - " & ex.Message & ")" & vbNewLine & ex.ToString, MsgBoxStyle.Critical) Exit Sub End Try app.Visible = True part = app.ActivePartProgram cmds = part.Commands For Each cmd In cmds If cmd.TypeDescription = "Assignment" Then Dim assignName As Object = cmd.GetText(PCDLRN.ENUM_FIELD_TYPES.DEST_EXPR, 0) varValue = part.GetVariableValue(assignName).StringValue MsgBox(varValue) End If Next cmd End Sub
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |