hexagon logo

Code to pull Theo, Target, and Dimension nominals from PC-DMIS

I'm looking at developing a vba script in Excel to pull the theo, target, and dimension nominal values and generate a worksheet showing them. I would then apply conditional formatting to highlight the Target and Theo values that do not match the nominal values in the dimension statement. We have hundreds of CMM Programs that have been used and modified over many years and versions of PC-DMIS. I have been manually auditing data and finding points here and there where the T does not correlate with the XYZ coordinate deviations. I have found many auto vector features where the target and theo do not match the nominal in the dimension. A script that actually grabbed all the nominal, including the ijk vectors would be very useful to identify these issues. The operator would need to then verify the feature and correct the nominal that was deemed incorrect. Maybe there is such a tool within PC-DMIS to check for this. If that is the case, maybe one of the Guru's on here can point me to it. I am not a PC-DMIS user myself, so I cannot poke around in PC-DMIS to look for such a tool, but I work very closely with a group that does offline programming.
Parents
  • Thanks Cappy. That helped point me in the right direction. I believe I figure out what I was looking for to retrieve the ijk values used for dimensions. This is my little piece of code to grab the report vectors.

                Select Case DmisCommand.TypeDescription
                    Case "AUTO_EDGE_FEATURE"
                        Vec_I = DmisCommand.GetFieldValue(EDGEVEC_THEO_I, 0)
                        Vec_J = DmisCommand.GetFieldValue(EDGEVEC_THEO_J, 0)
                        Vec_K = DmisCommand.GetFieldValue(EDGEVEC_THEO_K, 0)
                    Case Else
                        Vec_I = DmisCommand.GetFieldValue(REPORTVEC_I, 0)
                        Vec_J = DmisCommand.GetFieldValue(REPORTVEC_J, 0)
                        Vec_K = DmisCommand.GetFieldValue(REPORTVEC_K, 0)
                End Select
    
Reply
  • Thanks Cappy. That helped point me in the right direction. I believe I figure out what I was looking for to retrieve the ijk values used for dimensions. This is my little piece of code to grab the report vectors.

                Select Case DmisCommand.TypeDescription
                    Case "AUTO_EDGE_FEATURE"
                        Vec_I = DmisCommand.GetFieldValue(EDGEVEC_THEO_I, 0)
                        Vec_J = DmisCommand.GetFieldValue(EDGEVEC_THEO_J, 0)
                        Vec_K = DmisCommand.GetFieldValue(EDGEVEC_THEO_K, 0)
                    Case Else
                        Vec_I = DmisCommand.GetFieldValue(REPORTVEC_I, 0)
                        Vec_J = DmisCommand.GetFieldValue(REPORTVEC_J, 0)
                        Vec_K = DmisCommand.GetFieldValue(REPORTVEC_K, 0)
                End Select
    
Children
No Data