[===AAA===]

Всем привет!

Имеем текст:

"I ≥ 10mA", где символ "≥" - юникодовский.

Попробуем вывести его в обычный текстовый ASCII-файл
функцией (write-line).

AutoCAD "по-честному" запишет:
I \U+2265 10mA

А вот nanoCAD выведет туда:
I ? 10mA

т.е. информация пропадёт.

Если кто-то уже с этим сталкивались и знает, чем заменить
функцию (write-line) - подскажите, плиз.

Ну и имейте это ввиду при адаптации своих старых наработок.

[Сергей812]

просто акад с 21 версии начал поддерживать юникод в лиспе)

----- добавлено через ~48 мин. -----
хотя по любому писать в текстовой файл с кодировкой ASCII символы юникода бессмысленно же) Вам надо искать - как вывести из лиспа в текстовой файл с кодировкой юникода - например, пост №9 отсюда от Lee Mac

[===AAA===]

...писать в текстовой файл с кодировкой ASCII символы юникода бессмысленно же)

Ну, не совсем.

В 99.999% случаев это будет чистый ASCII-текст, редчайшие "вкрапления"
в который всяких "\U+XXXX" можно и потерпеть. По крайней мере, меня пока
поведение АвтоКАДа в этой части вполне устраивало.

Хотя, конечно же, "в идеале...", "когда-нибудь потом..." можно будет
заморочиться и на "чистый" unicode-файл.

А пока нужна функция, которая ASCII-символы выводит в файл, как ASCII,
а юникоды (ежели они вдруг встретятся) - как "\U+XXXX"

Т.е. заставить в этом плане NC вести себя, как АС.

Если готовой функции на примете ни у кого нет, напишу свою.

С перебором строки текста посимвольно. Но пока не могу понять, как,
скажем, символу ≥ сопоставить 2265, какая функция на это способна?

[Сергей812]

текстовой файл - это просто последовательность байт, которую можно интерпретировать как текстовые символы. Используется кодировка ASCII - каждый байт как символ, но больше 255 символов никак не засунешь. Unicode - там уже могут быть варианты с количеством байт до 4-х на один символ. Вот нано, похоже, честно и пишет вместо всех символов, коды которых превышают 255 - символ вопроса в кодировке ASCII.

А что, код, который дал в ссылке - не подошел?

----- добавлено через ~2 мин. -----

Сообщение от ===AAA=== С перебором строки текста посимвольно. Но пока не могу понять, как, скажем, символу ≥ сопоставить 2265, какая функция на это способна?

для начала надо определить - поддерживает ли вообще нанолисп юникод)

[koMon]

===AAA===,
я нанокада не видел, но можно посмотреть что выдаёт в нк, например, функция (vl-string->list "I ≥ 10mA").

[===AAA===]

Команда: (vl-string->list "I ≥ 10mA")
(73 32 63 32 49 48 109 65)

Информация здесь теряется. :-(

Здесь тоже.

Команда: (ascii "≥")
63

Для сравнения - в AutoCAD ситуация другая:

Команда: (vl-string->list "I ≥ 10mA")
(73 32 92 85 43 50 50 54 53 32 49 48 109 65)

Команда: (ascii "≥")
92

[koMon]

а если так
(vl-list->string '(92 85 43 50 50 54 53))

[===AAA===]

Так-то оно нормально будет:

Команда: (vl-list->string '(92 85 43 50 50 54 53))
"\\U+2265"

но мне как раз обратное действие нужно...

В частном-то случае задача решается, ибо:

Команда: (setq a "≥")
"≥"
Команда: (= a "\U+2264")
nil
Команда: (= a "\U+2265")
T

но как решить её "в общем виде" ?

[Сергей812]

Сообщение от ===AAA=== но как решить её "в общем виде" ?

в общем виде это решается переходом на язык программирования, который поддерживает юникод (а сам юникод появился еще лет 30 назад). Либо пробовать использовать костыли в виде того же scripting.filesystemobject, который в свою очередь позволяет создавать CreateTextFile с поддержкой юникода.

[koMon]

===AAA===,
можно попробовать вставить в строку сразу юникод "\U+2265" вместо "≥", например "I \\U+2265 10mA".
а что поддержка нк не говорит ничего по этому поводу?

[===AAA===]

... вставить в строку сразу юникод "\U+2265" вместо "≥" ...

Да, так и сделал.

В "частном виде" это уже готово, т.к. у меня этих юникодов - по пальцам посчитать.

Через (cond ) сделал исключения - там делов-то на несколько строк текста.
Оформил отдельной функцией. Перед выводом текста в файл "прогоняю"
строку через функцию. Если появятся ещё юникоды - ещё добавлю.

Но - думал - может быть есть более общее и уже готовое решение в виде
неизвестной мне функции...

а что поддержка нк не говорит ничего по этому поводу?

С ними связь односторонняя. Я даже и писать им перестал. Не отвечают.