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

Платформа nanoCAD API
1

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

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

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

2

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

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

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

3

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

For Each ent In objSelectionSet
If ent.ObjectName = “mcsDbObjectNotePosition” Then

…

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

4

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

For Each ent In objSelectionSet
If ent.ObjectName = “mcsDbObjectNotePosition” Then

…

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

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

Установка выноски из Excel1.zip (18,2 КБ)

5

Задача несколько иная теперь:

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

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

6

Задача несколько иная теперь:

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

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

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

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

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

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

7

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

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

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

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

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

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