Dynamic sketch with array in .idw

[S7RM7RPR]

I'm not expecting anyone to have a solution but on the off chance that someone has an idea.. I've actually managed to dig into the API and even figured out how to edit an existing sketch AND how to find all the sketch dimensions on my own, but I'm stumped now.

I am attempting to set up a dynamic sketch in an .idw that I can update via iLogic. I am using the below code to be able to update sketch constraints, however I've discovered that it can't find the parameter used to define the quantity in an array - in my case d20. It find everything except for array parameters which tells me that either I flat out can't access it because .idw sketches are ridiculous, or I'm using the wrong property. However I can't find a property that does work..

I'd appreciate it if you can even just suggest how I might be able to have a dynamic array in a idw sketch. It's looking to me like it's not possible. My last resort is going to be to draw out each variation manually and use layers..

Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
Dim oSketch As DrawingSketch

For Each oSketch In oDrawDoc.ActiveSheet.Sketches
	If oSketch.Name = "Sketch1"
		oSketch.Edit
		
		For Each constraintX In oSketch.DimensionConstraints
			Dim paramX = constraintX.Parameter
			MsgBox(paramX.Name)
			If paramX.Name = "d20"
				paramX._Value = Parameter.Param("MtgQty")._Value
			End If
		Next

		oSketch.Solve()
		oSketch.ExitEdit()

		Exit For
	End If
Next

[bradeneuropeArthur]

Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
Dim oSketch As DrawingSketch

For Each oSketch In oDrawDoc.ActiveSheet.Sketches
	If oSketch.Name = "Sketch1"
		oSketch.Edit
		
		Dim a As Application = ThisApplication
		Dim b As DrawingDocument = a.ActiveDocument
		Dim c As Inventor.Parameter 

		Dim d As Inventor.DrawingSketch = b.ActiveSheet.Sketches.Item(1)

		For Each dc As Inventor.DimensionConstraint In d.DimensionConstraints
	
If dc.Parameter.Name= "d20" Then
dc.Parameter.Expression = b.Parameters.Item("MtgQty").Expression
End If
Next

		oSketch.Solve()
		oSketch.ExitEdit()

		Exit For
	End If
Next

[S7RM7RPR]

So that code is actually the same but you've got a new 'c' declaration that doesn't appear to be used anywhere..

I'm not sure Inventor.Parameter is going to get me anything though unless the sketch parameters are just hidden but each sketch has it's own parameter set so we have to tie the parameters to the sketch...