关于将模型移动到新目录下并改名的问题请教！
各位老师好，本来想上传模型来的，但是文件较大无法上传，现在只好用文字来表述了，希望能表述清楚
请看下面代码
Private Sub Button8_Click()
Dim oApprentice As New ApprenticeServerComponent
Dim oNewMainFile,ModelsSourceDir, ModelsTargetDir As String
ModelsSourceDir = "E:\123\1-Core"& "_铁芯装配.iam"
ModelsTargetDir = "D:\234\1-Core\ "
oNewMainFile = ModelsTargetDir & "234_铁芯装配.iam"
StandardDir="E:\123\_StandardPart"
oApprentice.FileLocations.FileLocationsFile = "E:\123\123.ipj"
Call oApprentice.FileManager.CopyFile(ModelsSourceDir, oNewMainFile, kOverwriteExistingFile)
Dim oDoc As ApprenticeServerDocument
Set oDoc = oApprentice.Open(oNewMainFile)
Dim oFileSaveAs As FileSaveAs
Set oFileSaveAs = oApprentice.FileSaveAs
Dim oRefFile As ApprenticeServerDocument
Dim oRefFileDesc As ReferencedFileDescriptor
Dim oNewFile As String
For Each oRefFile In oDoc.AllReferencedFiles
If InStr(1, GetFullPath(oRefFile.FullDocumentName), StandardDir) = 0 Then
oNewFile = ModelsTargetDir & "\" & "234"& ExtractFileName(oRefFile.FullFileName)
For Each oRefFileDesc In oDoc.ReferencedFileDescriptors
If oRefFileDesc.FullFileName = oRefFile.FullDocumentName Then
Call oApprentice.FileManager.CopyFile(oRefFile.FullFileName, oNewFile, kOverwriteExistingFile)
Call oRefFileDesc.PutLogicalFileNameUsingFull(oNewFile)
End If
Next
Call oFileSaveAs.AddFileToSave(oRefFile, oNewFile)
End If
Next
Call oFileSaveAs.AddFileToSave(oDoc, oNewMainFile)
oFileSaveAs.ExecuteSaveAs
oApprentice.Close
Set oDoc = Nothing
End Sub
定义了两个函数GetFullPath() 、ExtractFileName() 如下：
################################################
Function ExtractFileName(FullPathFileName) As String
Dim AllElements As Variant
AllElements = Split(FullPathFileName, "\")
ExtractFileName = AllElements(UBound(AllElements))
End Function
##############################################
Function GetFullPath(FullPathFileName) As String
Dim AllElements As Variant
AllElements = Split(FullPathFileName, "\")
Dim PathLong As String
PathLong = AllElements(0)
Dim i As Integer
For i = 1 To UBound(AllElements) - 1
PathLong = (PathLong & "\" & AllElements(i))
Next
GetFullPath = PathLong
End Function
模型创建中的一些澄清：
1.有一个名为“_ControlPart.ipt“零件，其他所有零件均衍生于此零件，个别部件也链接了此零件中的个别参数；
2."E:\123\_StandardPart"这个文件夹与"E:\123\1-Core"并列于项目文件夹下，前者用于存放自定义的标准件，
后者用于存放制作的模型；
3.我使用的为Inventor2014版本，对个别的零部件使用了iLogic功能；
4.代码中的目录本由代码指定，此处省略。
运行代码后的问题：
1.当代码运行后，目标目录"D:\234\1-Core”确实生成了新的项目，名字也都加了前缀”234“，但是当用Inventor打开后，
在模型树中发现总装配的名字依然是”_铁芯装配.iam“，而不是我想要的”234_铁芯装配.iam“，而其包含的零部件中，
有1个子零件的名字也没变过来，有2个字子装配（子装配的名字变了）下的子零件名字也没变化；
2.当打开源目录下的"E:\123\1-Core"& "_铁芯装配.iam"，发现几乎所有衍生了“_ControlPart.ipt“的零部件的引用位置
均指向了目标目录下的"D:\234\1-Core\234_ControlPart.ipt“,而不是原来的"E:\123\1-Core\_ControlPart.ipt“，这是
我最不能接受的，等于破坏了将来我打算将其用作工具的模型。
我本要实现的目标：
1.将用作工具的源模型，迁移到新的项目目录下，生成的新的模型名字都统一加上前缀，相当于名字改变了，只需要
文件名跟模型树中的显示名发生变化即可，其他名称不需要变化；
2.源文件必须保持原样，不能早到任何破坏。
求助的问题：
1.以上代码有什么问题吗
2.如果要实现我的目标，我又该怎么做！
http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 GT2014的微博 没人能帮帮我吗？
页:
[1]