Saving Subroutine Math with External Script

It's because when you call a subroutine in a different program file, the script that runs in that file is referencing 'activepartprogram'.  The 'activepartprogram' is the program calling the script. If you use an external program file for subroutines, make sure you pass the file name as an argument to the subroutine and always explicitly set 'FN' as an argument passed to the script. Leaving it blank and letting it default, this routine will always set the variable equal to the calling program file name, ie. the subroutine program.

Thank you for your reply. Assuming my main program is called "Routine_list" and is located in the "C:prg" folder and the subroutines are located in the same folder and are called "Sub_A", "Sub_B", "Sub_C" etc. How should I edit the script?

Thank you for your reply. Assuming my main program is called "Routine_list" and is located in the "C:prg" folder and the subroutines are located in the same folder and are called "Sub_A", "Sub_B", "Sub_C" etc. How should I edit the script?

Instead of setting part to equal 'activepartprogram', you can instead reference the 'partprograms' collection.

' Replace

Set App = CreateObject("PCDLRN.Application")
Set Part = App.ActivePartProgram

If FN="" Then
    FN= Part.Path & Part.Name
Else
    FN=FN
End If

FNOri=FN

' With 

Set App = CreateObject("PCDLRN.Application")
Set Part = App.PartPrograms(2)

FN = Part.Path & Part.Name
FNOri=FN

I tried to edit the script as you suggested. Now, if I understand correctly, the script looks like this:

Option Explicit

Dim App As Object
Dim PP As Object

Sub Main (FN As String,Suffix As String)
  Dim retval As Boolean
  Dim FNOri As String

  Set App = CreateObject("PCDLRN.Application")
  Set Part = App.PartPrograms(2)

  FN = Part.Path & Part.Name
  FNOri=FN

  If Suffix="" Then 
      FN=FN
  Else
      If ucase(right(FN,4))=".PRG" Then 
         FN=left(FN,len(FN)-4) & "_" & Suffix & ".prg"
      Else
         FN=FN & "_" & Suffix & ".prg"
      End If
  End If

  retval= Part.SaveAs (FN)
  If FN<>FNOri Then
     retval= Part.SaveAs (FNOri)
  End If

End Sub

But he gives me this error:  “runtime Error on line: 47 – Object variable or With block variable not set”

sorry the line error in 13 and not 47

I just noticed, the variable PP is set as an object, but it is never used? Or am I misreading this? I think instead of Part = App.PartPrograms(2) it needs to be PP, unless you change PP As Object to Part. Not sure if this will help, since your original script is that way.

You get the error if there is no # in the PartPrograms(#) collection. The first program you open (the subroutine program) will be number 1. The program it opens that contains the measuring program should be number 2. You may have to iterate through the open programs. The error occurs because you tried to equate an object variable with an object that doesn't exist. Be sure both programs are open when the script is called. Also, as WilliamL has said, Dim PP as Object should be Dim Part as object.