switch driven dimensions

[Nathan.r12345]

Hi, i was hoping someone can help me. 

Is it possible using iLogic to switch two params between driven and undriven dimensions.

I basically have an object in the middle of a room and i want to be able to choose an offset distance from a wall, based on which side of the room its on. Ie left or right. 

So in a form the user would click 'left side of room' and then input the offset from the left wall or vise versa.

See attched image.

For example:

if SWITCHDIRVENDIMENSION = True Then

d2 = Not driven

d3 = Driven dimension

if SWITCHDIRVENDIMENSION = False Then

d2 = Driven dimension

d3 = Not driven

[bradeneuropeArthur]

I have a addin for that. Let me have a look to share this ....

[bradeneuropeArthur]

Dim p As PartDocument = ThisDoc.Document
Dim pc As PartComponentDefinition = p.ComponentDefinition
Dim ps As PlanarSketch = pc.Sketches.Item(1)

Dim skd1 As DimensionConstraint = ps.DimensionConstraints.Item(1)
Dim skd2 As DimensionConstraint = ps.DimensionConstraints.Item(2)
MsgBox(skd1.Driven)
MsgBox (skd2.Driven)
If skd1.Driven = True Then
	skd2.Driven = True
	skd1.Driven = False
Else If skd2.Driven = True Then
	skd1.Driven = True
	skd2.Driven = False
End If

[bradeneuropeArthur]

Or even with a pick-command:

Dim p As PartDocument = ThisDoc.Document
Dim pc As PartComponentDefinition = p.ComponentDefinition
Dim ps As PlanarSketch = pc.Sketches.Item(1)
Dim s As SelectSet = p.SelectSet
Dim skd1 As DimensionConstraint
Dim skd2 As DimensionConstraint

skd1 = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kSketchDimConstraintFilter, "PICK FIRST ""DRIVEN"" DIMENSION TO SWITCH!") 
Do While skd1.Driven = False
	MsgBox ("THIS DIMENSION IS NOT DRIVEN")
	skd1 = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kSketchDimConstraintFilter, "PICK FIRST ""DRIVEN"" DIMENSION TO SWITCH!") 
Loop

skd2 = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kSketchDimConstraintFilter, "PICK FIRST ""DRIVE"" DIMENSION TO SWITCH!") 
Do While skd2.Driven = True
	MsgBox ("THIS DIMENSION DOES NOT DRIVE")
	skd2  = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kSketchDimConstraintFilter, "PICK FIRST ""DRIVE"" DIMENSION TO SWITCH!") 
Loop

Try
	
If skd1.Driven = True Then
	skd2.Driven = True
	skd1.Driven = False
Else If skd2.Driven = True Then
	skd1.Driven = True
	skd2.Driven = False
End If

Catch
	MsgBox("NOT POSSIBLE TO SWITCH!")
End Try