Have the roundness of an auto-circle in a variable

Dim DmisApp As Object
Dim DmisPart As Object
Dim DmisCommands As Object
Dim DmisCommand As Object
Dim FCmd As Object

Sub Main(OutputFileNameAndPath)
  Set DmisApp = CreateObject("PCDLRN.Application")
  Set DmisPart = DmisApp.ActivePartProgram
  Set DmisCommands = DmisPart.Commands
  CommandCount = DmisCommands.Count
  Set DmisCommand = DmisCommands.Item(CommandCount)

  Open OutputFileNameAndPath For Output As #1

  For Each DmisCommand In DmisCommands
    If DmisCommand.IsFeature Then
      If DmisCommand.Type = 612 Or DmisCommand =202 Then' (612 = auto circle, 202 = measured circle.  Using the numeric reference rather than text makes it language independent)
          Set FCmd = DmisCommand.FeatureCommand
            Print #1, DmisCommand.Id & chr(44) & FCmd.GetFormError()
      End If
    End If
  Next DmisCommand

  Close #1
End Sub
​

CS1        =SCRIPT/FILENAME= C:\USERS\PUBLIC\DOCUMENTS\SCRIPTS\GET_ROUNDNESS_FROM_FEATURE.BAS
            FUNCTION/Main,SHOW=YES,ARG1="C:\Users\Public\Documents\Scripts\Roundness_Output.txt",,
            STARTSCRIPT/
            ENDSCRIPT/​