[name02]

Адаптирую лисп для автокада для автоматической печати в нанокаде. Споткнулся на этапе программного задания области печати.
Вот такой лисп test.lsp:

Код:

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

 (defun c:test (/ pt1 pt2 *layout* pointTemp1 pointTemp2)
  (setq pt1 (getpoint))
  (setq pt2 (getpoint))

  (setq *layout* (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
	
  (setq pointTemp1 (vlax-make-safearray vlax-vbDouble '(0 . 1)))
  (vlax-safearray-put-element pointTemp1 0 (car pt1))
  (vlax-safearray-put-element pointTemp1 1 (cadr pt1))
    
  (setq pointTemp2 (vlax-make-safearray vlax-vbDouble '(0 . 1)))
  (vlax-safearray-put-element pointTemp2 0 (car pt2))
  (vlax-safearray-put-element pointTemp2 1 (cadr pt2))
    
  (vla-setwindowtoplot
			*layout*
 	   		pointTemp1
 	   		pointTemp2
   ) ;_ end of vla-setwindowtoplot
	
  (vla-put-PlotType *layout* acWindow)

)

Суть проблемы в следующем:
1 Задал область печати листа А4 через окно "Печать"
2 Запустил лисп. После отработки программы на дисплее область для печати (белый лист) перемещается куда надо, но если открыть окно печати, то область печати остается на ранее установленных координатах из шага 1 (красная пунктирная линия).


Вопрос: что делаю не так? Это недоработка лиспа под нанокад или есть какой-то другой способ задания области печати?

[doctorraz]

Сообщение от ===AAA=== Вывод: пока НК не получит "волшебного пенделя", правду он не скажет.

но нана умеет SetClosestMediaName
поэтому нет проблем подсунуть в плотсетинг размер печатаемой области , единицы чертежа и нана сам подберет нужный формат
но это на .NET, не уверен, что на лиспе так получится
для автокад можно даже не пытаться, там на месте этого класса стоит заглушка (давно)))
------------
PS для чего узнавать какой принтер и бумага назначены? если чертеж пришел с другой машины или из другой программы, то эта информация не имеет никакого смысла. можно еще и эксепшен словить

[name02]

Может попробовать сделать:
(vla-refreshplotdeviceinfo *layout*)

Все-таки принтеры в системе вещь малоизменяемая, поэтому я для своей программы (для Автокада) реализовал следующий алгоритм:

1. По размеру блока (с учетом масштаба конечно) определяется формат бумаги под него
2. В файле настроек печати указан формат, принтер и название бумаги для печати, цветовой профиль и т.п.

У себя я это обозвал "профиль печати":


Соответственно можно настроить и переключаться на нужный профиль печати в зависимости от задачи и ситуации

[===AAA===]

для чего узнавать какой принтер и бумага назначены?

Тут дело такое. У нас есть отдел централизованной печати
и - главное - архивного хранения файлов.

Поэтому к передаваемым файлам предъявляются некие
требования.

Соответственно, автоматизировав процесс подготовки файлов,
можно сэкономить кучу времени и нервов. Но сразу назначать
параметры будет некорректно - нужно сперва посмотреть, а что
же назначил пользователь. Проанализировать. И если там всё
более или менее адекватно, то не умничать и ничего не менять.
Или почти ничего.

А если поменял - то аккуратно вывести это в Протокол, чтобы
пользователь знал, "что было и что стало".

----- добавлено через ~29 мин. -----

Может попробовать сделать: (vla-refreshplotdeviceinfo *layout*)

Не, не помогает.

Но выход есть - в виде формальной

(command "_plot" ... "_y" "_n")

т.е. "печать без печати - и в никуда".

Может быть, и другой "волшебный пендель" поискать можно...
Я пока на этом остановился.

[doctorraz]

Дык может проще будет ..
Все проектанты выводят в пдф, а отдел печати уже дальше думает в бумагу это. Или как
Из пдф по принтерам разным раскидать бестселлер РеверсPDF, просто пушка, жаль что продажи прекращены, но при желании можно изыскать возможность.
Так то чтобы обученные люди печатали чужие dwg, должна быть очень жесткая стандартизация.. Ну и автодеск давно подшивки придумала, но всегда есть шанс, что у печатника принтер называется чуть иначе чем у проектанта и карета превратится в тыкву... Поэтому и востребованы Реверс, PlotSPDS, когда можно распечатать любой чертеж со своими настройками ничего не настраивая))

[name02]

Сообщение от doctorraz Дык может проще будет ..

Видимо перед отделом печати стоит еще задача указывать на ошибки при формировании документации.

Я не большой специалист по внутреннему устройству работы автокада и тем более нанокада (может знающие люди поправят), но мне кажется, что инициация команды печать запускает проверку принтеров и установленных параметров печати с последующим их обновлением.
То есть до команды "печать" все находится в исходном состоянии - имя принтера и имя страницы, стили печати и т.п. будут иметь значения, установленные до того.

Может попробовать взять информацию об имени принтера, имени бумаги и ее размере из словаря листа (layouta)? Вот такой пример для Автокада. Но может нанокад в своих словарях хранит данные по печати?

Код:

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

 (defun c:test (/ psn )
  (setq
    psn	(member	'(100 . "AcDbPlotSettings")
		(dictsearch
		  (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_LAYOUT")))
		  (getvar "ctab")
		)
	)
  )

  (princ (strcat "Plotter name: " (cdr (assoc 2 psn))))
  (princ (strcat "\nPaper size: " (cdr (assoc 4 psn))))

  (princ)
)

По моему разумению, если мы не запускаем процедур печати, а читаем запись из словаря, то мы не "провоцируем" автокад (или нанокад) попытаться установить эти принтера и настройки печати, и соответственно можем получить исходные данные настроек печати.

DXF-коды настроек печати (197 pdf-страница) https://autolisp.ru/wp-content/uploa...om=100,150,150

[baksconstructor]

Сообщение от name02 Но может нанокад в своих словарях хранит данные по печати?

Может быть попробовать Реверс ? Там можно сохранять и список файлов и уникальные настройки.