[{Smirnoff}]

Объясниете почему (vla-get-Alignment возвращает целые числа в порядке нумерации ссистемных констант acAlignment..... , а не сами константы. Ведь при применении (vla-put-Alignment в качестве аргумента нужно указывать именно константу. Так оно и должно быть?

[vk]

И не только...
Попробуй прочитать цвет фона окна модели, например... Там еще что-то более невразумительное. А когда назначаю свойства ячеек Экселевской таблицы из Лиспа - нормальные результаты достигаются при приблизительно при таком "раскладе"
(vlax-put-property cell "HorizontalAlignment" (vlax-make-variant -4108 3)) ; по центру
(vlax-put-property cell "HorizontalAlignment" (vlax-make-variant -4152 3)) ; справа

Наверно у ActiveX глюковина такая...

[{Smirnoff}]

Нет ничего совершенного... Я раньше с этим не сталкивался, а столкнулся при написании проги для Vovы, без заденей мысли хотел взять выравнивание с верхней строки и выровнять также нижнюю. Ошибка всплыла только потом, когда я выставил в тестовом файле различное выравнивание. Пришлось написать (cond со всеми константами. Неправильно это... Ведь если свойство принимает булевые значения то не T и nil а :Vlax-True и :Vlax-False. А тут нестыковочка у них какая то...

[vk]

Тогда уж проще поменять значения в точечных парах изменяемого TEXT'а, да заэнтмодить сей текстовый примитив. По крайней мере, не придется перечислять все константы.