Help with OLE Automation

Now that I have information in a way that imports and exports the information correctly, I have been tasked with creating an OLE to automatically import the data into the SPC software. I have one that sort of works (as in opens the program, logs in, opens the right collection plan, etc) and I can get put in static information, but I am unsure how to call the information out of PC DMIS to have it be placed in the spots we need in the SPC software being used.

Has anyone else done this? Can anyone explain to me how find the variable and the measurement output in PC DMIS? I am using version 4.2 if that helps any.

Thanks so much.

Parents

vpt.se over 11 years ago

Try this:

Dim ObjDimCmd as Object
...
...
...
For Each ObjCmd In ObjCmds
If ObjCmd.IsDimension Then

Set ObjDimCmd = ObjCmd.DimensionCommand

StrDimDiameter = ObjDimCmd.GetText (MEAS_DIAM, 0)
MeasZ = ObjDimCmd.GetText (MEAS_Z, 0)
StrDimID = ObjDimCmd.DimensionCommand.ID
StrDimFeature = ObjDimCmd.DimensionCommand.Feat1
StrDimType = ObjDimCmd.DimensionCommand.AxisLetter
StrDimNominal = ObjDimCmd.DimensionCommand.Nominal
StrDimUTol = ObjDimCmd.DimensionCommand.Plus
StrDimLTol = ObjDimCmd.DimensionCommand.Minus
StrDimMeasure = ObjDimCmd.DimensionCommand.Measured
End If

Reply

vpt.se over 11 years ago

Try this:

Dim ObjDimCmd as Object
...
...
...
For Each ObjCmd In ObjCmds
If ObjCmd.IsDimension Then

Set ObjDimCmd = ObjCmd.DimensionCommand

StrDimDiameter = ObjDimCmd.GetText (MEAS_DIAM, 0)
MeasZ = ObjDimCmd.GetText (MEAS_Z, 0)
StrDimID = ObjDimCmd.DimensionCommand.ID
StrDimFeature = ObjDimCmd.DimensionCommand.Feat1
StrDimType = ObjDimCmd.DimensionCommand.AxisLetter
StrDimNominal = ObjDimCmd.DimensionCommand.Nominal
StrDimUTol = ObjDimCmd.DimensionCommand.Plus
StrDimLTol = ObjDimCmd.DimensionCommand.Minus
StrDimMeasure = ObjDimCmd.DimensionCommand.Measured
End If

Children

No Data