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

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.

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?

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

Here is an example of it running in excel. I used "blank" variable without any modifiers to test this. I also used a MsgBox to show my program filepath, and verifying it was correct.

Excel is useful for playing with code, because it helps you see if an expression is valid or not with the "intellisense". Example, when I copied your code before shortening the "blank" line here it was red, so invalid syntax.

Having the object library in full view is nice. You can search through it's methods and objects to see how they work.

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

' Get user's age

Dim age As Integer

age = InputBox("How old are you?")

' Check if user is an adult If age >= 18 Then

MsgBox "You are an adult."

Else MsgBox "You are not an adult." End If

In excel im getting an error on the age=inputbox line.

The error says Compile error:

Invalid outside procedure

Anyone have any thoughts?

MsgBox needs to be in a lambda expression with parentheses MsgBox() at least I did that with mine. Let me test this out.

I just copied your script as is, and I had no issues actually except with the, line Else MsgBox "You are not an adult." End If

So MsgBox with parentheses is not required, but is a valid method if adding custom buttons.

This worked for me

Sub Main()
' Get user's age

Dim age As Integer

age = InputBox("How old are you?")

' Check if user is an adult If age >= 18 Then

If age >= 18 Then
MsgBox "You are an adult."
Else
MsgBox "You are not an adult."
End If

End Sub

MsgBox only needs parentheses if you're using it as a function to return a value. A = MsgBox("text",vbokcancel,"title"). The error he received says that his code is in the declarations section and not inside a subroutine or function block.

Yeah I realized that after I sent that, and this forum sadly removed editing posts after 5 mins, so I'll forever look like a dunce.

Honestly I think I misspelled integer. I fixed it and it works great

Thank you so much