How to use the name of unsaved document with VBA ?

[Olsndot]

Hi

With VBA, I try to create document with serial number of the file name.

But when the name is same as unsaved document created with Inventor command "Create In-Place Component" my code is not avoid to give same name.

How to use the name property of unsaved document with VBA ?

[AlexFielder]

Can you make a screencast showing the issue you're having?

In my experience, any time you want to get the name of a document (via the API), it needs to have been saved first.

Someone may have an example that shows otherwise, or perhaps be able to demonstrate a different method of naming the file in the first place; a short video showing the issue you're having would help with both.

If you can also share the VBA you have so far that would help too.

[bradeneuropeArthur]

You should use "On populate Metadata" event, when creating the filename.

This will avoid that..

Regards,

[Olsndot]

Thank you for reply!

I was examined various about that, but I can't do that because my understanding of VBA is lacking...

[Olsndot]

Thank you for reply!

I try to create a part within assembly with displaying the thumbnail of template.

So, what I try to do is the following in sequence.

1.Save the template file in the folder "Content Center Files" in advance.
2.Place the template file from the folder "Content Center Files" with command "Place Component".
3.Copy the file to the folder in Workspace with serial number.
4.Replace the template file with the copy.

The problem has occurred at step 3.
When name of new file is same as the unsaved part created with name by command "Create In-Place Component" or "Copy Component",
the unsaved part isn't exist in the folder, so New file is overwritten by the unsaved part as shown in screencast.
So, I should check the new file name with the unsaved parts name, but I don't know how to do.
How should I do?

The code is as below,and screencast is posted.

Sub PlaceTemplate()

Call ThisApplication.CommandManager.ControlDefinitions.Item("AssemblyPlaceComponentCmd").Execute
Do
    ThisApplication.UserInterfaceManager.DoEvents
    
Loop Until ThisApplication.CommandManager.ActiveCommand <> "AssemblyPlaceComponentCmd"

Dim oAsmDoc As AssemblyDocument
Set oAsmDoc = ThisApplication.ActiveEditDocument

Dim oTopDoc As AssemblyDocument
Set oTopDoc = ThisApplication.ActiveDocument

Dim oEditOccu As ComponentOccurrence
Set oEditOccu = oTopDoc.ComponentDefinition.ActiveOccurrence

Dim oOcc As ComponentOccurrence
Dim oOccName As String

Dim oNewDocNum As String
oNewDocNum = oAsmDoc.ComponentDefinition.Occurrences.Count

'Within sub assembly or top assembly
If Not (oAsmDoc Is oTopDoc) Then

    Set oOcc = oEditOccu.SubOccurrences.Item(oNewDocNum)

    Else
    
    Set oOcc = oAsmDoc.ComponentDefinition.Occurrences.Item(oNewDocNum)
  
End If
oOccName = oOcc.Definition.Document.FullFileName
'Specify the folder
Dim oWSPath As String
oWSPath = ThisApplication.DesignProjectManager.ActiveDesignProject.WorkspacePath + "\PART\"

  
'Specify the file name
Dim oNewOccName As String
oNewOccName = oWSPath + "TEST" + Format(Date, "yymmdd") + "_PART"
  
'Confirm the existence of the file

If Dir(oWSPath, vbDirectory) = "" Then
    MkDir (oWSPath)
End If

Dim fCount As Integer
Dim oNewPart As String
For fCount = 1 To 999
    oNewPart = oNewOccName + CStr(fCount) + ".ipt"
    If Dir(oNewPart) = "" Then

        Call ThisApplication.FileManager.CopyFile(oOccName, oNewPart)

        'Replace component
        Call oOcc.Replace(oNewPart, True)
        Exit For
    End If

Next

End Sub

Thank you.