Please, cyrillic language character problem

[Anonymous]

Greetings folks, I have really big problem with cyrillic characters in archicad. Law in my country tells that whole documentation for projects has to be in cyrillic format... I've tried those advices in some of earlier posts (eg. one with changing code to 204 in registry, and one with editing config file in add-on folder) but nothing helps. When I change my keyboard in language bar to cyrillic (either serbian or bosnian) and try to type a name of layer or section name in cyrillic - only thing I get is bunch of "?????????". Is it possible at all solve this? HELP!

-

Pozdrav ljudi, stvarno imam problem sa prikazom cirilicnih slova u archicad-u... (Koristim 11-ku na PC platormi)

Da li je uopste moguce da se imena layer-a, nazivi presjeka i slicne stvari imenuju cirilicom a da pri tome ne dobijem gomilu upitnika?
Ovo mi je stvarno ozbiljan problem jer se sva dokumentacija koju radim u archicad-u mora predati na cirilici. Takav zakon, sta li vec...

Pokusao sam i neke od onih savjeta sa ovog foruma, i stvarno sam vjerovao da ce onaj sa izmjenom koda u registry-ju na 204 (rusko podrucje) pomoci, ali nista... Hiljadu kombinacija sa regional settings-ima i opet nista...

Pomagajte! :+(

[Anonymous]

Not too big, just wrong file extension.

I was in impression that these codepage issues are part of computing history, but no. [senroded content could be placed here, use creativity]
Frustrating issue anyway.

I really need a decent, proper solution for this cyrillic issue for the 11 INT.


Petri



Macro pasted below, I hope it get through now.

--macro--
Sub encode()

For Each cell In Selection
cell.Value = Replace(cell.Value, ChrW$(1081), "é", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1094), "ö", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1091), "ó", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1082), "ê", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1077), "å", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1085), "í", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1075), "ã", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1096), "ø", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1097), "ù", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1079), "ç", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1093), "õ", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1098), "ú", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1092), "ô", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1099), "û", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1074), "â", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1072), "à", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1087), "ï", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1088), "ð", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1086), "î", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1083), "ë", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1076), "ä", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1078), "æ", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1101), "ý", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1103), "ÿ", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1095), "÷", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1089), "ñ", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1084), "ì", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1080), "è", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1090), "ò", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1100), "ü", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1073), "á", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1102), "þ", vbTextCompare)

cell.Value = Replace(cell.Value, ChrW$(1049), "É", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1062), "Ö", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1059), "Ó", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1050), "Ê", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1045), "Å", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1053), "Í", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1043), "Ã", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1064), "Ø", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1065), "Ù", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1047), "Ç", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1061), "Õ", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1066), "Ú", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1060), "Ô", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1067), "Û", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1042), "Â", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1040), "À", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1055), "Ï", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1056), "Ð", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1054), "Î", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1051), "Ë", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1044), "Ä", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1046), "Æ", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1069), "Ý", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1071), "ß", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1063), "×", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1057), "Ñ", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1052), "Ì", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1048), "È", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1058), "Ò", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1068), "Ü", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1041), "Á", vbTextCompare)
cell.Value = Replace(cell.Value, ChrW$(1070), "Þ", vbTextCompare)
Next cell
End Sub
--macro ends--

[Rob]

Oi Petri,
since when Suomi switched to cyrillic?

[Anonymous]

Terve Rob!

Suomi is newer going to use cyrillics.

My pain comes from fact that we have a lot of projects from international companies on areas where natives use cyrillics. Russia...


Petri

and for the rest of the world:
Terve=G'day, Hi or something like that
Suomi=Finland

[Anonymous]

I still can't change the way ArchiCAD displays Cyrillic fonts... I tried the link below and nothing! I use Win 7 Pro and OS X Mavericks and the link is for older versions. 😕
http://www.archicadwiki.com/Bugs/CyrillicFontProblems

Help!

[Anonymous]

Hi,
as I can see this problem is not resolved, so I will continue with my trouble.
So, I'm using ArchiCad 19. Cyrillic works fine, I also have my project notes in Cyrillic. At some point, however, I tried to save them as pdf, or copy them in another word document to save them for later, but every time I get unreadable characters. At some point I changed the setting from Cyrillic to central European just to see if copying will work this time, saved and closed the pln. Next time I opened it, everything was fine, except my project notes were all "?????????????????". I immediately changed the text settings from central European to Cyrillic, and did everything described here:
http://helpcenter.graphisoft.com/troubleshooting/documenting/fontscharacters-troubleshooting-guide/
However problem still persists in projects notes. Note that everywhere else (stories, etc.) the Cyrillic fonts are fine.

Please help, I need those notes back