Заменить текст в универсальной выноске

Olga94

Здравствуйте Уважаемые специалисты NanoCAD,

подскажите пожалуйста как на "excel-vba" заменить для универсальных выносок (СПДС-выносок) все найденные в текстах русские буквы на "большие английские"?

Заранее спасибо!

Olga94

Подскажите пожалуйста, единственно что не получается: Как выбрать (обратиться) к такой выноске?

Код ниже НЕ видит ее, как нужно обращаться к такому типу объекта?

Set SPDS = CreateObject("McCOM2.Server")
EntGroup(0) = 0
EntData(0) = "ISymSpdsNotePosition"
objSelectionSet.SelectOnScreen EntGroup, EntData

Olga94

До объекта добралась :

For Each ent In objSelectionSet
If ent.ObjectName = "mcsDbObjectNotePosition" Then

…

Подскажите как обратиться к содержимому верхней и нижней полки (Text и Footer)?

MCAD

https://forum.nanocad.ru/discussion/comment/4053#Comment_4053

Вы же тут это делали.

Установка выноски из Excel1.zip

Olga94

Задача несколько иная теперь:
1) В чертеже уже есть выноски-СПДС (были как-то проставлены),
2) Нужно выбрать их (выборочно) и заменить русские буквы (если есть) на подобные английские, т.е. "E", "T", "O", "P", "A", "H", "K", "X", "C", "B", "M" в 2-х строках.

Не получается обратиться к тексту через vba, чтобы заменить содержимое, у объекта "mcsDbObjectNotePosition" нет свойства Text. Хотелось бы заменить тексты, а не ставить новые выноски.

doctorRAZ

https://forum.nanocad.ru/discussion/comment/4057#Comment_4057

Советовал тебе уже..

Коль ты умеешь получить выноску, как мультикад объект

Что тебе мешает по шагам пройти код и посмотреть какие свойства есть у выноски?

Выше тебе верно сказано, эта задача уже решена

MCAD

https://forum.nanocad.ru/discussion/comment/4059#Comment_4059

Там нужно для  универсальных выносок. Это вообще порождение сумрачного прошлого. 👻

Не могу пока ничего подсказать, возможно тут помогут.