Vytisknout stránku | Zavřít okno

Uhlová kóta

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: Inventor
Popis fóra: Otázky k programům Autodesk Inventor Professional, Product Design & Manufacturing Collection, Factory Design; digitální prototypy
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=30887
Datum vytištění: 16.čvc.2026 v 16:48


Téma: Uhlová kóta
Odeslal: wili
Předmět: Uhlová kóta
Datum odeslání: 15.srp.2020 v 18:08
Ahoj
Je možné nastaviť kótovanie uhlu tak aby sa s hlavnou kótou objavil aj údaj o doplnkovom uhle do 90 stupňov? Niečo také ako prikladám na obrázku. Pri pílení na pílke je totiž potrebné zadávať práve tento doplnkový uhol, aby bol správny výsledok


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 15.srp.2020 v 19:51
Přímo funkcemi Inventoru to možné není - zobrazíte buď přímý nebo doplňkový úhel. Ale můžete použít následující iLogic pravidlo a do úhlové kóty ten doplňkový úhel připojit (pravidlo si můžete přidat např. jako ikonu do ribbonu - pomocí X-Tools):

'Adds opposite angle to ang.dimension (CAD Studio, 2020,  http://www.cadstudio.cz - www.cadstudio.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 = 90.0-oDim.ModelValue*180.0/PI
If oDim.Text.FormattedText.Contains("°)") Then
	oDim.Text.FormattedText = "<DimensionValue/>" & vbCrLf & "(" & CStr(Round(opposíte,oDim.Precision)) & "°)"
Else
    oDim.Text.FormattedText = oDim.Text.FormattedText & vbCrLf & "(" & CStr(Round(opposíte,oDim.Precision)) & "°)"
End If
oDim.Text.HorizontalJustification = kAlignTextCenter


-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz emea.support.arkance.world)

Odeslal: wili
Datum odeslání: 16.srp.2020 v 09:27
Ďakujem


Vytisknout stránku | Zavřít okno