Enable "Copy Model iProperties"

[mrawesomelemons]

I have made a script to update all the iProperties before saving.

This only works for custom iProperties if the option "Copy model iproperties" is enabled and the custom iproperties I want to copy are selected.

In my template I have enabled this option but for my older drawings I have this option disabled. There are so many drawings I can't possibly go through them manually and change the option so I want to make an iLogic rule or something alike to enable this option and select the custom iproperties I want to have copied and updated.

Is there any way to enable and select custom iProperties to copy in de document settings?

[mrawesomelemons]

Anyone?

[bradeneuropeArthur]

Write your code by yourselves and define there what proprieties need to be copied.
Do you have a list of properties that need to be synchronized?

[mrawesomelemons]

Thank you for your reply!

I know how to automatically update/copy the properties but not how to enable the custom properties to be enabled.

I want to enable this checkbox automatically:

[bradeneuropeArthur · Accepted solution]

As far as I know this is not possible.
I was also searching this for a while, but with no success.
If i am remembering correct this was also confirmed that this is not included in the API..

I wrote my own code for this!

[mrawesomelemons]

Thank you for your help.

What do you mean with:

---

@bradeneuropeArthurwrote:

I wrote my own code for this!

You wrote your own code to do this? If so, could you link it?

[bradeneuropeArthur]

I read all properties that I need by my code and put it into the file needed for.
I do this with an add-in under conditions...

[mrawesomelemons]

I'm afraid I don't really follow. Could you guide me on how to do that?

[bradeneuropeArthur]

Yes of course.
can you provide me a list of properties you want to synch between the model and the drawing?

[mrawesomelemons]

Thank you very much.

The custom properties have the following names:

AIMD_ITEM_MODEL_TYPE

PART NUMBER

TITLE

[bradeneuropeArthur]

are you familiar with add ins in Vb.net or VBA

[mrawesomelemons]

I haven't used those before.

[bradeneuropeArthur]

how do you prefer the code:

1. VBA
2. VB.net add in
3. Vb.net standalone app
4. I logic

[mrawesomelemons]

I would prefer iLogic since I have used that before and already implemented an iLogic rule so it would be easier to just add another.

[bradeneuropeArthur]

here you are:

Public Sub Main()
Dim a As Application
a = ThisApplication

Call UpdateCopiedModelPropertiesConventional(a, "AIMD_ITEM_MODEL_TYPE")
Call UpdateCopiedModelPropertiesConventional(a, "PART NUMBER")
Call UpdateCopiedModelPropertiesConventional(a, "TITLE")
MsgBox ("ready")
End Sub

Public Sub UpdateCopiedModelPropertiesConventional(oInvApp As Inventor.Application, Prop As String)

        Dim oDrawDoc As Document 'DrawingDocument
        oDrawDoc = oInvApp.ActiveDocument

        If Not oDrawDoc.DocumentType = DocumentTypeEnum.kDrawingDocumentObject Then
            Exit Sub
        Else
           
        End If

        'get active sheet
        Dim oDwgSheet As Sheet
        oDwgSheet = oDrawDoc.ActiveSheet

        'get the active component in the view
        Dim oCompObject As Document
        oCompObject = oDwgSheet.DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument

       
        Dim oCompObjectPrpset As PropertySet
        oCompObjectPrpset = oCompObject.PropertySets.Item("User Defined Properties")

        
        Dim oCompObjectPrp As Inventor.Property
        On Error Resume Next
        oCompObjectPrp = oCompObjectPrpset.Item(Prop)

       
        Dim oDwgD As String
        oDwgD = oCompObjectPrp.Value

    
        Dim odrawInvPropSet As PropertySet
        odrawInvPropSet = oDrawDoc.PropertySets.Item("User Defined Properties")

        
        Dim odrawInvProp As Inventor.Property
        On Error Resume Next
        
       Call odrawInvPropSet.Add(oDwgD, Prop)
       odrawInvProp = odrawInvPropSet.Item(Prop)

        If Not oDwgD = odrawInvProp.Value Then
            'fill in the desciption from the component into the Dwg description
            odrawInvProp.Value = oDwgD
            MsgBox ("The description of the drawing: " & odrawInvProp.Value)
        End If
        oDrawDoc = Nothing

    End Sub

[mrawesomelemons]

Thank you very much.

If I understand correctly this updates the custom properties I listed?

It cannot enable the custom property in the drawing?

[bradeneuropeArthur]

what do you mean with "It cannot enable the custom property in the drawing?"

[mrawesomelemons]

I mean it doesn't enable the checkbox I marked earlier. When I run the script on a drawing where the cusom properties are disabled in document settings I do see the pop up but when I check it isn't enabled.

[bradeneuropeArthur]

As I already wrote earlier:

"As far as I know this is not possible.
I was also searching this for a while, but with no success.
If iIam remembering correct this was also confirmed that this is not included in the API (Application Programming Interface) if inventor.."

[mrawesomelemons]

Ah yeah okay. Thank you for your code to update the properties and your help! Maybe Autodesk will add the possibility later.