Программное рисование в Layoute

Спасибо, Fatty, это оно! Только на экане почему-то ничего не отбражается. Если смотреть Watch-и объектов в Debuger-e, то полилиния нормальная, какая надо. Но её не видно. Не помогает даже строчка

ThisDrawing.Regen acAllViewports

Отчего такое может быть?...

> masha
Сейчас как-то нет времени тщательно в этом
покопаться, но попробуй координаты транслировать
с использованием метода TranslateCoordinates
Жаль, что я не работаю с видовыми экранами
больше ничего подсказать не могу
:(

Дальнейшие мои изыскания рождают мысль, что проблемы из-за вьюпорта. В том примере, где он создаётся, там и полилиния рисуется нормально описанным выше способом. А где не создаётся - там вообще всё плохо: ни вьюпорта, ни полилинии... С чем такое безобразие может быть связано? На самом деле, прога нужна работы с файла типа того, где всё плохо, поэтому победить сей глюк просто необходимо. Помогите, кто может, буду очень благодарна!

А можно поподробнее?  Мне не понятно, почему в одном файле рисуется, куда надо, а в другом нет? Код-то одинаковый... Если PaperSpace-ов 2, то как угадать, с каким из них мы имеем дело? И как называется второй? Если просто написать PaperSpace0 вместо PaperSpace, то ругается, что member or data member not found.

Всё это мне тоже пригодится, потому что Layout-oв у меня будет много в дальнейшем, но сейчас хочется хотя бы один как следует сделать. Пока не догоняю, как это связано с вьюпортом, который не создаётся... Типа, не в том layout-e создаю? попробую пока похимичить с layout-ами, вдруг чего получится...

Перед всем описанным я делаю так:

ThisDrawing.ActiveLayout = ActiveDocument.Layouts.Item(layout_name)

Мне наивно казалось, что после этого заклинания я работаю с нужным layout-ом...

Если написать

Set newViewport = ThisDrawing.Layouts.Item(layout_name).AddPViewport(pt_center, width, height)

, то никакой вьюпорт не рисуется и ничего из него не видно. В "удачном" примере рисуется только та несчастная полилиния... В неудачном - ничего не рисуется. :(

Вот наспех собранная по кусочкам из хелпа программка:

Sub pline()
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 9) As Double
    Dim center(0 To 2) As Double
    center(0) = 3: center(1) = 3: center(2) = 0
    points(0) = 1: points(1) = 1
    points(2) = 1: points(3) = 2
    points(4) = 2: points(5) = 2
    points(6) = 3: points(7) = 2
    points(8) = 4: points(9) = 4
    ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Item("layout2")
    Set newViewport = ThisDrawing.PaperSpace.AddPViewport(center, 300, 400)
    Set plineObj = ThisDrawing.PaperSpace.AddLightWeightPolyline(points)
End Sub

Вроде работает..

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

Set newViewport = ThisDrawing.PaperSpace.AddPViewport(pt_center, width, height)

При этом он создаётся (и с правильными параметрами), если верить Debuger-у, но на экране ничего не появляется - ни самого VP, ни того, что должно быть из него видно. Может, кто знает, почему такие неприятности случаются?... По идее, это уже оффтоп, но понять очень хочется.

Да, вам смешно... А мне каково?! Ну, ладно... A вот за ZoomAll спасибо, он действительно рулит - теперь всё видно! Но с таким косяком: беленький прямоугольничек Layout-a очень маленький, а вьюпорт и всё, что в него видно - огромный, по сравнению с ним, и находится за его пределами (поэтому и не видно ничего на листе). Лист Layout-а имеет размеры 11,5 x 8, а вовсе не 297х210. Получается, что надо задать размеры листа Layout-a. Ну, теперь самый дурацкий мой вопрос: как это сделать? В списке подсказок ничего адекватного не вывалилось...
И ещё. Для меня так и остаётся загадкой, почему в "удачном" файле лист сразу имеет нужные размеры - 297х210 (А4), а тут - нет.

Точно, подогнать под А4 можно так:

ActiveDocument.Layouts.Item(layout_name).PaperUnits = acMillimeters

А так оно, видимо, в дюймах было... Однако, всё равно не понятно, что делать с другими форматами: А3, А2 и т.д. Вьюпорт и его содержимое у меня нормально масштабируются (в программе), а размер листа такой и остаётся, как для А4...