Having great success up to a point. I have the feature ID's in the csv file but I cannot figure out the right code to write the nominals and actuals into the file. This is a work in progress and some of the lines are commented out. I want to start with nominal X in the B column of the file and end with the actual K vectors in the N column. Just can't figure out the right code to start writing the hit data. Everything else is working great.
'Declares the File System Object And Instantiates it Dim objFSO Set objFSO = CreateObject("Scripting.FileSystemObject") ' PC-DMIS APPLICATION DECLARATIONS Dim PCDApp As Object Set PCDApp = CreateObject("PCDLRN.Application") Dim PRG As Object Set PRG = PCDApp.ActivePartProgram Dim Cmds As Object Set Cmds = PRG.Commands Dim Cmd As Object Dim DCmd As Object Dim CCmd As Object Dim DCmdID As Object 'VARIABLES FROM THE PART PROGRAM For FILE SAVE And EXCEL FILE HEADER Dim VPART As Object Set VPART = PRG.GetVariableValue("VPART") Dim VDESCRIPTION As Object Set VDESCRIPTION = PRG.GetVariableValue("VDESCRIPTION") Dim VSERIALNUMBER As Object Set VSERIALNUMBER = PRG.GetVariableValue("VSERIALNUMBER") Dim VSRLFLDRPATH As Object Set VSRLFDRPATH = PRG.GetVariableValue("VSRLFLDRPATH") 'EXCEL APPLICATION DECLARATIONS Dim Xcl As Object Set Xcl = CreateObject("Excel.Application") Dim Xclwrkbks As Object Dim Xclwrkbk As Object Dim Xclsht As Object Dim count As Integer Set Xclwrkbks = Xcl.Workbooks Set Xclwrkbk = Xcl.Workbooks.Open("D:\CMM_PROGRAMS\PC-DMIS_SUPPORT_FILES\EXCEL_FILES\TEMPLATE.csv") Set Xclsht = Xclwrkbk.Worksheets("TEMPLATE") 'EXCEL SHEET HEADER Xclsht.Range("A2").Value = "Part Number" Xclsht.Range("A3").Value = "Description" Xclsht.Range("A4").Value = "Serial #" Xclsht.Range("B2").Value = VPART.StringValue Xclsht.Range("B3").Value = VDESCRIPTION.StringValue Xclsht.Range("B4").Value = VSERIALNUMBER.StringValue count = 7 Xclsht.Range("A7").Value = "FeatureName" Xclsht.Range("B7").Value = "Nominal X" Xclsht.Range("C7").Value = "Nominal Y" Xclsht.Range("D7").Value = "Nominal Z" Xclsht.Range("E7").Value = "Nominal I" Xclsht.Range("F7").Value = "Nominal J" Xclsht.Range("G7").Value = "Nominal K" Xclsht.Range("I7").Value = "Measured X" Xclsht.Range("J7").Value = "Measured Y" Xclsht.Range("K7").Value = "Measured Z" Xclsht.Range("L7").Value = "Measured I" Xclsht.Range("M7").Value = "Measured J" Xclsht.Range("N7").Value = "Measured K" Dim FCmd As Object For Each Cmd In Cmds If Cmd.IsFeature Then Dim Fcntr As Integer count = count + 1 Set FCmd = Cmd.FeatureCommand FeatureList(Fcntr) = FCmd.ID Fcntr = Fcntr + 1 Set PRBHIT = CreateObject("PCDLRN.PointData") 'Set PRBHIT = FCmd.GetHit (Fcntr, FHITDATA_CENTROID, FDATA_THEO, FDATA_PART, AlignID, PLANE_TOP) 'Set PRBHIT = FCmd.GetHit (Fcntr, FHITDATA_CENTROID, FDATA_MEAS, FDATA_PART, AlignID, PLANE_TOP) 'Set PRBHIT = FCmd.GetHit (Fcntr, FHITDATA_VECTOR, FDATA_THEO, FDATA_PART, AlignID, PLANE_TOP) Xclsht.Range("A" & count).Value = FCmd.ID 'Script is correct up To this point Xclsht.Range("B" & count).Value = FCmd.TX Xcl.Visible=True End If Next