【功能】

    另存为：文件另存为，并转移外部参考。

    另存为副本：文件另存为，不转移外部参考。

【示例结构】

    Dim swApp As Object      Dim Part As Object

    longstatus = Part.SaveAs3(NewName, SaveAsVersion, Options)

    longstatus = Part.SaveAs3("完整路径+新文件名+扩展名&#​34;, 0, 0 or 2)

【参数】

    1. ByVal NewName as String

        新文件的文件名。"完整路径+新文件名+扩展名&#​34;

    2. ByVal SaveAsVersion as Integer

        暂未找到说明。实用中使用默认值0即可。

    3. ByVal Options as Integer

        0：另存为的同时，转移外部参考。

        2：另存为的同时，不转移外部参考。

【附加示例】

    Dim <原文件名> as String    '不包含扩展名     Dim <新文件完整路径> as String    '注意：完整路径要以“\”结尾     Dim <新文件名> as String    '不包含扩展名     Dim <扩展名> as String     Dim <工程图名称> as String    '此名称为图纸属性中的名称

    <扩展名> = ".sldprt&#​34; or ".sldasm&#​34; or ".slddrw&#​34;    '根据实际情况，三选一

    ' 另存为     longstatus = Part.SaveAs3(<新文件完整路径> & <新文件名> & <扩展名>, 0, 0)

    ' 另存为副本并继续     longstatus = Part.SaveAs3(<新文件完整路径> & <新文件名> & <扩展名>, 0, 2)

    ' 另存为副本并打开 = 另存为副本并继续 + 打开新文件 + 关闭原文件     longstatus = Part.SaveAs3(<新文件完整路径> & <新文件名> & <扩展名>, 0, 2)     Set Part = swApp.OpenDoc6​(<新文件完整路径> & <新文件名> & <扩展名>, 1, 0, "&#​34;, longstatus, longwarnings)         '如为零件或装配体         swApp.CloseDoc <原文件名> & <扩展名>             '如为工程图         swApp.CloseDoc <原文件名> & " - &#​34; & <工程图名称>