This subroutine saves the measurement routine. If the measurement routine has not been saved before, it opens a Save As Dialog box which requires that you name the file.
Visual Basic |
---|
Public Function Save() As Boolean |
Boolean value. Boolean returns true if the function succeeds, false if it fails. TRUE if the part was saved successfully, FALSE otherwise.
Sub Main (strText As String)
App As ObjectDim
Set
App = CreateObject ("PCDLRN.Application")Dim
Part As ObjectSet
Part = App.ActivePartProgramPart.Save
End
Sub