Обращение к текущему объекту

[sangvinik128]

Здравствуйте ! Хочу написать макрос, который будет менять цвет всех символов кириллицы, в выбранном пользователем объекте пр-ва модели. Не подскажете, как мне обращаться к текущему ( который выделен пользователем в данный момент) объекту на языке VBA ?

[Александр Ривилис]

Не подскажете, как мне обращаться к текущему ( который выделен пользователем в данный момент) объекту на языке VBA ?

1. Одновременно может быть выбрано ни одного объекта, один объект, несколько объектов. Причем они могут быть разных типов.
2. Набор предварительного выбора: AcadDocument.PickfirstSelectionSet

[sangvinik128]

Ну мне нужно обрабатывать только объекты типа : AcadMText, AcadText, AcadTable.

[Александр Ривилис]

Ну мне нужно обрабатывать только объекты типа : AcadMText, AcadText, AcadTable.

Ну значит только их будешь выбирать из .PickfirstSelectionSet

[sangvinik128]

Ну да, хорошо, спасибо

[sangvinik128]

Как я понял, посимвольно цвет поменять не получится у текстового объекта ? Хотелось бы визуально выделить искомые символы каким-то образом, ничего не посоветуете ?

[sangvinik128]

Вообще можно ли работать с символами объектов ? Все св-ва и методы ( в случае AcadTable) возвращают строку, строку можно преобразовать в массив символов, но в этом случае мы уже не работаем с объектом AutoCAD

[Александр Ривилис]

Вообще можно ли работать с символами объектов ?

С символами объектов ты работать можешь. Но вот менять им цвет...
1. Для AcadText можно менять цвет только всей строке.
2. Для AcadMText можно поменять цвет отдельному символу используя коды \CNNN;, где NNN - номер цвета от 1 до 255
Описание управляющих полей: https://adndevblog.typepad.com/autocad/2017/09/dissecting-mtext-format-codes.html
3. Для ячейки AcadTable аналогично как и для AcadMText

[sangvinik128]

Ну, в MText я меняю цвет таким образом :

Код - F# [Выбрать]

1. objMText.TrueColor.ColorIndex = acRed

А как мне обратиться по индексу символа к MText ?

[Александр Ривилис]

Ну, в MText я меняю цвет таким образом :

Код - Visual Basic [Выбрать]

1. objMText.TrueColor.ColorIndex = acRed

А как мне обратиться по индексу символа к MText ?

Никак. И таким образом ты меняешь цвет всему MText;
Допустим у тебя есть MText с содержимым "123456789" и тебе нужно, чтобы цвет у цифры 5 был красный, а у остальных символов белый, то нужно изменить строку на:
"\C7;1234\C1;5\C7;6789"  (7 - это белый цвет, 1 - красный цвет)

[sangvinik128]

А могу ли я запомнить текущий код (цвет) объекта ? Чтобы парсить строку и то, что мне нужно оставлять как было, а по требуемому индексу в строке уже менять цвет

[Александр Ривилис]

А могу ли я запомнить текущий код (цвет) объекта ? Чтобы парсить строку и то, что мне нужно оставлять как было, а по требуемому индексу в строке уже менять цвет

Ну да. Так же как ты менял цвет всему MText, ты можешь получить этот цвет: objMText.TrueColor.ColorIndex

[Александр Ривилис]

Впрочем если у тебя уже будут коды цвета внутри содержимого MText, то ты легко можешь запутаться.

[sangvinik128]

Всё понял, кроме крайнего сообщения. Почему могу запутаться ?

[Александр Ривилис]

Всё понял, кроме крайнего сообщения. Почему могу запутаться ?

Ну допустим у тебя содержимое MText такое:

Код: [Выделить]

{\fISOCPEUR|b0|i0|c0|p34;\H0.95833x;\C256;\U+00D8\A1;\H1.04348x;\C7;80}Т.е. уже есть заданные цвета для каких-то кусков текста. Что ты с таким будешь делать?