No expressed warrantee, no refunds, no kidding.
Use as you like.
'
' BASIC SCRIPT To create a SETUP instruction screen.
'
' You can make individual setup instruction screens For Any program
' simply RE-SAVE this template As a BASIC FILE (you could Name it the same As your PC-DMIS file)
' This will create a msg that will be centered On your computer screen (my version of PC-DMIS often places a comment box off-screen so I can't Read it)
' The Type is a little small, but I don't know If this can be changed.
' Feel free To make Any changes.
' dph51 2011
'
Dim DmisApp As Object
Dim DmisPart As Object
Dim DmisCommands As Object
Dim DmisCommand As Object
Sub Main
Set DmisApp = CreateObject("PCDLRN.Application")
Set DmisPart = DmisApp.ActivePartProgram
Set DmisCommands = DmisPart.Commands
CommandCount = DmisCommands.Count
Set DmisCommand = DmisCommands.Item(CommandCount)
DmisCommands.InsertionPointAfter DmisCommand
Dim Msg
' simply edit & copy lines of instructions As needed
Msg = "SET_UP INSTRUCTIONS"
Msg = Msg & chr(10) & chr(10) &"Place RAYCO PLATE on CMM table."
Msg = Msg & chr(10) & chr(10) & "Use 1Øx4 tall RAYCO risers at C4 & M4"
Msg = Msg & chr(10) & chr(10) & "Use 1Øx4 tall RAYCO risers at C24 & M24"
Msg = Msg & chr(10) & chr(10) & "Use 3 tall RAYCO risers (w/pressure clip) at A4 & A24"
Msg = Msg & chr(10) & chr(10) & "Use 3 tall RAYCO risers (w/pressure clip) at O4 & O24"
Msg = Msg & chr(10) & chr(10) & "LOAD PART on risers -A- down on -B- on right side"
Msg = Msg & chr(10) & chr(10) & "Place probe in center of 3/4 diameter hole, level with top"
' Msg = Msg & chr(10) & chr(10) & "LOAD PART"
' Msg = Msg & chr(10) & chr(10) & "LOAD PART"
' Msg = Msg & chr(10) & chr(10) & "LOAD PART"
' Msg = Msg & chr(10) & chr(10) & "LOAD PART"
' Msg = Msg & chr(10) & chr(10) & "LOAD PART"
' Msg = Msg & chr(10) & chr(10) & "LOAD PART"
' Msg = Msg & chr(10) & chr(10) & "LOAD PART"
' Msg = Msg & chr(10) & chr(10) & "LOAD PART"
' Msg = Msg & chr(10) & chr(10) & "LOAD PART"
' Msg = Msg & chr(10) & chr(10) & "LOAD PART"
' Msg = Msg & chr(10) & chr(10) & "LOAD PART"
' Msg = Msg & chr(10) & chr(10) & "LOAD PART"
' Msg = Msg & chr(10) & chr(10) & "LOAD PART"
Msg = Msg & chr(10) & chr(10) & "PRESS OK TO CONTINUE"
MsgBox Msg 'Display message.
DmisPart.RefreshPart
End Sub
