CAD tip # 12696:

Pokud potřebujete zobrazit kromě hlavní hodnoty úhlu i velikost úhlu doplňkového (do 90°), můžete použít následující iLogic pravidlo. Do vybrané, obyčejné kóty úhlu doplní požadovaný "doplňkový" úhel v závorce. Zobrazená přesnost bude stejná jako u hlavní kóty.

Při případné následné změně úhlu nebo stylu kóty se hodnota doplňkového úhlu dynamicky nepřepíše. Je potřeba pravidlo spustit znovu. Volání pravidla si můžete přidat do ribbonu např. pomocí nástrojů X-Tools (T4I).

Kód iLogic:

'Adds opposite (90°) angle to ang.dimension (CAD Studio, 2020, www.cadforum.cz)
Dim oSelection As Object = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingDimensionFilter, "Select an angular dimension:")
If IsNothing(oSelection) Then Return
If oSelection.Type <> kAngularGeneralDimensionObject Then
	MsgBox("This is not an angular dimension!", vbCritical, "Inventor")
	Return
End If
Dim oDim As AngularGeneralDimension = oSelection
Dim opposíte As Double = 90.0-oDim.ModelValue*180.0/PI 'opposite to 90°
If oDim.Text.FormattedText.Contains("°)") Then 'update
	oDim.Text.FormattedText = "<‍DimensionValue/>" & vbCrLf & "(" & CStr(Round(opposíte,oDim.Precision)) & "°)"
Else 'create
        oDim.Text.FormattedText = oDim.Text.FormattedText & vbCrLf & "(" & CStr(Round(opposíte,oDim.Precision)) & "°)"
End If
oDim.Text.HorizontalJustification = kAlignTextCenter