This method lets you save the measurement routine with a new name or in a new file location. It differs from the SaveAs method by letting you save the CAD file as a reference.
Visual Basic |
---|
Public Function SaveAs2( _ ByVal Name As String, _ ByVal CadAsReference As Boolean _ ) As Boolean |
- Name
String value containing the full pathway and file name to which to save.
- CadAsReference
Boolean value that determines whether or not to save the CAD as a reference to the original CAD file. This lets you reference your CAD model instead of copying a new one. This helps save disk space.
- TRUE will save the CAD as a reference.
- FALSE will create a new CAD file with the same name as the measurement routine.
Sub Main (strText As String)
App As ObjectDim
Set
App = CreateObject ("PCDLRN.Application")Dim
Part As ObjectSet
Part = App.ActivePartProgramPart.SaveAs2 "d:\temp\testprogram2.prg",
TrueMsgBox Part.FullName
End
Sub