Modify Sketch Constraint Value | Dassault Systèmes®

SX

SX 2024-10-29

CATIA Buildings & Infrastructure

Sub CATMain()

For j = 1 To CATIA.ActiveEditor.Selection.Count

Dim aa As Constraint

Set aa = CATIA.ActiveEditor.Selection.Item(j).Value

If InStr(aa.Name, "Radius") <> 0 Then

aa.Dimension.Value = 500

End If

Next

End Sub