iLOGIC user parameters from Ipt to Ipt

[SpokenEarth]

Hi forum, i need a code for export or import user parameters from one part to another.

Can anyone give me a solution

Thanks

[bradeneuropeArthur]

do you mean export .xml and import .xml?

[SpokenEarth]

Not in xml

[bradeneuropeArthur]

What do you mean than with Export and Import?

[SpokenEarth]

Import or export user parameters so can be used as a reference

[bradeneuropeArthur]

Can you use "Derive Parameters" than, because you need it as a reference?

[SpokenEarth]

Yes. If you can open my attached file you can se i have a view parameters, i would like to export them to another part so can be used as reference, without first derived my part.

[bradeneuropeArthur]

So this means No reference!

There will be only a one-go and not a link between those?

[SpokenEarth]

Exactly

[bradeneuropeArthur]

With:

Ilogic

Vba

Vb.net

[SpokenEarth]

Rather with Ilogic, please

[bradeneuropeArthur]

Only the user defined parameters?

[bradeneuropeArthur]

Dim d As Inventor.FileDialog 

Dim td As Inventor.PartDocument = ThisDoc.Document
Call ThisApplication.CreateFileDialog(d)

d.ShowOpen

Dim pd As Inventor.PartDocument = ThisApplication.Documents.OpenWithOptions(d.FileName,"" , False)

For Each p As Inventor.Parameter In pd.ComponentDefinition.Parameters.UserParameters
	Try
		
		td.ComponentDefinition.Parameters.UserParameters.AddByValue(p.Name,p.Value,p.Units)
		Catch
			End Try
			
	Next
pd.Close(True)

[SpokenEarth]

Yes, thought it would be handy having also the option for model par as well

[bradeneuropeArthur]

Edit Something was wrong:

Dim d As Inventor.FileDialog 

Dim td As Inventor.PartDocument = ThisDoc.Document
Call ThisApplication.CreateFileDialog(d)

d.ShowOpen

Dim pd As Inventor.PartDocument = ThisApplication.Documents.Open(d.FileName , False)

For Each p As Inventor.Parameter In pd.ComponentDefinition.Parameters.UserParameters
	Try
		'msgbox (p.Units)
		td.ComponentDefinition.Parameters.UserParameters.AddByValue(p.Name,p.Value,p.Units)
		Catch
			End Try
			
	Next

pd.Close(True)

[SpokenEarth]

It works perfect, thank you for the assistance.

Would it be to much if ask you to modify the code, I would rather not having true false statements

Achilles

[bradeneuropeArthur]

What would you like to have modified?

[SpokenEarth]

An error appears