topic Lisp problems with Turkish characters (Ç, Ğ, I, İ, Ö, Ş, Ü) in Visual LISP, AutoLISP and General Customization Forum

Lisp problems with Turkish characters (Ç, Ğ, I, İ, Ö, Ş, Ü)

Anonymous — Mon, 16 Apr 2018 08:03:55 GMT

Hello
I have several lisps that load the name of the file and layouts to put it in different attribute texts
(this one, for example)
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-to-batch-rename-layouts-according-to-drawing-file-name/td-p/7926349

My problem is that these lisps fail when the name of the file or the layouts contain a Turkish letter such as the ones in the title of the post, as it doesn't store it correctly as a string variable.

Is it possible to overcome this issue? My Autocad version is not Turkish and I'm blocked many times due to this.
Thank you so much.

Re: Lisp problems with Turkish characters (Ç, Ğ, I, İ, Ö, Ş, Ü)

roland.r71 — Mon, 16 Apr 2018 13:17:21 GMT

First off, there's nothing Turkish about these characters, just because the Turkish use 'm (like the french, Germans, Spanish, etc,etc.etc.)

Second, these are not part of the regular character table, but the extended part. Problem there is the extended part is font specific. So, you won't see 'm, with some fonts (just "?" or something else (ö shows as % for example) you did not want)

Your string is actually a list of references to such a font-character-table. Switching the font, might just switch your extended characters & therefor your text. So, using the right font is key.

That's the only thing i can think of right now, as your example code works perfect for me. The string IS stored correctly. If i use my lastname (which contains such (german) characters) it works like a charm. The sheet name is named correctly.

Example-

if the file is named: Grüß

(setq name (vl-filename-base (getvar "dwgname")))

returns...

"Grüß"

Using it to rename sheets works just as well. (right here, on my system, which is English / US-International)

Re: Lisp problems with Turkish characters (Ç, Ğ, I, İ, Ö, Ş, Ü)

hmsilva — Mon, 16 Apr 2018 15:57:17 GMT

@Anonymous wrote:
Hello
I have several lisps that load the name of the file and layouts to put it in different attribute texts
(this one, for example)
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-to-batch-rename-layouts-according-to-drawing-file-name/td-p/7926349

My problem is that these lisps fail when the name of the file or the layouts contain a Turkish letter such as the ones in the title of the post, as it doesn't store it correctly as a string variable.

Is it possible to overcome this issue? My Autocad version is not Turkish and I'm blocked many times due to this.
Thank you so much.

Hi movieboxdv005,

I did find some problems using

(vl-filename-base (getvar "dwgname"))

in a dwg named "ÇĞIİÖŞÜ.dwg"... the layout was renamed to "U+015EÜ"....

Try to change

(setq name (vl-filename-base (getvar "dwgname")))

(setq name (substr (getvar 'DWGNAME) 1 (- (strlen (getvar 'DWGNAME)) 4))

Hope this helps,
Henrique

Re: Lisp problems with Turkish characters (Ç, Ğ, I, İ, Ö, Ş, Ü)

malmattos — Fri, 18 Feb 2022 22:59:51 GMT

I AM USING THE FOLLOWING CODE TO SELECT A LAYER:

(if (not (tblsearch "layer" "E-FORÇA"))(command "layer" "new" "E-FORÇA" "c" "3" "E-;FORÇA" ""))
(command "-layer" "s" "E-FORÇA" "")

BUT RETURNS AN ERROR DUE TO THE CHARACTER Ç.
HOW DO I MAKE LISP UNDERSTAND WHAT IS "FORÇA"?

Re: Lisp problems with Turkish characters (Ç, Ğ, I, İ, Ö, Ş, Ü)

devitg — Sat, 19 Feb 2022 00:21:51 GMT

@malmattos , if you are going to SET the layer as current , there is no need to ask if exist , just Make the Layer and it becomes current .

acad do not worry if its exist or not , just use layer M

(command "layer" "_m" "E-FORÇA" "c" "3" ""))

, I did no set the linetype , because I have not it.

Yes it need to check if linetype "E-;FORÇA" exist, because it is a condition to assign a linetype to a layer

Re: Lisp problems with Turkish characters (Ç, Ğ, I, İ, Ö, Ş, Ü)

malmattos — Thu, 12 May 2022 18:19:41 GMT

If anyone has the same problem, I managed to solve it by replacing the character Ç with \\U+00C7
example: ("força") -> ("for\\U+00C7a")