[DANZZ]

Подскажите

Есть шаблон "Шаблон.dwg" где то на компе, допустим C:\Program Files\AutoCAD 2006\Шаблоны, в этом файле зашиты наборы для печати в пространстве листа, Например Печать А3, Печать А4 и т.д.

Вопрос, как вытащить из этого файла эти наборы при запуске приложения из другово файла и зашить в файл из которого было запущено приложение? Желательно с помощью лиспа

[Makswell]

Если без лиспа, то _.PAGESETUP и в диалоговом окне выбираешь "Импорт". И далее импортируешь наборы из своего шаблона.

ЗЫ Автокад 2008

[DANZZ]

надо именно лиспом, как ручками сделать это понятно

[Makswell]

Если лиспом, то это весьма непросто.

Я бы делал так. Написал бы 2 программы.
1-я запускается в файле шаблона и считывает свойства объектов семейтва PlotConfigurations, например, в глобальный список.
2-я программа запускается в нужном файле и создаёт наборы печати (наверно что-то типа (vla-add (vla-get-PlotConfigurations... ) и попутно заполняет их свойства, беря их из глобального списка.

Наверно как-то так. Хотя не факт, что это правильно.

[Залётный]

Сообщение от DANZZ Подскажите Есть шаблон "Шаблон.dwg" где то на компе, допустим C:\Program Files\AutoCAD 2006\Шаблоны, в этом файле зашиты наборы для печати в пространстве листа, Например Печать А3, Печать А4 и т.д. Вопрос, как вытащить из этого файла эти наборы при запуске приложения из другово файла и зашить в файл из которого было запущено приложение? Желательно с помощью лиспа

(command "PSETUPIN" "Шаблон.DWG" "*")

Правда я удаляю перед этим все старые при помоши этого:

;to delete multiple page setup names
;Save the following to a file DAPS.LSP
;in a searchable path for AutoCAD
;and then APPLOAD it in
;or include it in your ACAD2000DOC.LSP
;
(defun c:daps ()
(vl-load-com)
(vlax-for ps (vla-get-plotconfigurations
(vla-get-activedocument
(vlax-get-acad-object)))
(vla-delete ps)
)
)

Взято отсюда:
Delete plot page setup

[DANZZ]

Спасибо, похоже на то что надо, попробую этим воспользоватся

Я удаляю этим, не помню где взял, где то здесь

(defun delete_page_setups ()
(vlax-map-collection
(vla-get-PlotConfigurations
(vla-get-activedocument (vlax-get-acad-object))
)
'vla-delete
)
(princ)
)

[DANZZ]

Возник еще один вопрос, при присваивании листу конкретного набора печати

Код:

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

(setq plotcfg (vla-item (vla-get-plotconfigurations active_document) Nabor))
    	(vla-copyfrom (vla-item (vla-get-layouts active_document) name_layout) plotcfg)

, получается следующее:
захожу в лист и вижу что сам чертеж расположен в видовом экране, а "белое" поле гдето в другом месте
как сделать чтоб видовой экран был на этом "белом" поле
Приведен пример как есть и как надо
Решается вопрос ручками, заходим в Диспетчер параметров листов, встаем на нужный набор для печати и жмем 2 раза кнопку установить
А как сделать это программно ????

[Makswell]

Может так?

Код:

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

   (vla-RefreshPlotDeviceInfo
      (vla-item (vla-get-layouts active_document) name_layout)
    )

[DANZZ]

Сообщение от Makswell Может так?

ага, так только почему то формат А3 книжный запихивает в альбомный, хотя без

Код:

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

(vla-RefreshPlotDeviceInfo
      		(vla-item (vla-get-layouts active_document) name_layout)
    	)

формат и расположение определяются правильно

[DANZZ]

ошибочка вышла, косяк с форматами это мой косяк