Pri detailovani bojujem so znackou x45stupnou.Vie niekto ako by sa to dalo z aotomatizovat.Zakazdym musim ist do textu koty a dopisat text  x45.

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..

Já jsem si udělal makro a přidělil mu ikonu. Po okótování vyberu (přes CTRL)kóty které mají mít příponu "x45°" a stisknu ikonu. K vybraným kótám se přípona přiřadí.
Jan Hujer

, 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)

Diki moc, uz to frci.

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

Díky, bezva