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

Something is definitely going on besides a possible script error. I'm trying run a simple script of showing a message box saying hello and PC-DMIS Keeps locking up and crashing. Anyone have any similar issues with this?

Something is definitely going on besides a possible script error. I'm trying run a simple script of showing a message box saying hello and PC-DMIS Keeps locking up and crashing. Anyone have any similar issues with this?

Have you tried running it from inside PC-DMIS using the basic script editor?

Yea I actually just did. Im updating PC-DMIS to the latest version of 2022 our license will allow. I dont have much confidence in that but it couldn't hurt

Try this instead...

' this script will automatically save the program
' reads In original program Name And saves As this at the End

' Declare As objects - Not application, etc

Dim PCDapp As Object
Dim PP As Object

'defines "suffix" As String And sets As ARG1 from script command In PCD prog
Sub Main (suffix As String)
  'objects must be assigned using Set command
  Set PCDapp=createObject("PCDLRN.Application")
  Set PP=PCDapp.ActivePartProgram

  'define "Oldname" And Set As original program Name
  Dim OldName As String
  OldName = PP.Fullname

  'save under original Name
  PP.SaveAs Oldname

  Set PP = Nothing
  Set PCDapp = Nothing
End Sub

Dim PCDapp As Object
Dim PP As Object

Sub Main(suffix As String)

Set PCDapp = CreateObject("PCDLRN.Application")
Set PP = PCDapp.ActivePartProgram

Dim blank As String
blank= PP.Fullname

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

Set PP = Nothing
Set PCDapp = Nothing

End Sub

Like this?

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.