Help Fixing iLogic Code - Change Custom Properties

[DeerSpotter]

<Subassembly document name>” = iProperties.Value("Custom", "CUSTOMER P.O. NUMBER")

 

iProperties.ValueInDoc("<Subassembly document name>.iam", "Custom", "CUSTOMER P.O. NUMBER")= Ucase(InputBox("CUSTOMER P.O. NUMBER?", "Create Customer P.O.#", iProperties.Value("Custom", "CUSTOMER P.O. NUMBER")))

 Wondering why this doesnt work for me. 😕 please could someone help me? If anything try to explain to me why it didnt work?

[mrattray]

What does this line do? It doesn't make any sense.

<Subassembly document name>” = iProperties.Value("Custom", "CUSTOMER P.O. NUMBER")

I think you want this:

iProperties.ValueInDoc("<Subassembly document name>.iam", "Custom", "CUSTOMER P.O. NUMBER")= UCase(InputBox("CUSTOMER P.O. NUMBER?", "Create Customer P.O.#", iProperties.Value("Custom", "CUSTOMER P.O. NUMBER")))

 To read this:

iProperties.Value("<Subassembly document name>.iam", "Custom", "CUSTOMER P.O. NUMBER")= UCase(InputBox("CUSTOMER P.O. NUMBER?", "Create Customer P.O.#", iProperties.Value("Custom", "CUSTOMER P.O. NUMBER")))

[DeerSpotter]

I understand a little now, about what you did here, im learning finally.

i want to subassembly.iam name to be asked for or inputed automatically fromm the ducument im running from.

I will be running this code from the DWG's.

[mrattray]

Try this:

Dim asyName As String

asyName = InputBox("Sub-assembly document file name?","Sub-assembly document file name?","my sub assembly.iam")

iProperties.Value(asyName, "Custom", "CUSTOMER P.O. NUMBER")= UCase(InputBox("CUSTOMER P.O. NUMBER?", "Create Customer P.O.#", iProperties.Value("Custom", "CUSTOMER P.O. NUMBER")))

 We can get more complex if you wish. We could loop thorugh every occurence in the top level assembly and gather the file names for every sub assembly...