project name change using macro

[k14348]

this macro is to change the project name in a part document

Public Sub GetPropertySample()

 ' Get the active document.

 Dim invDoc As Document

 Set invDoc = ThisApplication.ActiveDocument

 ' Get the part number property.

 Dim invProjectProperty As Property

 Set invProjectProperty = invDoc. _

PropertySets.Item("Design Tracking Properties").Item("Project")

invProjectProperty.Value = "wall unit"

End Sub

i need to change the project name for  whole assembly by using one macro.

example my assembly contains 10 parts. this 10 parts project name should be "wall unit"

Can anyone help to create this kind of macros....

Thanks in advance.

[Anonymous]

Hi,

I believe you would got the answer for your query by now. If not then here below;

Dim oDoc As Inventor.AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument

' Get Assembly Component Definition
Dim oCompDef As AssemblyComponentDefinition
Set oCompDef = oDoc.ComponentDefinition

On Error Resume Next

Dim oCompOcc As ComponentOccurrence

For Each oCompOcc In oCompDef.Occurrences
'You code goes here

call GetPropertySample
Next

oDoc.Update

this macro is to change the project name in a part document

Public Sub GetPropertySample()

 ' Get the active document.

 Dim invDoc As Document

 Set invDoc = ThisApplication.ActiveDocument

 ' Get the part number property.

 Dim invProjectProperty As Property

 Set invProjectProperty = invDoc. _

PropertySets.Item("Design Tracking Properties").Item("Project")

invProjectProperty.Value = "wall unit"

End Sub

[k14348]

yes, Now i learned to write macros. Anyhow thanks for your reply. you r from?

Thank you,

Regards,

karthikeyan M

+919962356080

[dgreatice]

Hi All,

Did you try this code? I'd trying you code, but only main assembly Project Property are change, sub assemblys/parts are not change.

[MechMachineMan]

Here is a version that would work for all files:

Dim oDoc As Inventor.AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument

oNewProjectValue = "NewProjNum"

oSubDoc.PropertySets.Item("Design Tracking Properties").Item("Project").Value = oNewProjectValue
For Each oSubDoc AS Document in oDoc.AllReferencedDocuments
 oSubDoc.PropertySets.Item("Design Tracking Properties").Item("Project").Value = oNewProjectValue
End Sub 

[dgreatice]

Hi @MechMachineMan

You have little miss, I fixed it :

Hi @k14348 this subject solved by @MechMachineMan :

Dim oDoc As Inventor.AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument

oNewProjectValue = "NewProjNum"

oDoc.PropertySets.Item("Design Tracking Properties").Item("Project").Value = oNewProjectValue
For Each oSubDoc AS Document in oDoc.AllReferencedDocuments
oSubDoc.PropertySets.Item("Design Tracking Properties").Item("Project").Value = oNewProjectValue
End Sub