[TheMaster]

Работаю в Autocad 2006 (так сложилось на работе). Все чертежи разрабатываются в пространстве модели, вместе со штампиками и прочими элементами. Пространство листа не используется. При распечатке каждый лист чертежа обводится рамкой и отправляется на печать. Распечатку можно упростить, если понасоздавать пространств листа для каждого листа чертежа и потом сделать публикацию в dwf (экспорт в pdf у нас ещё не изобрели :-( )
Это можно сделать вручную, если проект небольшой. Если он значительный по размеру, создавать десятки листов затруднительно, поэтому я решил заняться макросом на знакомом мне VBA. Пишу примерно следующее:

Код:

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

Public Sub ListAdder()

Set NewLayout = ThisDrawing.Layouts.Add("3.0")
NewLayout.CanonicalMediaName = "A3"
ThisDrawing.ActiveLayout = NewLayout

ThisDrawing.MSpace = True
Set NewPViewport = ThisDrawing.ActivePViewport
ThisDrawing.MSpace = False

NewPViewport.center = pt1   ' Центральная точка листа
NewPViewport.Width = 420    ' Размеры видового экрана точно соответствуют размерам листа
NewPViewport.Height = 297
NewPViewport.StandardScale = acVp1 ' масштаб 1:1
NewPViewport.Target = pt2     ' А здесь вид в видовом экране должен передвинуться на интересующий меня лист
                                      ' но - не передвигается почему-то...

ThisDrawing.Regen acAllViewports ' и это всё тоже не помогает...
NewPViewport.Update
End Sub

То есть, после строчки с pt2 вид в видовом экране действительно смещается, но совсем немного и вверх, а мне надо - очень далеко и влево. Где здесь может быть ошибка?

[hwd]

это смотрел?

[TheMaster]

Скачал, конечно же, и смотрел.
Да только там мой вопрос не показан. Потому что это про последнюю версию автокада, а у меня - от 2006 года. Посему приходится использовать этот самый target, вместо того, чтобы просто вид к видовому экрану пристегнуть. Autocad 2006 до такого ещё не дорос :-(

[hwd]

Сообщение от TheMaster Потому что это про последнюю версию автокада, а у меня - от 2006 года

Последний - AutoCAD 2013, а то, на что я дал ссылку - AutoCAD 2010. Т.е. ты реально попробовал те варианты ActiveX и они у тебя не пашут?

Сообщение от TheMaster Это которая встроенная справка?

А это сильно на неё похоже?

[TheMaster]

Я, собсно, свой кусок на основе этого примера и начал писать. Только вот в примере нету необходимости "двигать" пространство модели в видовом экране. Там эти экраны создаются, и всё. Какой кусок пространства модели туда попал, тот и будет. А мне нужен - конкретный. В моей скачанной версии справки ActiveX (похожей на пример по ссылке) были сведения о прицепляемом к видовому экрану виде. И, соответственно, этот прицепленый вид и можно настраивать на ту часть модели, которую тебе надо отобразить в видовом экране.
Проблема в том, что объектная модель установленного у меня Автокада ничего про прицепляемые виды не знает. Зато там есть свойство target, не описанное в справке ActiveX более поздних версий автокада. Деваться нечего, приходится использовать устаревший механизм. А он взял - и не заработал. Вот и пришлось обращаться за помощью.

[hwd]

не подскажу по 2006-му. Меня и по 2009-му то уже заворачивают с вопросами в ADN, а ты по 2006-му... Тяжко тебе будет.

[Александр Ривилис]

Очень вероятно, что точка pt2 у тебя неправильная. Судя по документации (не проверял) эта точка должна быть в МСК, а не в координатах листа.

[hwd]

Ты в какой системе координат точку pt2 инициализировал? Нужно задавать координаты в МСК.

[TheMaster]

Чертёж у меня представляет собой длинный такой рядочек стандартных листов формата А1, А2 и А3. Начало координат находится ближе к началу этого рядка (но не с самого начала). Определял как: даю команду "отрезок" и вбиваю первую точку - 0, 0, 0. Причём пользовательские системы координат в чертеже не создавались. Собсна, она там одна - мировая.
Дальше, точку pt я делал аналогично: давал команду "отрезок", тыкаю нужную мне точку, какую-нибудь вторую, а потом - в свойствах отрезка смотрю координаты его начала.
Так вот, я нашёл правильные координаты точки target видового экрана. Нужно было сделать прямоугольник, ограничивающий мой чертёж. Длинный такой прямоугольник. Затем провести в нём диагональ и взять у неё середину. Так сказать, геометрический центр прямоугольника, и геометрический центр чертежа. И вот если его сделать началом системы координат, и в эту систему пересчитать координаты нужной мне точки - то она и будет точкой с подходящими координатами.
Отсюда вопрос: можно ли как-нибудь автоматически получать координаты этого самого геометрического центра чертежа? Просто я хочу сделать запрос у пользователя, чтобы он ткнул пальцем, какую рамку надо показывать на очередном листе. И координаты этого "тыка" надо же пересчитывать, а как - непонятно...