Your Products have been synced, click here to refresh
Dim ObjApp As Object Dim ObjCmds As Object Dim ObjCmd As Object Dim ObjPart As Object Dim ObjDimCmd as Object Set ObjApp = CreateObject("PCDLRN.Application") Set ObjPart = ObjApp.ActivePartProgram Set ObjCmds = ObjPart.Commands Dim MyID As String Dim PrevID As String Dim Meas As String Dim MyAx As String For Each ObjCmd In ObjCmds If ObjCmd.IsDimension Then Set ObjDimCmd = ObjCmd.DimensionCommand If Len(ObjDimCmd.ID) > 0 Then PrevID = MyID MyID = ObjDimCmd.ID End If Meas = ObjDimCmd.Measured MyAx = ObjDimCmd.AxisLetter c = "," MsgBox MyID & c & MyAx & c & Meas End If Next
Dim ObjApp As Object Dim ObjCmds As Object Dim ObjCmd As Object Dim ObjPart As Object Dim ObjDimCmd as Object Set ObjApp = CreateObject("PCDLRN.Application") Set ObjPart = ObjApp.ActivePartProgram Set ObjCmds = ObjPart.Commands Dim MyID As String Dim PrevID As String Dim Meas As String Dim MyAx As String For Each ObjCmd In ObjCmds If ObjCmd.IsDimension Then Set ObjDimCmd = ObjCmd.DimensionCommand If Len(ObjDimCmd.ID) > 0 Then PrevID = MyID MyID = ObjDimCmd.ID End If Meas = ObjDimCmd.Measured MyAx = ObjDimCmd.AxisLetter c = "," MsgBox MyID & c & MyAx & c & Meas End If Next
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |