No pokud máte AI 9 nebo 10, tak je to to nejjednodužší co je. Nadefinujete si ve stylech nový kotovací styl a mu dáte příponu x45o. Přidáte to do aktivní normy a pak po zadání příkazu "kota" si v panelu nahoře přepnete na požadovaný styl a kotujete..

, tak dobrý programátor zas nejsu...kdybyste byl tak ochotný a kousek zdrojáku zveřejnil, uřčitě by se nikdo nezlobil...má to určitě výhodu, že přes makro lze přidal libovolný počet předpon a přípon..pomocí stylů jde vložit vždy pouze jedno řešení a zbytek se pak musí dopsat ručně.

Výhoda stylů je dlé mého pohledu v tom, že je AI na to stavěný..takže to zvládnou i neprogramátoři a hlavně kota má daný tvar již okamžiku vložení (popř. přepnutím do jiného stylu ji lehce změním, nebo ji prostě natvrdo přepíšu)

Public Sub X45()
    Dim ooDrawDoc As Document
    Set ooDrawDoc = ThisApplication.ActiveDocument

    If ooDrawDoc.DocumentType <> kDrawingDocumentObject Then
        Exit Sub
    End If

Dim oDrawDoc As DrawingDocument
 Set oDrawDoc = ThisApplication.ActiveDocument
    If oDrawDoc.SelectSet.Count = 0 Then
        MsgBox "Musíte vybrat kótu."
        Exit Sub
    End If
    Dim oSheet As Sheet
    Set oSheet = oDrawDoc.ActiveSheet
    Dim oDrawingDimtype As ObjectTypeEnum
    Dim oDrawingDim As DrawingDimension
    For Each oDrawingDim In oDrawDoc.SelectSet
             oDrawingDim.text.FormattedText = "<<>>x45<StyleOverride Font='AIGDT'>~</StyleOverride>"
    Next

End Sub