script need for automatic name field in iprop

[sebastien.forman]

Hi all,

I would like to make an little automation script but i don' t know how i can do that.

I do the same movement many time by day.

When i have make a drawing, saving it with a correct name. (ex: 103-NiMo-10200-001 (Collection tank).idw)

I need to

-open 3d

-edit iprop

-put "103-NiMo-10200-001" (the first part of the file name) in field "Number part"

-put "Collection tank" (the second part of the file name) in field "Description"

-Save it

-Close it.

It would be really simpatic if someone could help me do this.

Thank

Sébastien

[bradeneuropeArthur]

The following:

Dim a As Application
Set a = ThisApplication

Dim b As DrawingDocument
Set b = a.ActiveDocument

Dim Partnr As Property
Dim Desc As Property

Dim propset As PropertySet
Set propset = b.PropertySets.Item("Design Tracking Properties")

Set Partnr = propset.Item("Part Number")
Set Desc = propset.Item("Description")

Dim Filen As String
Filen = b.DisplayName '"103-NiMo-10200-001 (Collection tank)" '

Dim strSp() As String
strSp = Split(Filen, " (")

MsgBox strSp(0)
MsgBox strSp(1)

Partnr.Value = strSp(0)
Desc.Value = Replace(strSp(1), ").idw", "")
End Sub

EDITTED>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

[sebastien.forman]

Hi bradeneurope

Thank you very much for this code.

Just the iprop you editing is of the idw file, but me, i want to edit iprop of the ipt or iam file show in this idw file.

Like show in screencasts.

Thank you again

Sébastien

[bradeneuropeArthur · Accepted solution]

Keep reading than....

Public Sub main()

Dim a As Application
Set a = ThisApplication

Dim b As DrawingDocument
Set b = a.ActiveDocument

Dim Partnr As Property
Dim Desc As Property

Dim bx As Document
Set bx = b.ReferencedDocuments.Item(1)

MsgBox bx.FullDocumentName

Dim propset As PropertySet
Set propset = bx.PropertySets.Item("Design Tracking Properties")

Set Partnr = propset.Item("Part Number")
Set Desc = propset.Item("Description")

Dim Filen As String
Filen = b.DisplayName '"103-NiMo-10200-001 (Collection tank)" '

Dim strSp() As String
strSp = Split(Filen, " (")

MsgBox strSp(0)
MsgBox strSp(1)

Partnr.Value = strSp(0)
Desc.Value = Replace(strSp(1), ").idw", "")
End Sub

Regards,

Autodesk Software: Inventor Professional 2018 | Vault Professional 2018 | Autocad Mechanical 2018
Programming Skills: Vba | Vb.net (Add ins Vault / Inventor, Applications) | I-logic
Dimension Component! | Partlist Export! | Derive I-properties! | Vault Prompts Via API! | Vault Handbook/Manual!
Drawing Toggle Sheets! | Vault Defer Update!

! For administrative reasons, please mark a "Solution as solved" when the issue is solved !

[sebastien.forman]

Yes,

Really nice,

just i need to refresh view after that because changet is not show.

It 's need to clic on model view list "assembly.iam" and after clic on buton  "mettre a jour".

I have tried to put bx.update or bx.rebuild, but doesn't work.

Have you an idea?

Sebastien

[bradeneuropeArthur]

bx.update2

[sebastien.forman]

No, bx.Update2 doesn't work too.

But b.Save work, juste need to save it a this time.

Thank you for your help.

Precious time will be saved in the future thanks to you.