[olga87]

Здравствуйте Уважаемые программисты!

Подскажите пожалуйста как кодом vba-excel вставить разом несколько объектов nanoCAD "Позиционная выноска"?

В excel:
- столбцы A, B - координаты x,y для точки позиции выноски
- столбцы C, D - содержимое 1-й и 2-й строки выноски.


Ниже приведена часть кода vbs с другог форума:
как лидеру задать координату vPoint ?

Код:

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

Sub note()

Dim pos(2) As Double

pos(0) = 5

pos(1) = 10

pos(2) = 0
Dim posL(2) As Double

posL(0) = 50


posL(1) = 100


posL(2) = 0
Set SPDS = CreateObject("McCOM2.Server")

Set note1 = SPDS.CreateObject("McCOM2.SymSpdsNotePosition")

note1.ViewScale = SPDS.ViewScale

note1.Text = "Первая строка"

note1.Footer = "Вторая строка"

note1.TextPosition = pos
'note1.Leaders.Add 'тут затык, не пойму в каком виде ему координату vpoint подсунуть
note1.Place False, False

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

Ну даже чисто логически: есть начало выноски, а есть положение полки выноски. Чего-то одного не хватает, КМК

[MCAD]

Сообщение от Кулик Алексей aka kpblc есть начало выноски,

Просто вставит без выноски. Один текст.
Так то, doctorraz, уже ответил.