PC-DMIS

PC-DMIS for CMMs What version is the program file?

PC-DMIS requires membership for participation - click to join

What version is the program file?

ESchertz 8 months ago

Is there an easy way to tell from the program file what version it is? I tried right clicking the file and selecting Properties, but couldn't find it anywhere.

Parents

0 WilliamL 8 months ago

Is anyone here well versed in Excel Basic scripts? I was messing with the internal basic scripting feature PC-DMIS has, which I am awfully terrible at with syntax and knowledge. I put together a comment to show me the program version of the file I have open, which is really useless since the program is already open.

Is it possible to pull this type of data without having to open the program?

Sub Main

Dim DmisApp As Object
Dim DmisPart As Object
Dim PartVersion As String

Set DmisApp = CreateObject("PCDLRN.Application")
Set DmisPart = DmisApp.ActivePartProgram
Set DmisCommands = DmisPart.Commands
Set PartVersion = DmisPart.ProgramVersionName

  Set DmisCommand = DmisCommands.Add(SET_COMMENT, True)
    DmisCommand.Marked = True
  ' Set Id  = 
    retval = DmisCommand.PutText ("", ID, 0)
  ' Set Comment Type  = $$
    retval = DmisCommand.SetToggleString (4, COMMENT_TYPE, 0)
  ' Set Comment Item 1 = Separator
    retval = DmisCommand.PutText (PartVersion, COMMENT_FIELD, 1)
  ' Set Report  = NO
    retval = DmisCommand.SetToggleString (1, OUTPUT_TYPE, 0)

End Sub

Reply

0 WilliamL 8 months ago

Is anyone here well versed in Excel Basic scripts? I was messing with the internal basic scripting feature PC-DMIS has, which I am awfully terrible at with syntax and knowledge. I put together a comment to show me the program version of the file I have open, which is really useless since the program is already open.

Is it possible to pull this type of data without having to open the program?

Sub Main

Dim DmisApp As Object
Dim DmisPart As Object
Dim PartVersion As String

Set DmisApp = CreateObject("PCDLRN.Application")
Set DmisPart = DmisApp.ActivePartProgram
Set DmisCommands = DmisPart.Commands
Set PartVersion = DmisPart.ProgramVersionName

  Set DmisCommand = DmisCommands.Add(SET_COMMENT, True)
    DmisCommand.Marked = True
  ' Set Id  = 
    retval = DmisCommand.PutText ("", ID, 0)
  ' Set Comment Type  = $$
    retval = DmisCommand.SetToggleString (4, COMMENT_TYPE, 0)
  ' Set Comment Item 1 = Separator
    retval = DmisCommand.PutText (PartVersion, COMMENT_FIELD, 1)
  ' Set Report  = NO
    retval = DmisCommand.SetToggleString (1, OUTPUT_TYPE, 0)

End Sub

Children

No Data