Your Products have been synced, click here to refresh
Sub main() Dim App As Object Dim Part As Object Dim Commands As Object Dim Command As Object Dim Dimension As Object Dim cnt As Integer Dim ID As String Dim Dev, Nom As Double Set App = CreateObject("PCDLRN.Application") Set Part = App.ActivePartProgram Set Commands = Part.Commands For cnt = 1 To Commands.Count Set Command = Commands(cnt) If Command.IsDimension Then Set Dimension = Command.DimensionCommand ID = Dimension.ID If Dimension.AxisLetter = "D" Then Dev = Dimension.Deviation Nom = Dimension.Nominal MsgBox ID & Dimension.AxisLetter & " " & Nom & " " & Dev End If End If Next End Sub
'If Cmd.Type = DIMENSION_START_LOCATION Or _ 'Cmd.Type = DIMENSION_END_LOCATION Or _ 'Cmd.Type = DIMENSION_TRUE_START_POSITION Or _ 'Cmd.Type = DIMENSION_TRUE_END_POSITION
Sub main() Dim App As Object Dim Part As Object Dim Commands As Object Dim Command As Object Dim Dimension As Object Dim cnt As Integer Dim ID As String Dim Dev, Nom As Double Set App = CreateObject("PCDLRN.Application") Set Part = App.ActivePartProgram Set Commands = Part.Commands For cnt = 1 To Commands.Count Set Command = Commands(cnt) If Command.IsDimension Then Set Dimension = Command.DimensionCommand ID = Dimension.ID If Dimension.AxisLetter = "D" Then Dev = Dimension.Deviation Nom = Dimension.Nominal MsgBox ID & Dimension.AxisLetter & " " & Nom & " " & Dev End If End If Next End Sub
'If Cmd.Type = DIMENSION_START_LOCATION Or _ 'Cmd.Type = DIMENSION_END_LOCATION Or _ 'Cmd.Type = DIMENSION_TRUE_START_POSITION Or _ 'Cmd.Type = DIMENSION_TRUE_END_POSITION
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |