Toggle between two dimensions

[A.K.CORTEL]

Hi all users, I have a part file with a sketch fully constrained, I'm wondering if it's possible switching between deg and height.
Any code that will do the job?
Thanks

[WCrihfield · Accepted solution]

Hi @A.K.CORTEL.  Here is something that should work for that.

Dim oPDoc As PartDocument = ThisDoc.Document
Dim oPDef As PartComponentDefinition = oPDoc.ComponentDefinition
Dim oSketch As PlanarSketch = oPDef.Sketches.Item("CONICAL")
Dim oDims As DimensionConstraints = oSketch.DimensionConstraints
Dim oHeightDim As DimensionConstraint
Dim oAngleDim As DimensionConstraint
For Each oDim As DimensionConstraint In oDims
	If oDim.Parameter.Name = "d84" Then
		oHeightDim = oDim
	ElseIf oDim.Parameter.Name = "CA" Then
		oAngleDim = oDim
	End If
Next
If oHeightDim.Driven Then
	oAngleDim.Driven = True
	oHeightDim.Driven = False
Else
	oHeightDim.Driven = True
	oAngleDim.Driven = False
End If

If this solved your problem, or answered your question, please click ACCEPT SOLUTION .
Or, if this helped you, please click (LIKE or KUDOS) 👍.

[A.K.CORTEL]

Hi WCrihfield, it worked perfect.

You are always helpful.

Thank you.