[name02]

Создал простенькую функцию для определения имени блока, но wcmatch отказывается работать с кириллицей.
Если имя блока будет только из латинских букв (с цифрами и без) - то wcmatch работает как положено, но если добавить хотя бы один кириллический знак, то уже всё - не работает.
В чем причина - что-то не загружено (подгружено), проблемы в системе, автокаде?

Код:

[Выделить все]

 
(defun c:qqq()

(vl-load-com)

(setq selset (ssget "_:S" '((0 . "INSERT")))
)

(foreach ent (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset))))
	;(print (vla-get-effectivename ent)  )

(wcmatch (vla-get-effectivename ent) "Яmain")

)

)

[Кулик Алексей aka kpblc]

Приводи все в единый регистр и потом уже сравнивай. Правда, учти некоторые особенности strcase: https://autolisp.ru/2020/04/07/strcase-and-rus/

[name02]

Спасибо за наводку.
Дело оказалось не только в этом - я код писал в блокноте, а в нем почему-то сохранялось в кодировке UTF (не знаю как и когда так получилось, может когда клавиатуру чистил), поэтому сравнение имени блока с именем, заданным внутри кода текстовой строкой шло некорректно.
Сохранил все в ANSI и все стало работать как нужно!