How to change the name of a part when imported by Ilogic Place component

[andrescastellanosint]

Hi.

I created a piece parameterised and with form of ilogic, but when it is opened by  place ilogic component i cannot choose the name of the part that I desire. How to change the name of a part when it is imported by ilogic place component?

[bradeneuropeArthur]

Could you do that on the save event or any other event?

[bradeneuropeArthur]

like this:

Public sub main

Dim oInvDocInvDsgnTrcPrpPropSet As PropertySet

Dim strPartNumber as string
set strPartNumber = "XYZ"
Dim oInvDocInvDsgnTrcPrpPartNumberProp As [Property]

oInvDocInvDsgnTrcPrpPropSet = oInvDoc.PropertySets.Item("Design Tracking Properties")
oInvDocInvDsgnTrcPrpPartNumberProp = oInvDocInvDsgnTrcPrpPropSet.Item("Part Number")

oInvDocInvDsgnTrcPrpPartNumberProp.Value = strPartNumber

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 !

[andrescastellanosint]

Hello when I run in VBA I get that does not recognize strPartNumber

[bradeneuropeArthur]

What do you mean with recognize?

[bradeneuropeArthur]

Public sub main Dim oInvDocInvDsgnTrcPrpPropSet As PropertySet Dim strPartNumber as string set strPartNumber = "XYZ" Dim oInvDocInvDsgnTrcPrpPartNumberProp As [Property]
set oInvDocInvDsgnTrcPrpPropSet = oInvDoc.PropertySets.Item("Design Tracking Properties") set oInvDocInvDsgnTrcPrpPartNumberProp = oInvDocInvDsgnTrcPrpPropSet.Item("Part Number") oInvDocInvDsgnTrcPrpPartNumberProp.Value = strPartNumber End sub

[bradeneuropeArthur]

You need to add set to every declaration

[andrescastellanosint]

[bradeneuropeArthur]

Remive the set for spartnumber.
For all other add the set

[bradeneuropeArthur]

Sorry for the incomplete code:

For VBA:

Public Sub main()
Dim oInvDoc As Document
Set oInvDoc = ThisApplication.ActiveDocument

Dim oInvDocInvDsgnTrcPrpPropSet As PropertySet

Dim strPartNumber As String
strPartNumber = "XYZ"
Dim oInvDocInvDsgnTrcPrpPartNumberProp As Property


Set oInvDocInvDsgnTrcPrpPropSet = oInvDoc.PropertySets.Item("Design Tracking Properties")
Set oInvDocInvDsgnTrcPrpPartNumberProp = oInvDocInvDsgnTrcPrpPropSet.Item("Part Number")

oInvDocInvDsgnTrcPrpPartNumberProp.Value = strPartNumber

End Sub

or Ilogic:

Public Sub main()
Dim oInvDoc As Document
oInvDoc = ThisApplication.ActiveDocument

Dim oInvDocInvDsgnTrcPrpPropSet As PropertySet

Dim strPartNumber As String
strPartNumber = "XYZ"
Dim oInvDocInvDsgnTrcPrpPartNumberProp As Property


oInvDocInvDsgnTrcPrpPropSet = oInvDoc.PropertySets.Item("Design Tracking Properties")
oInvDocInvDsgnTrcPrpPartNumberProp = oInvDocInvDsgnTrcPrpPropSet.Item("Part Number")

oInvDocInvDsgnTrcPrpPartNumberProp.Value = strPartNumber

End Sub

[andrescastellanosint]

Hello friend Excuse me if I can not run the rule, I really do not know what happens. The ILOGIC rule throws an error that is shown in the image