Editable for selected part or all parts in that assembly ?
if selected part then you can try using this:
Sub main()
set_par(ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAssemblyLeafOccurrenceFilter, "choose part").definition.document)
End Sub
Sub set_par(oPDoc As PartDocument)
On Error Resume Next
' Dim oPDoc As PartDocument = ThisDoc.Document
Dim oPDef As PartComponentDefinition = oPDoc.ComponentDefinition
Dim oSketch As PlanarSketch = oPDef.Sketches.Item("STORAGE TANK BODY")
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 = "STORAGE_TANK_EXTERNAL_DIA" Then
oHeightDim = oDim
ElseIf oDim.Parameter.Name = "STORAGE_TANK_INTERNAL_DIA" 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
End Sub
