Pomocí následujícího VBA makra můžete v Excelu převést libovolný text v Unicode (azbuka - ruština, arabština, čínština, japonština, korejština, řečtina a další dvoubytové znaky) na kódovaný text pro AutoCAD. Takto zakódovaný text můžete vložit do textového objektu AutoCADu. Pokud takový textový objekt bude používat styl využívající patřičný font, písmo (obsahující cizojazyčné znaky), bude text správně zobrazen v libovolné verzi AutoCADu.
Potřebná uživatelská funkce ACADunicode:
Kód VBA funkce (Alt+F11 v Excelu, Insert>Module):
Function ACADunicode(s)
cvt = ""
For i = 1 To Len(s)
c = Mid(s, i, 1)
x = StrConv(c, vbUnicode)
If Mid(x, 2, 1) = Chr(0) Then
cvt = cvt & c
Else
cvt = cvt & "\U+" & _
Right("0" & Hex(Asc(Mid(x, 2, 1))), 2) & _
Right("0" & Hex(Asc(Mid(x, 1, 1))), 2)
End If
Next i
ACADunicode = cvt
End Function
V Excelu ji vyvoláte standardně, podobně jako jinou, vestavěnou funkci - např. =ACADunicode(A1) - převede text z buňky A1.
Výsledný text v AutoCADu:
![Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk
- od firmy Arkance Systems [www.cadforum.cz slaví 20 let]](/common/cf-top-logo.png "Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk
- od firmy Arkance Systems [www.cadforum.cz slaví 20 let]"){kind=logo}
AutoCAD a LT
Inventor
Revit
Civil 3D
Fusion 360
CAD tip # 11579:
AutoCAD
AutoCAD LT
AutoCAD
