[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 (красная пунктирная линия).


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

[===AAA===]

Фиг знает... Я пока остановился на командном методе, т.е.:

(command "-plot" "_y" ... детальная настройка ... "_y" "_n")

иначе что-нибудь, да подглючивает :-(

Что пока не смог победить, так это программно "отцентровать" область
вывода (чтобы серединка пиктограммы со стрелочками на твоей картинке
стала голубой).

Просто опции "Центр" в команде Печати в NC23.1 нет (в NC24, говорят,
уже появилась).

Приходится высчитывать и задавать смещение. Зрительно "всё по центру",
но квадратик всё равно остаётся серым.

[doctorraz]

На Хабре на тему печати есть хороший цикл статей.
Там для . NET, но пугаться не надо, печать и настройки реализованы через ActiveX, т.е. на Лиспе то же реально
Эти же статьи есть в справке нанокад SDK
Если вкратце, то область печати в нано может задаваться в двух местах апи, центрирование тоже.
Если задавать там и там, то для печати CustomPlotSetting имеет приоритет.
Печатать будет с его настройками
Т. Е. если хотим как в Автокад CustomPlotSetting надо очищать, clear
В CustomPlotSetting может быть задано НЕСКОЛЬКО областей печати

[===AAA===]

Эти же статьи есть в справке нанокад SDK ... ... центрирование тоже.

А можно с этого места чуть подробнее?
Очень нужно задать центровку чертежа при печати.
Через LISP.

Что-то CUSTOMPLOTSETTINGS не получается.
Ни -GET-, ни тем более -PUT- ...

Какой там хоть синтаксис-то?

Или для центровки просто (vla-put-CenterPlot ...) достаточно будет?

[doctorraz]

Сообщение от ===AAA=== Какой там хоть синтаксис-то?

в лисп не умею
адаптируй
https://habr.com/ru/companies/nanosoft/articles/579360/

[===AAA===]

Для начала надо бы описание функций

(VLA-GET-CUSTOMPLOTSETTINGS) и
(VLA-PUT-CUSTOMPLOTSETTINGS) найти...

В доках SDK LISP nanoCAD 23.1 я только
упоминание о них обнаружил.

Если есть у кого - подкиньте, плиз.

[Сергей812]

Сообщение от ===AAA=== Для начала надо бы описание функций (VLA-GET-CUSTOMPLOTSETTINGS) и (VLA-PUT-CUSTOMPLOTSETTINGS) найти... В доках SDK LISP nanoCAD 23.1 я только упоминание о них обнаружил.

так может их еще не реализовали?

[doctorraz]

Чет я думал что ActiveX через лисп тот жэж функционал, что и через vba.. заблуждался от неведения?
Ну и писать лисп с нуля для нано это надо быть Гуру лиспа, без отладчика ..
Имха vbs для этой задачи попроще, и отладчик есть.
Выгоды в производительности от лисп не будет.
Даже net не будет значительно быстрее именно на печати

[===AAA===]

так может их еще не реализовали?

Ну, функции-то как таковые есть, по крайней мере при
их вызове НК не ругается на их отсутствие.

Но какой параметр вызова для той же
(VLA-GET-CUSTOMPLOTSETTINGS)
нужно подсовывать, чтобы она не возвращала ошибку -
пока не понятно...

[name02]

Я бы попробовал как с статье на хабре - activelayout

[Сергей812]

Сообщение от doctorraz Чет я думал что ActiveX через лисп тот жэж функционал, что и через vba.. заблуждался от неведения?

в акаде - да. Они вроде вообще одновременно в нем появились - vla* функции и VBA. А нано, насколько понимаю, использует стороннюю библиотеку ODA для работы с закрытым форматом *.dwg, а реализация интерпретатора лиспа у них своя - и что и как у них реализовано, насколько полно или где-то "заглушки" функций еще стоят...

[name02]

Ну что-же, благодаря doctorraz (спасибо за ссылку на пост на хабре) и ===AAA=== (спасибо за пост про VLA-SET_CUSTOM...) я поковырявшись и проанализровав решил-таки проблему с программной установкой областей печати в nanocad (заранее установить в настройках принтер и область печати рамкой) :

Код:

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

 (defun c:test( / ad al pl custom_pl pl_areas pl_a)
;;заглавными буквами написал нанокадовские методы для работы с областями печати

	(vl-load-com)

	;;активный документ
	(setq ad (vla-get-activedocument (vlax-get-acad-object) ))
  
	;;активный лист документа
	(setq al (vla-get-activelayout ad))

	;;свойства PLOT документа
	(setq pl (VLA-GET-PLOT ad))
  
	;;кастомные настройки печати листа 
	(setq custom_pl (VLA-GET-CUSTOMPLOTSETTINGS pl al))

	;;области печати кастомных настроек
	(setq pl_areas (VLA-GET-PLOTAREAS custom_pl))
	
	;;указываем точки новой области печати
	(setq pt1 (getpoint))
	(setq pt2 (getpoint))
	
	(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-CLEAR pl_areas)
  
	;;добавляем область печати в набор 
	(setq pl_a (VLA-ADD pl_areas pointTemp1 pointTemp2))
	
	;;обновляем кастомные настройки печати
	(VLA-PUT-CUSTOMPLOTSETTINGS pl al custom_pl)
	
	(princ)
)

[===AAA===]

А какой функцией можно получить текущий заданный размер
бумаги плоттера (который "A1" или какой-нибудь "ISO A4") ?

Типа:

(setq acdobj (vlax-get-acad-object))
(setq acddoc (vla-get-ActiveDocument acdobj))

(vla-get-Чего-Нибудь-Написать-Сюда (vla-get-ActiveLayout acddoc))

[doctorraz]

Сообщение от ===AAA=== Типа:

автомат листы

[name02]

Сообщение от doctorraz https://fordewind.org/wiki/doku.php?id=автомат_листы

Что-то непонятно куда ссылка ведет - куда смотреть?

[doctorraz]

Сообщение от name02 куда ссылка ведет

скопируй и вставь, чет по клику не туда(((

Код:

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

https://fordewind.org/wiki/doku.php?id=автомат_листы

[===AAA===]

А можно вот с этого места подробнее?

'настройки печати olayt.ConfigName = "PDFCreator" 'плоттер dim Retval, r Retval=ut.CreateSafeArrayFromVector(olayt.GetCanonicalMediaNames()) For Each r In Retval if (olayt.GetLocaleMediaName(r) = PaperSize) Then olayt.CanonicalMediaName = r 'выбираем формата листа Exit For End If Next

Получить список канонических имён форматов бумаги я могу.
Задать "нужный мне формат" - тоже.

Задача - узнать, а что же там было назначено изначально?

Добавлено №1

Эта информация ведь в чертеже где-то хранится...
Может быть - вообще системная переменная какая-нибудь?

Добавлено №2

Если глянуть на DXF, то можно увидеть секцию примерно
такого вида:

100 AcDbPlotSettings 1 2 HP Designjet T1300 HPGL2 4 A2_L

Здесь "A2_L", видимо, выбранное для чертежа каноническое имя
формата бумаги.

Осталось только до него добраться.

Добавлено №3

Видимо, как-так...

(setq ad (vla-get-activedocument (vlax-get-acad-object) ))
(setq al (vla-get-activelayout ad))
(setq pl (VLA-GET-PLOT ad))
(setq custom_pl (VLA-GET-CUSTOMPLOTSETTINGS pl al))

Далее смотрим дамп

(vlax-dump-object custom_pl t)

и видим:

; Значения свойств: ; Alignment = 36 ; ColorMode = -1 ; FileFolder = "" ; FileMask = "<DN>" ; IfFileExist = 0 ; InflateWidth = 0.0 ; Multipage = 0 ; PaperOutMargins = 0 ; Params = #<VLA-OBJECT IParams 0000021DAE940090> ; PlotAreas (RO) = #<VLA-OBJECT InanoCADPlotAreas 0000021DAE93F558> ; PlotToFile = 0 ; PrinterDPI = 300 ; RunPDFApp = -1 ; RunPDFAppEx = 1 ; UseDWGPath = -1 ; UsePrefinedNames = 0 ; Нет методов

А вот куда дальше "копать" - пока не понятно...

[name02]

Ты не пробовал автокадовские команды использовать? Может они в нанокаде тоже помогут.

Код:

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

 (defun c:test (/ ad al active_mn_canon active_mn_local)

  (vl-load-com)

  ;;Активный документ
  (setq ad (vla-get-activedocument (vlax-get-acad-object)))

  ;;Активный лист
  (setq al (vla-get-activelayout ad))

  ;;CanonicalMediaName формата установленного в листе al
  (setq active_mn_canon (vla-Get-CanonicalMediaName al))

  ;;LocaleMediaName формата с CanonicalMediaName active_mn_canon установленного в листе al
  (setq active_mn_local (vla-GetLocaleMediaName al active_mn_canon))

  (print (list active_mn_canon active_mn_local))

  (princ)

  ) ;_ end defun

[===AAA===]

Да, идут. Ровно то, что нужно. Спасибо!

[===AAA===]

Что выяснилось.

1. Для одного и того же драйвера (скажем, того же самого HP Designjet T1300 HPGL2)
Автокад и наноКАД имеют разную наборку пользовательских имён бумаги.
Какие-то из них могут совпадать (допустим "А1"), а какие-то (допустим "А1 (альбомная)")
в наборке НК будут отсутствовать.
2. Если мы откроем в НК файл, работу с которым мы закончили в АК с назначением
формата листа на отсутствующий в НК "А1 (альбомная)", то при печати НК заменит его на
какой-то из своих форматов. Возможно - не самый оптимальный. Но что-то он туда
назначит.

Пока всё логично. Но!

3. Если мы откроем такой файл в НК и попытаемся программно узнать, а что же НК назначил
вместо отсутствующего у него "А1 (альбомная)", то в active_mn_local (см. пост #18 выше)
будет пустота, т.е. "". А всё потому, что в active_mn_canon будет какая-то "левизна".

4. Попробуем сейчас зайти в окно печати и "зрительно" увидеть, что НК всё-таки назначил
какой-нибудь "DIN Oversize L1" и снова повторить код из пост #18.
Всё замечательно, active_mn_local = "DIN Oversize L1"

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

Имейте это в виду при адаптации своих программ для АС под НК.