change sketch parameters (done in dwg file)

[marcin_bargiel]

I attached dwg drawing with simple "Sketch1" in which i have 3 parameters (dimensions) : d0, d1, d2.

How can i change it ??? i need it many times when creating sections (in different orientation)

[Sergio.D.Suárez]

Are you going to work in Inventor or Autocad? because in inventor you could try to work with blocks, to then take these blocks to autocad, since once parameterized it is quick to make the changes to each block.
Excuse me if I did not understand your need, explain us a little better to be able to help in the best way, greetings.

[marcin_bargiel]

Thank You yuvilo_ but You completely did not understand what I meant, it has to be done in SKETCH which is created in drawing DWG not in Part IPT ! (this is a trivial task for someone who started working with the inventor yesterday 🙂 )

[marcin_bargiel]

Please take a look into my dwg file

[chandra.shekar.g · Accepted solution]

@marcin_bargiel ,

Try below iLogic code to change the dimensions of sketch.

d = InputBox("Enter d0", "Sketch dimensions", "4 in")
d1 = InputBox("Enter d1", "Sketch dimensions", "5 in")
d2 = InputBox("Enter d2", "Sketch dimensions", "35 deg")

Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument

Dim oSheet As Sheet
oSheet = oDoc.ActiveSheet

Dim oSketch As DrawingSketch
oSketch = oSheet.Sketches.Item(1) 

Dim oConstraint As DimensionConstraint
For Each oConstraint In oSketch.DimensionConstraints	
    If oConstraint.Parameter.Name = "d0" Then
        oConstraint.Parameter.Expression = d
	Else If oConstraint.Parameter.Name = "d1" Then
        oConstraint.Parameter.Expression = d1 
	Else If oConstraint.Parameter.Name = "d2" Then
    	oConstraint.Parameter.Expression = d2 
    End If
Next
Call oSketch.Solve 

Thanks and regards,

[marcin_bargiel]

Thank's a lot !

It works good, one thing only i can't figure it out - how can update this sheet automatically ? it change only when i click on it. I tried this - but wihout result...

Dim oCurrentSheet As Sheet
oCurrentSheet = ThisDoc.Document.ActiveSheet
	
	' Iterate through the sheets
	Dim oSheet As Sheet
	For Each oSheet In ThisDoc.Document.Sheets
		oSheet.Activate
		oSheet.Update	
	Next
	
'return to original sheet	
oCurrentSheet.Activate

[chandra.shekar.g]

@marcin_bargiel,

Code looks fine for me. Can you please demonstrate the situation with video record or screencast? please make sure that files are non confidential.

Thanks and regards,