Questions about script suggested to me in Pc-DMIs IDEA CENTER

When the script is called, the program gets saved. Same method as (CTRL + S) or File > Save within PC-DMIS. Then they empty the variables to a non-nullable value using "Nothing" I personally don't use it sometimes and have no issues, so I am not 100% certain why it is incorporated so much. It may help freeing memory.

If you are curious about how the scripts work, take an existing, short simple program you just made, and export it as a .BAS file, and open it up. You will notice at the top, all programs open up with similar variables like this. Helps with reverse engineering if you're new to Basic.

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

Sub Part1
  Set DmisApp = CreateObject("PCDLRN.Application")
  Set DmisPart = DmisApp.ActivePartProgram
  Set DmisCommands = DmisPart.Commands
  CommandCount = DmisCommands.Count
  Set DmisCommand = DmisCommands.Item(CommandCount)
  DmisCommands.InsertionPointAfter DmisCommand
  Set DmisCommand = DmisCommands.Add(START_ALIGN, TRUE)

Be sure if copying and pasting a script from online, you change the "function" from the Default "Main" on any script created in the edit window.

If modifying within the pasted script just rename it Main, the PC-DMIS default.

CS1        =SCRIPT/FILENAME= SAVEDURING.BAS
            FUNCTION/SaveDuringExecution,SHOW=YES,,
            STARTSCRIPT/

Sub SaveDuringExecution()

'Create objects
Dim PCDMISApp As Object
Set PCDMISApp = CreateObject("PCDLRN.Application")
Dim PCDMISPart As Object
Set PCDMISPart = PCDMISApp.ActivePartprogram

'Save existing program
PCDMISPart.Save

' finish
Set PCDMISApp = Nothing
Set PCDMISApp = Nothing

End Sub

So Using Google Gemini I tried the script this morning. PC-DMIS keeps freezing and closing. This could easily be my computer as I need a upgrade. Could be the code as well but I cant be sure

I don't think PP.SaveAs blank & "_" & suffix "autoip" and suffix will work because PP.Fullname returns the full file path, including the extension.  You would need additional code to remove the .prg from your "blank" variable and then you'd also need to add the .prg back in again on your PP.SaveAs line.

So I could just copy the program from out CMM Program Folder and Save a temporary program to the computers desktop. Then have that as the program in the script?

Try changing

PP.SaveAs blank & "_" & suffix "autoip" and suffix 

to

PP.SaveAs (PP.path & PP.PartName & "_autoip" and suffix & ".prg")

PC-DMIS Keeps Freezing when I try to run a script. I'm using script editor in PC-DMIs. Iv saved the script onto the desktop, the subroutine folder that's mapped, and onto our network.

It might be something to do with the IT security restrictions on your system.  Try putting the script in the same folder your routine is stored in and then run it from there.

Same result. It must be a security thing or a computer thing.

You could always try to run the script in Excel referencing PC-DMIS object Library and see if that works. If you can use Macros within Excel, that should work. Just for testing this while you sort it out with IT. Then incorporate it back into your program in PC-DMIS

Sorry for my ignorance. I'm totally new, how do you go about that?

So open up a blank Excel workbook and press Alt + F11, or if you have the "Developer" option in the top menu bar click Visual Basic.

Then inside the Visual Basic within Excel, there is a menu bar. Select Tools > References, then search for your "PC-DMIS >YOUR VERSION HERE< Object Library'

Image of references pop up with my Object Library selected

Excellent. Thank you very much

Excellent. Thank you very much