Parameters

[GosponZ]

I do have lot old files i need to add True/ False Parameter  ABC . Can somebody help please. Thanks

[bradeneuropeArthur]

You van do that with Windows Explorer selves!

[GosponZ]

iLogic code would be nice. Do not understand with Windows explorer

[bradeneuropeArthur]

1. Select files
2.  
3. 

[GosponZ]

Thanks for you replay but this is what i need

[bradeneuropeArthur]

Correct I have read wrong!

I will help you further...

[bradeneuropeArthur · Accepted solution]

Dim d As Inventor.FileDialog
 Call ThisApplication.CreateFileDialog(d)
d.MultiSelectEnabled = True
d.Filter = "Parts|*.ipt"
d.ShowOpen
d.CancelError = False
If Not d.FileName = "" Then
	Dim a() As String = Split(d.FileName, "|")

i=0
For i = 0 To UBound(a)
Dim odoc As Inventor.PartDocument = ThisApplication.Documents.Open(a(i))
odoc.ComponentDefinition.Parameters.UserParameters.AddByValue("ABC", True, "BOOLEAN")
odoc.Save
	odoc.Close
Next 

End If

EDIT 

[GosponZ]

Great it is working. Before close and accept let me ask you this. Can it be done if part is already open, or can it be done to run code from assembly in all parts?

Appreciate once again for you time and help

[bradeneuropeArthur]

sure.

You mean for the active part also put parameter ABC = true/false

and loop through assembly parts and put parameter ABC = true/false

[GosponZ]

Yes

[bradeneuropeArthur · Accepted solution]

Sub main
Dim a As AssemblyDocument = ThisApplication.ActiveDocument

loopi(a)

End Sub

 Sub Loopi(a As AssemblyDocument)
	Dim c As ComponentOccurrence 
For Each c In a.ComponentDefinition.Occurrences
	Dim d As Document = c.Definition.Document
	
	If d.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject
		loopi(d)
	Else If d.DocumentType = DocumentTypeEnum.kPartDocumentObject
		Dim p As PartDocument = Nothing
	p = d
	p.ComponentDefinition.Parameters.UserParameters.AddByValue("ABCD",True,"BOOLEAN")
	
	End If
	
	Next
End Sub

[GosponZ]

Thank you so much, lot time will save me.

[bradeneuropeArthur]

Good to hear!

[cadman777]

@bradeneuropeArthur,

Thanks for this rule.

It works a charm!

Thing is, I need a few more options on it.

Would you please show me how?

First I need to replace the value with the name of a parameter (G_L).

Then I need to Export the parameter, and then format the units of the parameter to decimal 3 places, no zeros and no unit string. If you can point me in the right direction I would be grateful. I keep getting an error about the 'document class' when I try to cut-and-paste other code I find in this forum into this rule. Here is what I did so far:

'Create user parameter in part file after checking for existence and then adding a value to it and formatting it and exporting it

Sub Main
Dim a As AssemblyDocument = ThisApplication.ActiveDocument

Loopi(a)

End Sub

 Sub Loopi(a As AssemblyDocument)
	Dim c As ComponentOccurrence 
For Each c In a.ComponentDefinition.Occurrences
	Dim d As Document = c.Definition.Document
	
	If d.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject
		Loopi(d)
	Else If d.DocumentType = DocumentTypeEnum.kPartDocumentObject
		Dim p As PartDocument = Nothing
	p = d
	p.ComponentDefinition.Parameters.UserParameters.AddByValue("G_LD", G_L, UnitsTypeEnum.kInchLengthUnits)
	
	End If
	
	Next
End Sub

I believe I have to 'expose' the parameter so it can be changed, but don't know how to do it.

Here is a link showing some code to do that, but I don't know how to integrate it into your rule.

Here is the code from that link:

param =Parameter.Param("G_L") 
param.ExposedAsProperty = True 
param.CustomPropertyFormat.Precision = kThreeDecimalPlacesPrecision 
param.CustomPropertyFormat.ShowTrailingZeros = False 
param.CustomPropertyFormat.ShowLeadingZeros = False 
param.CustomPropertyFormat.ShowUnitsString = False 
param.CustomPropertyFormat.Units = "in" 

Also, I do not understand what this is doing:

If d.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject
		Loopi(d)
	Else If d.DocumentType = DocumentTypeEnum.kPartDocumentObject
		Dim p As PartDocument = Nothing
	p = d

Thanx...Chris