Your Products have been synced, click here to refresh
For ix = 1 To DmisCommands.Count Set DmisCommand = DmisCommands(ix) If DmisCommand.IsDimension Then Set DmisDimension = DmisCommand.DimensionCommand Select Case State Case 1 ' Normal Case If (DmisDimension.OutputMode <> DIMOUTPUT_NONE) And (DmisDimension.OutputMode <> DIMOUTPUT_REPORT) Then DoOutput = 1 Else DoOutput = 0 End If If (DmisDimension.Feat2 <> "") Then temp_STR = DmisCommand.TypeDescription ID = DmisDimension.ID + "=" + right(temp_STR, len(temp_STR) - instr(1, temp_STR, " ")) + " from " + _ DmisDimension.Feat1 + " to " + DmisDimension.Feat2 Else temp_STR = DmisCommand.TypeDescription ID = DmisDimension.ID + "=" + right(temp_STR, len(temp_STR) - instr(1, temp_STR, " ")) + " of " + _ DmisDimension.Feat1 End If If (DmisCommand.Type = DIMENSION_TRUE_START_POSITION) Then State = 2 elseif (DmisCommand.Type = DIMENSION_START_LOCATION) Then State = 2 End If If (DoOutput = 1) And (State = 1) Then PrintLine(fNum) ClearRecord elType = DmisCommand.TypeDescription elName = ID elValueType = DmisDimension.AxisLetter elNom = DmisDimension.Nominal elAct = DmisDimension.Measured elDev = DmisDimension.Deviation elMtol = -DmisDimension.Minus elPtol = DmisDimension.Plus elOutTol = DmisDimension.OutTol ...
ICommand = dispinterface property IsLoadMachine: WordBool dispid 68; property IsDimInfo: WordBool dispid 66; property IsOptMotion: WordBool dispid 44; property IsDCCFeature: WordBool dispid 74; property IsDimFormat: WordBool dispid 64; property IsLoadProbe: WordBool dispid 62; property IsFeature: WordBool dispid 15; property IsAlignment: WordBool dispid 14; property IsTraceField: WordBool dispid 58; property IsFileIOCommand: WordBool dispid 48; property IsActiveTip: WordBool dispid 60; property IsStatistic: WordBool dispid 56; property IsComment: WordBool dispid 54; property IsArrayIndex: WordBool dispid 46; property IsScan: WordBool dispid 70; property IsConstructedFeature: WordBool dispid 73; property IsHit: WordBool dispid 71; property IsMeasuredFeature: WordBool dispid 72; property IsDisplayMetaFile: WordBool dispid 52; property IsTempComp: WordBool dispid 50; property IsFCFCommand: WordBool dispid 130; property IsToolkitCommand: WordBool dispid 116; property IsAttach: WordBool dispid 36; property IsLeapfrog: WordBool dispid 42; property IsExternalCommand: WordBool dispid 38; property IsBasicScan: WordBool dispid 16; property IsOptionProbe: WordBool dispid 40; property IsCalibration: WordBool dispid 34; property IsModal: WordBool dispid 19; property IsMove: WordBool dispid 20; property IsFlowControl: WordBool dispid 18; property IsDimension: WordBool dispid 17; end;
For ix = 1 To DmisCommands.Count Set DmisCommand = DmisCommands(ix) If DmisCommand.IsDimension Then Set DmisDimension = DmisCommand.DimensionCommand Select Case State Case 1 ' Normal Case If (DmisDimension.OutputMode <> DIMOUTPUT_NONE) And (DmisDimension.OutputMode <> DIMOUTPUT_REPORT) Then DoOutput = 1 Else DoOutput = 0 End If If (DmisDimension.Feat2 <> "") Then temp_STR = DmisCommand.TypeDescription ID = DmisDimension.ID + "=" + right(temp_STR, len(temp_STR) - instr(1, temp_STR, " ")) + " from " + _ DmisDimension.Feat1 + " to " + DmisDimension.Feat2 Else temp_STR = DmisCommand.TypeDescription ID = DmisDimension.ID + "=" + right(temp_STR, len(temp_STR) - instr(1, temp_STR, " ")) + " of " + _ DmisDimension.Feat1 End If If (DmisCommand.Type = DIMENSION_TRUE_START_POSITION) Then State = 2 elseif (DmisCommand.Type = DIMENSION_START_LOCATION) Then State = 2 End If If (DoOutput = 1) And (State = 1) Then PrintLine(fNum) ClearRecord elType = DmisCommand.TypeDescription elName = ID elValueType = DmisDimension.AxisLetter elNom = DmisDimension.Nominal elAct = DmisDimension.Measured elDev = DmisDimension.Deviation elMtol = -DmisDimension.Minus elPtol = DmisDimension.Plus elOutTol = DmisDimension.OutTol ...
ICommand = dispinterface property IsLoadMachine: WordBool dispid 68; property IsDimInfo: WordBool dispid 66; property IsOptMotion: WordBool dispid 44; property IsDCCFeature: WordBool dispid 74; property IsDimFormat: WordBool dispid 64; property IsLoadProbe: WordBool dispid 62; property IsFeature: WordBool dispid 15; property IsAlignment: WordBool dispid 14; property IsTraceField: WordBool dispid 58; property IsFileIOCommand: WordBool dispid 48; property IsActiveTip: WordBool dispid 60; property IsStatistic: WordBool dispid 56; property IsComment: WordBool dispid 54; property IsArrayIndex: WordBool dispid 46; property IsScan: WordBool dispid 70; property IsConstructedFeature: WordBool dispid 73; property IsHit: WordBool dispid 71; property IsMeasuredFeature: WordBool dispid 72; property IsDisplayMetaFile: WordBool dispid 52; property IsTempComp: WordBool dispid 50; property IsFCFCommand: WordBool dispid 130; property IsToolkitCommand: WordBool dispid 116; property IsAttach: WordBool dispid 36; property IsLeapfrog: WordBool dispid 42; property IsExternalCommand: WordBool dispid 38; property IsBasicScan: WordBool dispid 16; property IsOptionProbe: WordBool dispid 40; property IsCalibration: WordBool dispid 34; property IsModal: WordBool dispid 19; property IsMove: WordBool dispid 20; property IsFlowControl: WordBool dispid 18; property IsDimension: WordBool dispid 17; end;
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |