Have the roundness of an auto-circle in a variable

Sub Main
Dim PCDApp, PCDPartPrograms, PCDPartProgram, PCDCommands, PCDCommand
Dim tX, tY, tZ, tRound, mX, mY, mZ, tD, mD, mRound As String

Set PCDApp = CreateObject("PCDLRN.Application")
Set PCDPartPrograms = PCDApp.PartPrograms
Set PCDPartProgram = PCDApp.ActivePartProgram
Set PCDCommands = PCDPartProgram.Commands

Dim iCnt As Integer

Dim savePath
Dim repFolder
Dim repName

repName = format(now(),"YYYYMMDDHHNNSS")
savePath = "D:\PC-DMIS Data\Scripts\TEMP"
repFolder = left(PCDPartProgram.Name,len(PCDPartProgram.Name)-4)

Open savePath & repFolder & repName & ".TXT" For Append As Home
For iCnt = 1 To PCDCommands.Count
Set PCDCommand = PCDCommands.Item(iCnt)

If Left(PCDCommand.ID, 3) = "CIR" Then

tX = PCDCommand.GetText(THEO_X, 0)
tY = PCDCommand.GetText(THEO_Y, 0)
tZ = PCDCommand.GetText(THEO_Z, 0)
tD = PCDCommand.GetText(THEO_DIAM, 0)
tRound = 0


mX = PCDCommand.GetText(MEAS_X, 0)
mY = PCDCommand.GetText(MEAS_Y, 0)
mZ = PCDCommand.GetText(MEAS_Z, 0)
mD = PCDCommand.GetText(MEAS_DIAM, 0)

featName = PCDCommand.ID

mRound = max(SQRT(DOT(featName.HIT[1..featName.NUMHITS].XYZ-featName.XYZ,featName.HIT[1..featName.NUMHITS].XYZ-featName.XYZ))) - MIN(SQRT(DOT(featName.HIT[1..featName.NUMHITS].XYZ-featName.XYZ,featName.HIT[1..featName.NUMHITS].XYZ-featName.XYZ)))

Write #1, PCDCommand.ID & ", " & tX & ", " & tY & ", " & tZ & ", " & tD & ", " & tRound & ", " & mX & ", " & mY & ", " & mZ & ", " & mD & ", " & mRound

End If

Next iCnt

Close Home
Set PCDCommands = Nothing
Set PCDPartProgram = Nothing
Set PCDPartPrograms = Nothing
Set PCDApp = Nothing
End Sub​

Try my edits in red above. This should use the actuals for all "CIR" in your program and not just calculate CIR1 every time...

Sub Main
Dim PCDApp, PCDPartPrograms, PCDPartProgram, PCDCommands, PCDCommand
Dim tX, tY, tZ, tRound, mX, mY, mZ, tD, mD, mRound As String

Set PCDApp = CreateObject("PCDLRN.Application")
Set PCDPartPrograms = PCDApp.PartPrograms
Set PCDPartProgram = PCDApp.ActivePartProgram
Set PCDCommands = PCDPartProgram.Commands

Dim iCnt As Integer

Dim savePath
Dim repFolder
Dim repName

repName = format(now(),"YYYYMMDDHHNNSS")
savePath = "D:\PC-DMIS Data\Scripts\TEMP"
repFolder = left(PCDPartProgram.Name,len(PCDPartProgram.Name)-4)

Open savePath & repFolder & repName & ".TXT" For Append As Home
For iCnt = 1 To PCDCommands.Count
Set PCDCommand = PCDCommands.Item(iCnt)

If Left(PCDCommand.ID, 3) = "CIR" Then

tX = PCDCommand.GetText(THEO_X, 0)
tY = PCDCommand.GetText(THEO_Y, 0)
tZ = PCDCommand.GetText(THEO_Z, 0)
tD = PCDCommand.GetText(THEO_DIAM, 0)
tRound = 0


mX = PCDCommand.GetText(MEAS_X, 0)
mY = PCDCommand.GetText(MEAS_Y, 0)
mZ = PCDCommand.GetText(MEAS_Z, 0)
mD = PCDCommand.GetText(MEAS_DIAM, 0)

featName = PCDCommand.ID

mRound = max(SQRT(DOT(featName.HIT[1..featName.NUMHITS].XYZ-featName.XYZ,featName.HIT[1..featName.NUMHITS].XYZ-featName.XYZ))) - MIN(SQRT(DOT(featName.HIT[1..featName.NUMHITS].XYZ-featName.XYZ,featName.HIT[1..featName.NUMHITS].XYZ-featName.XYZ)))

Write #1, PCDCommand.ID & ", " & tX & ", " & tY & ", " & tZ & ", " & tD & ", " & tRound & ", " & mX & ", " & mY & ", " & mZ & ", " & mD & ", " & mRound

End If

Next iCnt

Close Home
Set PCDCommands = Nothing
Set PCDPartProgram = Nothing
Set PCDPartPrograms = Nothing
Set PCDApp = Nothing
End Sub​

Try my edits in red above. This should use the actuals for all "CIR" in your program and not just calculate CIR1 every time...