Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy CAD Studio [www.cadforum.cz]
ČeskySlovenskyEnglishDeutsch
Přihlášení:
▶ Registrace

 právě čte: 4567 

CAD tip CAD tip # 11579:

Otázka CAD 
 %  platforma  kategorie 
Q - otázka

Excel: převod Unicode textů na \U+ kódy pro AutoCAD

A - odpověď 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:

ACADLT
100% *  CAD 
28.8.2017    197×  
 
Související CAD produkty:
platí pro: AutoCAD · AutoCAD LT ·

Zpět   Všechny další tipy

Symbol na izometrii nereaguje na směr toku ve 3D modelu. « | » Jak porovnat změny mezi dvěma verzemi BIM projektu Revitu?

Pomohl vám tento tip? Provoz služby CADForum.cz podpoříte i nákupem produktů Autodesk u provozovatele tohoto serveru a Platinum partnera Autodesku, firmy CAD Studio.
Můžete si také přidat odkaz na vaše stránky: CAD Fórum - diskuze, tipy, bloky a utility
CAD:    OS:    Kateg: 
Text:  FAQ   






Tipy a triky prosím využívejte na vlastní zodpovědnost.
Provozovatel (CAD Studio a.s.) nenese odpovědnost za případné potíže vzniklé v souvislosti s použitím kteréhokoliv z uvedených tipů.
Pro plné zvládnutí dané aplikace doporučujeme absolvování některého z nabízených CAD školení.
Další publikování obsahu je dovoleno jen se souhlasem autora.
TOPlist