[PiP]

Есть ли возможность делать ПРОГРАММНО и имено на VBA видовые экраны в пространстве листа (PViewPort) произвольной формы? Прямоугольной формы - это просто: команда ThisDrawing.PaperSpace.AddPViewport(center,...) и т.д. Как это сделать "руками" в AutoCADe - вроде знаю: создать замкнутый контур, _-VPORTS, Objects - и выбрать этот нарисованный контур. А в VBA - ничего, кроме AddPViewport, никак не найду...
Видел подобные вопросы (без ответа!? ) на конференции сайта AutoCAD.ru , ни уже ли - облом?

[PiP]

???
Ладно, попробую высказать дохлый вариант пути решения:

Sub Polyline_PViewPort()
' -------- Настроимся на нужный Layout ---------------------
ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Item("Layout1")
' этот Layout должен существовать, естественно...

' -- Строим в пространстве листа полилинию той самой "произвольной
' формы" -----------------
Dim plineObj As AcadLWPolyline
Dim points(0 To 13) As Double
' Вершины двумерной полилини
points(0) = 25: points(1) = 10
points(2) = 25: points(3) = 200
points(4) = 287: points(5) = 200
points(6) = 287: points(7) = 65
points(8) = 102: points(9) = 65
points(10) = 102: points(11) = 10
points(12) = 25: points(13) = 10

' Создаем полилинию в пространстве листа
Set plineObj = ThisDrawing.PaperSpace.AddLightWeightPolyline(points)
plineObj.Closed = True
plineObj.color = acRed ' Ну пусть будет красненьким...

' -------- А теперь - надо бы назначить эту полилинию PViewPort ----
ThisDrawing.SendCommand "-VPORTS Object "
' ??? & plineObj.ObjectName & " " - вот тут я и запутался...


' Можно ли как-нибудь полностью автоматизировать сеё "назначение"?


End Sub

[PiP]

Надо же - получилось!

ThisDrawing.SendCommand "-VPORTS Object 25,10"