Your Products have been synced, click here to refresh
CONTACT_CIRCLE_FEATURE = 612
MEASURED_CIRCLE = 202
VISION_CIRCLE_FEATURE = 245
[...] If PCDCommand.IsFeature Then If (PCDCommand.Type = 612) Or (PCDCommand = 202) Or (PCDCommand = 245) Then If Left(PCDCommand.ID, 3) = "CIR" Then Set FCmd = PCDCommand.FeatureCommand tX = PCDCommand.GetText(THEO_X, 0) tY = PCDCommand.GetText(THEO_Y, 0) tZ = PCDCommand.GetText(THEO_Z, 0) tD = FCmd.TheoDiam 'tD = PCDCommand.GetText(THEO_DIAM, 0) mX = PCDCommand.GetText(MEAS_X, 0) mY = PCDCommand.GetText(MEAS_Y, 0) mZ = PCDCommand.GetText(MEAS_Z, 0) mD = FCmd.MeasDiam 'mD = PCDCommand.GetText(MEAS_DIAM, 0) tRound = FCmd.GetFormError() Write #1, PCDCommand.ID & ", " & tX & ", " & tY & ", " & tZ & ", " & tD & ", " & tRound & ", " & mX & ", " & mY & ", " & mZ & ", " & mD & ", " & mRound End If End If End If [...]
CONTACT_CIRCLE_FEATURE = 612
MEASURED_CIRCLE = 202
VISION_CIRCLE_FEATURE = 245
[...] If PCDCommand.IsFeature Then If (PCDCommand.Type = 612) Or (PCDCommand = 202) Or (PCDCommand = 245) Then If Left(PCDCommand.ID, 3) = "CIR" Then Set FCmd = PCDCommand.FeatureCommand tX = PCDCommand.GetText(THEO_X, 0) tY = PCDCommand.GetText(THEO_Y, 0) tZ = PCDCommand.GetText(THEO_Z, 0) tD = FCmd.TheoDiam 'tD = PCDCommand.GetText(THEO_DIAM, 0) mX = PCDCommand.GetText(MEAS_X, 0) mY = PCDCommand.GetText(MEAS_Y, 0) mZ = PCDCommand.GetText(MEAS_Z, 0) mD = FCmd.MeasDiam 'mD = PCDCommand.GetText(MEAS_DIAM, 0) tRound = FCmd.GetFormError() Write #1, PCDCommand.ID & ", " & tX & ", " & tY & ", " & tZ & ", " & tD & ", " & tRound & ", " & mX & ", " & mY & ", " & mZ & ", " & mD & ", " & mRound End If End If End If [...]
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |