Тема: нарисовать объект в Layout

надо нарисовать полилинию в листе и вставить Текст.
для модели такой код:
Set Obj_Beam = ACD.ActiveDocument.ModelSpace.AddLightWeightPolyline(Pb)
Set ObjТ1 = ACD.ActiveDocument.ModelSpace.AddText(Text1.Text, InsertPnt, 2.5 * М_А)

а чтобы вставить в Лист (Layout), имя которого может быть любым, какой код?

За помощь, огромное спасибо!

(изменено: Вильдар, 27 августа 2010г. 16:34:54)

Re: нарисовать объект в Layout

Например:

ThisDrawing.Layouts("Лист1").Block.AddLightWeightPolyline(Pb)

Нужно только проверить, что такой лист есть, или обработчик ошибок добавить.

Раньше не замечал, но после C#, начало раздражать, что подсказка (InteliSence) в VBA не показывает типы возвращаемых значений. Нужно в обозреватель лезть.

Re: нарисовать объект в Layout

Oleg пишет:

надо нарисовать полилинию в листе и вставить Текст.
для модели такой код:
Set Obj_Beam = ACD.ActiveDocument.ModelSpace.AddLightWeightPolyline(Pb)
Set ObjТ1 = ACD.ActiveDocument.ModelSpace.AddText(Text1.Text, InsertPnt, 2.5 * М_А)

а чтобы вставить в Лист (Layout), имя которого может быть любым, какой код?

За помощь, огромное спасибо!

Если нужно без указания имени вкладки, т.е. добавлять примитивы в текущее
пространство документа, можно использовать свойство ActiveLayout
этого документа, а именно блок таблицы записей этой активной вкладки:

ThisDrawing.ActiveLayout.Block.Add...< здесьчегонадодобавлять >

Тогда не надо беспокоится, где находишься в данный момент
Имей в виду что ModelSpace и PaperSpace по сути тоже являются блоками

[FONT=Arial]~'J'~[/FONT]

Re: нарисовать объект в Layout

Всем, огромное спасибо!