dwg.ru forum rss xml
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Изменение настроек принтера в листе(листах)

LISP. Изменение настроек принтера в листе(листах)

Версия для печати
 
Ответ
Опции темы Поиск в этой теме
Непрочитано 21.01.2008, 12:19 2 |
LISP. Изменение настроек принтера в листе(листах)
VVA
 
Инженер LISP
 
Минск
Регистрация: 11.05.2005
Сообщений: 6,699
Отправить сообщение для VVA с помощью ICQ Отправить сообщение для VVA с помощью Skype™

VVA вне форума Вставить имя

Команда опубликована whdjr здесь. Внес некоторые улучшения.
Команда устанавливает всем листам сохраненные ранее настройки параметра листа (Разъяснения читать в посте #2).
В архиве lsp и dcl и vlx файл. Для работы рекомендуется загружать pagesetups.vlx (lisp и dcl в одном флаконе). Название команды
Команды
Change_page_setups или CPS - изменяет параметры листа по всем листам
CPSSL - изменяет параметры листа выбранных листов
DPS - удаляет выбранные параметры
DAPS - удаляет все параметры
MyPS - управляющая команда
CPStyle - изменяет стиль печати выбранных листов

Варианты:
CPSSL от VVA
CPSSL от Sleekka
Версия PageSetups to Tabs от CAB'a




Вложения
Тип файла: lsp page_setup20171205.LSP (14.2 Кб, 122 просмотров)

__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 06.12.2017 в 23:02. Причина: Добавил CPStyle
Просмотров: 38144
 
Автор темы   Непрочитано 26.02.2009, 18:16
#21
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,699
Отправить сообщение для VVA с помощью ICQ Отправить сообщение для VVA с помощью Skype™


Изменил #19
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 26.02.2009, 19:51
#22
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,005


исправлено
__________________
инженер проектировшик с опттом программа авто гад образование высшие

Последний раз редактировалось dextron3, 28.02.2009 в 15:06.
dextron3 вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 27.02.2009, 09:55
#23
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,699
Отправить сообщение для VVA с помощью ICQ Отправить сообщение для VVA с помощью Skype™


Обновил #19
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 27.02.2009, 15:15
#24
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,005


А можно еще сделать чтобы показывало эти галочки, название принтера и монохром или нет...
Миниатюры
Нажмите на изображение для увеличения
Название: Snap1.jpg
Просмотров: 407
Размер:	172.0 Кб
ID:	16656  
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 28.02.2009, 14:11
#25
Sleekka

главный энженегр
 
Регистрация: 24.07.2005
Москва
Сообщений: 1,455


А ты создай шаблоны в которых у тебя будет в имени написано, монохром или нет и имя принтера. А функция которую ты просишь ИМХО не нужна, VVA - спасибо.
Sleekka вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 28.02.2009, 15:05
#26
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,005


Sleekka, я хочу видеть уже в созданных шаблонах, чтобы не проверять их
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 01.03.2009, 12:15
1 | #27
Sleekka

главный энженегр
 
Регистрация: 24.07.2005
Москва
Сообщений: 1,455


Чего-то у меня не работает - то что в 19-м =)
Почему пока не знаю.
Итакс: ИМХО код который в 19 посте неправилен с моей колокольни, потому что, как мне кажется нарушает логику автоматизации. Придумали шаблоны печати, когда ты его применяешь ты поидее должен отдавать себе отчет какой формат листа и т.д.ит.п. ты присваиваешь листу, и поидее главным является имя шаблона, а тут с подачи пользователей код обращается к имени принтера и т.д. ит.п. у мене все ето не работает патамушта принтеры сетевые и переодически выключены и их нетума, а имя шаблона понятие - идеализированное его присвоил и усе вне зависимости подключены такие принтеры к компу есть ли вналичие теже pc3 или нету, поэтому выкладываю свой вариант, он отображает СПИСОК ЛИСТОВ И ВСКОБОЧКАХ ИМЯ СТИЛЯ ПЕЧАТИ как в стандартном ДИСПЕТЧЕРЕ СТИЛЕЙ ПЕЧАТИ.
Кто понимает о чем я - милости прошу:
Используется библиотечная функция из: http://forum.dwg.ru/showthread.php?t=15661

Код:
[Выделить все]
;posted whdjr
;http://www.theswamp.org/index.php?topic=12439.msg153420#msg153420
(defun c:change_page_setups (/		adoc	     page_setups
			     dcl_id	userclick   selection
			     plotcfg
			    )
;;;
 (defun	get_page_setup (doc func / lst)
  (vlax-map-collection
   (vla-get-plotconfigurations doc)
   '(lambda (x) (setq lst (cons ((eval func) x) lst)))
  )
  (reverse lst)
 )
;;;
 (defun	getSelectedItems (tilename AllItemsList / indexes)
  (if (setq indexes (get_tile tilename))
   (setq indexes (read (strcat "(" indexes ")"))
	indexes (mapcar '(lambda (n) (nth n AllItemsList))
			indexes
		)
   )
  )
  indexes
 )
;;;
 (vl-load-com)
 (defun	on_list_pick ()
  (if (= (get_tile "page_setup_names") "")
   (mode_tile "select" 1)
   (mode_tile "select" 0)
  )
 )
 (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
 (and
  (setq page_setups (get_page_setup adoc '(lambda(x)(if (eq (vla-get-modeltype x) :vlax-false)(vla-get-name x) nil)))) ;;;_Change VVA
  (setq page_setups (vl-remove-if 'null page_setups))                                                                  ;;;_Add VVA
  (setq dcl_id (load_dialog "page_setup.dcl"))
  (new_dialog "page_setup" dcl_id)
  (start_list "page_setup_names")
  (mapcar 'add_list page_setups)
  (not (end_list))
  (action_tile "cancel" "(done_dialog 0)")
  (action_tile
   "select"
   (strcat
    "(setq selection (getSelectedItems \"page_setup_names\" page_setups))"
    "(done_dialog 1)"
   )
  )
  (action_tile "page_setup_names" "(on_list_pick)")
  (not (mode_tile "select" 1))
  (setq userclick (start_dialog))
 )
 (if dcl_id
  (unload_dialog dcl_id)
 )
 (if (and userclick selection)
  (and
   (setq plotcfg (vla-item (vla-get-plotconfigurations adoc)
			   (car selection)
		)
   )
   (vlax-map-collection
    (vla-get-layouts adoc)
    '(lambda (x)
      (if (eq (vla-get-modeltype x) :vlax-false)
       (vla-copyfrom x plotcfg)
      )
     )
   )
  )
 )
 (princ)
)
;;;posted whdjr
;;;http://www.theswamp.org/index.php?topic=12439.msg153420#msg153420
;;;Modifyed VVA 21.01.2008 http://dwg.ru/f/showthread.php?t=16792
;;Change Page Setups on Select Layout (CPSSL)
(defun c:CPSSL (/                  adoc
                page_setups        dcl_id
                userclick          selection
                plotcfg            loc:get_page_setup
                loc:getSelectedItems
                loc:dwgru-get-user-dcl
               )
;;;
  (defun loc:get_page_setup (doc func / lst)
    (vlax-map-collection
      (vla-get-plotconfigurations doc)
      '(lambda (x) (setq lst (cons ((eval func) x) lst)))
    ) ;_ end of vlax-map-collection
    (reverse lst)
  ) ;_ end of defun
;;;
  (defun loc:getSelectedItems (tilename AllItemsList / indexes)
    (if (setq indexes (get_tile tilename))
      (setq indexes (read (strcat "(" indexes ")"))
            indexes (mapcar '(lambda (n) (nth n AllItemsList))
                            indexes
                    ) ;_ end of mapcar
      ) ;_ end of setq
    ) ;_ end of if
    indexes
  ) ;_ end of defun
;;;
;;; ************************************************************************
;;; * Библиотека DWGruLispLib Copyright ©2008  DWGru Programmers Group
;;; *
;;; * loc:dwgru-get-user-dcl (Кандидат)
;;; *
;;; * Запрос значения у пользователя через диалоговое окно
;;; *
;;; *
;;; * 21/01/2008 Версия 0001. Редакция Владимир Азарко (VVA)
;;; ************************************************************************


  (defun loc:dwgru-get-user-dcl
         (zagl info-list multi / fl ret dcl_id msg layouts)
         ;|
* Запрос значения у пользователя через диалоговое окно
* Диалог формируется "налету"
* Параметры вызова:
    zagl - заголовок окна [String]
    info-list - список строковых значений[List of String]
    multi - t - разрешен множественный выбор, nil- нет
    
* Возвращает:
 Список выбранных строк или nil - отмена
* Пример
 (loc:dwgru-get-user-dcl "Укажите вариант" '("Первый" "Второй" "Третий") nil) ->("Первый") 
 (loc:dwgru-get-user-dcl "Укажите вариант" '("Первый" "Второй" "Третий") t) ->("Первый" "Второй") 
|;
    (if (null zagl)
      (setq zagl "Выбор")
    ) ;_ end if
    (setq fl (vl-filename-mktemp "dwgru" nil ".dcl"))
    (setq ret (open fl "w"))
    (mapcar
      '(lambda (x) (write-line x ret))
      (list "dwgru_msg : dialog { "
            (strcat "label=\"" zagl "\";")
            " :list_box {"
            "alignment=top ;"
            (if multi
              "multiple_select = true ;"
              "multiple_select = false ;"
            ) ;_ end of if
            "width=31 ;"
            (if (> (length info-list) 26)
              "height= 26 ;"
              (strcat "height= " (itoa (+ 3 (length info-list))) ";")
            ) ;_ end of if
            "is_tab_stop = false ;"
            "key = \"info\";}"
            "ok_cancel;}"
      ) ;_ end of list
    ) ;_ end of mapcar
    (setq ret (close ret))
    (if (and (null (minusp (setq dcl_id (load_dialog fl))))
             (new_dialog "dwgru_msg" dcl_id)
        ) ;_ end and
      (progn (start_list "info")
             (mapcar 'add_list info-list)
             (end_list)
             (set_tile "info" "0")
             (setq ret "0")
             (action_tile "info" "(setq ret $value)")
             (action_tile "cancel" "(done_dialog 0)")
             (action_tile "accept" " (done_dialog 1)")
             (if (zerop (start_dialog))
               (setq ret nil)
               (setq
                 ret (mapcar (function (lambda (num) (nth num info-list)))
                             (read (strcat "(" ret ")"))
                     ) ;_ end mapcar
               ) ;_ end setq
             ) ;_ end if
             (unload_dialog dcl_id)
      ) ;_ end of progn
    ) ;_ end of if
    (vl-file-delete fl)
    ret
  ) ;_ end of defun

   ;_ end of defun

;;;
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (setq page_setups
         (loc:get_page_setup
           adoc
           '(lambda (x)
              (if (eq (vla-get-modeltype x) :vlax-false)
                (vla-get-name x)
                nil
              ) ;_ end of if
            ) ;_ end of lambda
         ) ;_ end of loc:get_page_setup
  ) ;_ end of setq
;;;_Change VVA
  (setq page_setups (vl-remove-if 'null page_setups))
;;;_Add VVA
  (if (and page_setups
           (setq selection (loc:dwgru-get-user-dcl
                             "Select Page Setups"
                             page_setups
                             nil
                           ) ;_ end of loc:dwgru-get-user-dcl
           ) ;_ end of setq
           (setq
      layouts (loc:dwgru-get-user-dcl
         "Select Layouts with Shift or Ctrl"
         (acad_strlsort
    (mapcar
      '(lambda (y / x)
         (setq x (vla-item (vla-get-Layouts adoc) y))
         (strcat
    y
    (if (= (cdr (assoc 1 (entget (vlax-vla-object->ename x)))) "")
      "/___/(Нет)"
      (strcat "/___/("
       (cdr (assoc 1 (entget (vlax-vla-object->ename x))))
       
         ")"
      )
    )
 
         )
       )
      (LAYOUTLIST)
    )
         )
         t
       ) ;_ end of loc:dwgru-get-user-dcl
    ) ;_ end of setq

	   (setq layouts
    (mapcar '(lambda(x)
	       (car (dwgru-string-to-list x "/___/"))
	     
        )
     layouts
     )
   )
	   
           (setq plotcfg (vla-item (vla-get-plotconfigurations adoc)
                                   (car selection)
                         ) ;_ end of vla-item
           ) ;_ end of setq
      ) ;_ end of and
    (vlax-map-collection
      (vla-get-layouts adoc)
      '(lambda (x)
         (if (and (eq (vla-get-modeltype x) :vlax-false)
                  (member (vla-get-name x) layouts)
             ) ;_ end of and
           (vla-copyfrom x plotcfg)
         ) ;_ end of if
       ) ;_ end of lambda
    ) ;_ end of vlax-map-collection
  ) ;_ end of if
  (princ)
) ;_ end of defun
(princ "\nType Change_page_setups or CPSSL in command line")

Последний раз редактировалось Sleekka, 01.03.2009 в 13:27.
Sleekka вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 02.03.2009, 11:30
1 | #28
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,699
Отправить сообщение для VVA с помощью ICQ Отправить сообщение для VVA с помощью Skype™


>Slekka Полность согласен.
Изменил #19. Теперь при невозможности получить формат листа должен отображаться знак ?.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 17.03.2011, 07:24
#29
rain_day


 
Регистрация: 02.10.2008
Сообщений: 193


Очень полезная штука, спасибо вам! Но если вдруг кто возмется модифицировать, имею пожелание. Было бы удобнее сделать эти все операции в табличном виде: Имеется список листов (строки), имеются наборы параметров (столбцы) и в них ставить галки напротив листов. Так будет всё перед глазами - и параметры и листы.
На подобии как в публикации, только там ковырять нужно каждый лист, нет пакетной работы с листами, эти списки всплывающие...в общем, неудобно там
rain_day вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 17.03.2011, 11:14
#30
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,699
Отправить сообщение для VVA с помощью ICQ Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от rain_day Посмотреть сообщение
Имеется список листов (строки), имеются наборы параметров (столбцы) и в них ставить галки напротив листов.
Язык диалоговых окон (dcl) в плане графики остался на уровне ~ 1990 г. Поэтому такое в нем не реализовать (:
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 12.05.2011, 10:19
#31
Агент СмиТ

Gti
 
Регистрация: 14.01.2010
МО Железнодорожный
Сообщений: 121


>VVA спасибо за CPSSL, думаю пользовать её на этапе подготовки к публикации, когда становится ясно на каком из принтеров в офисе целесообразней выводить на печать (соответственно определяются и допустимые размеры полей) Однако возникает проблема удаления ранее сохраненных наборов параметров листов!

Обясните пожалуйста, а то же второй день рыскаю по форуму в поисках ответа, но кажется этот банальный вопрос не освещен, посему прошу сильно не ругать, если что!
Агент СмиТ вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 12.05.2011, 15:38
#32
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,699
Отправить сообщение для VVA с помощью ICQ Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Агент СмиТ Посмотреть сообщение
но кажется этот банальный вопрос не освещен
Это только кажется
Как избавиться от не нужных page setup?
Собрал все команды в одну кучу и обновил код в #1
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 12.05.2011, 17:57
#33
Агент СмиТ

Gti
 
Регистрация: 14.01.2010
МО Железнодорожный
Сообщений: 121


>VVA Спасибо за подсказку, по таким ключевым словам я сам очень долго искал бы! Протестил лисп всё работает, и хотя CPSSL и DPS думается буду часто использовать по сравнению с достаточно кардинальными DAPS и CPS, не хотелось бы вывешивать все 4 кнопки на панель, может дойдут у вас руки сделать диалог наподобие легендарного COORN?
Агент СмиТ вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 12.05.2011, 19:03
#34
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,699
Отправить сообщение для VVA с помощью ICQ Отправить сообщение для VVA с помощью Skype™


Обновил #1
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 13.05.2011, 10:16
#35
Агент СмиТ

Gti
 
Регистрация: 14.01.2010
МО Железнодорожный
Сообщений: 121


Спасибо ещё раз VVA, всё работает как надо!
Агент СмиТ вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 16.07.2011, 10:43
#36
5hev

roads
 
Регистрация: 22.12.2010
msk
Сообщений: 121
Отправить сообщение для 5hev с помощью ICQ Отправить сообщение для 5hev с помощью Skype™


Прошу прощения за такие поздние вопросы, но все же спрошу, ибо не догнал не запуская.
- сабж позволяет печатать заданные листы или просто меняет page setup?
- подразумевается что при смене ps пользователь будет работать с тем выделением на листе, которое уже было задано?
- насколько понимаю, если на листе акада несколько форматок в разных так сказать местах, то придется после смены ps выделять и печатать каждую?

Если кто ответит, буду благодарен =)
5hev вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 16.07.2011, 11:45
#37
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 791
Отправить сообщение для perpetule с помощью ICQ Отправить сообщение для perpetule с помощью Skype™


Цитата:
CPSSL - изменяет параметры листа выбранных листов
Пользовался предыдущей версией.
Заменяет набор параметров листа - например к листу 3,4 применен набор параметров листа "а"
Лисп позволяет заменить набор параметров "а" на "б".
Результат - к листу 3,4 применен набор параметров листа "б"
Перебирать все листы нет необходимости, если к ним уже был применен какой либо набор параметров листа, в случае если был жестко назначен принтер, поищите по форуму ключевое слово - набор параметров листа.

У меня таковые созданы к виртуальному PDF, имя НПЛ /ps/ задано таким образом, что содержит по порядку - имя принтера/кратко/ - ориентация П/А (портрет/альбом) - формат А...x... - формат мм...xмм.... Весь процесс подготовки к пакетной распечатке сводится к применению НПЛ /выпадающий список/, редактированию размеров видового экрана, вписывания (этот волшебный лисп дает возможность менять НПЛ один на другой не открывая каждый лист по отдельности, ну приспичило например поменять что-то в НПЛ скажем А4x5), основная надпись и рамка болтаются в модели, т.к. в лист заходить лишний раз нет желания, тормознуто все до безобразия, я там бываю один раз - при вписывании готового листа модели, т.е. во вкладке листа только ВЭ, изредка вставляю основную надпись и рамку поверх листа когда в модели лист не 1к1, при моей специализации 3-4 листа из 50.

В твердую копию - через промежуточную публикацию в dwf (там есть возможность сортировки по формату, т.е. выделяешь диапазон скажем А3 и посылаешь на соответствующий принтер гуртом все А3)


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

P/s/ для еще больших возможностей есть подшивки.

Последний раз редактировалось perpetule, 16.07.2011 в 12:26.
perpetule вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 19.07.2011, 17:44
#38
Агент СмиТ

Gti
 
Регистрация: 14.01.2010
МО Железнодорожный
Сообщений: 121


Немного по CPSSL: http://forum.dwg.ru/showpost.php?p=781705&postcount=442
Агент СмиТ вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 21.07.2011, 01:24 Агент СмиТ
#39
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 791
Отправить сообщение для perpetule с помощью ICQ Отправить сообщение для perpetule с помощью Skype™


Есть множество способов, вывода на печать, больштинство ограничиваются выводом рамкой из пространства модели, реже листа.

Совсем нетипичные случаи, наборы листов *.dsd (весьма невнятный интерфейс, скорость вывода из пространства модели просто фантастическая, на порядок выше публикации, из пространства листа мной не проверялась ).

Если человек, по необходимости, или из любопытства, добрался до оформления в листе (самые разнообразные сочетания ВЭ или без затей поверх листа), следующий этап по удобству и гибкости - это то что вы описали в предыдущем посте (все сказанное ИМХО и не претедует на истину в последней инстанции).

За этим этапом следует подшивка, с основной надписью оформленной полями из подшивки, причем (здесь тоже присутствует многовариантность, на мой взгляд оптимальна подшивка - шаблон, с уже оформленными основными надписями связанными с листами подшивки, которые в свою очередь помещены в непечатаемые группы, для того чтобы включить лист в проект, достаточно перетащить мышой лист из непечатаемой группы в печатаемую, подобный шаблон легко сформировать из любого готового проекта, оформленного подшивкой /^4/ ). Что следует за подшивкой мне неизвестно, да забыл упомянуть, есть еще лисп отправляющий прямоугольник в определенном слое /модель/ на принтер с определенным набором параметров листа, мною не тестировалось (но это не для тех кто плотно работает с масштабами).

Теперь по вашему посту,
Цитата:
Для разметки листа пользуюсь нулевым слоем (сделал его непечатаемым)
слой 0 главным образом предназначен для блоков, и делать его непечатаемым, значит терять некоторые специфические свойства.
Слой Defpoints и Ashade, тоже специфические, переназначать их я бы не рекомендовал.
Исключение- /для моей специфики/ дабы часто не переключаться со слоя на слой /редко, но все же пользуюсь фильтрами по слою/, переназначил слою ноль цвет на 8 /темно серый/, теперь не так бьет по глазам на темном фоне, и сразу видно мой ли файл, пользуюсь им как для блоков, так и для построений примитивами, хотя это и не считается хорошим тоном, / толщина или вернее глобальный масштаб задается не через слой а текущей глобальной шириной полилинии, можно поискать по форуму "новые команды для работы с полилинией"/ , это когда нет необходимости выделять функционал построения, или то же самое в функциональный слой, если не хотите чтобы после взрыва подобной полилинии изменился вид напечатанного, необходимо опять же поместить ее на определенный слой с весом по слою, или задать вес жестко.

Цитата:
Для завершения работы над схемой нам понадобится замечательная программка уважаемого VVA под названием «layout» (см. http://dwg.ru/f/showthread.php?p=238661#post238661)
Это просто замечательно, тут намечается подход мною пока не опробованный, можно сформировать проект, по принципу раздел-файл, не пользуясь подшивкой, либо используя ее на заключительном этапе, каждый раз просто включая все листы в подшивку,
Ведомость комплекта все равно как не мудри приходится ручками составлять, хотя "сформировать ведомость листов" одна из лучших возможностей подшивки.

Цитата:
Если необходимо перенастроить вывод листов на другой принтер и при этом вывод на ранее настроенный принтер пока не планируется (перенастроить обратно, имея «старый» набор параметров листа элементарно): создать новый набор параметров листа (см. п.4) и командой «CPS» («CPSSL») программы VVA «page_setup» (http://forum.dwg.ru/showthread.php?p=238661#post238661) применить этот набор к необходимым листам. Далее жмём «Публикация» и перенастроенный процесс печати пошёл!
Имея физические принтера A4/A3 (возможно не в одном флаконе) и плотер, мы имеем геморр с многовариантностью которая просто зашкаливает все разумные пределы, а если еще упомянуть возможность поломки плотера и покупки другого, не так уж и редко такое случается, такой подход не представляется оптимальным.
Гораздо проще - создать копию виртуального предустановленного принтера (PDF, DWf), назначить им все возможные комбинации дополнительных форматов листов (несколько десятков), и просто иметь резервные копии этих файлов, и вы не будете как попугай, повторять одни и те же действия по надцать... раз, вы не зависите от принтера/плотера и его модели /тут тоже есть свой тонкости, но они не критичны/, имея такой виртуальный принтер, комплект наборов параметров листа, и шаблон подшивки, где листу соответствует основная надпись, оформление листа занимает по времени около 15-20 секунд, с возможностью в дальнейшем переместить лист произвольно и сдвинуть нумерацию листов не открывая каждый лист по отдельности, причем эти листы могут принадлежать разным dwg файлам (минут 5, на 30 листов, с меньшим кол-вом, с подшивкой связываться не имеет особого смысла, поскольку у вас уйдет изрядное кол-во времени на освоение интерфейса, если не у кого спросить как это делается, я не имел такой возможности), из минусов - промежуточная распечатка в эл. копию (50 - листов минут 10), из плюсов экономия бумаги - ляпы гораздо легче отследить имея готовый скомпанованный вариант пректа в эл. виде, скорость перемещения и наглядность выше нежели чем dwg, я обычно просматриваю такую эл. версию, выписываю конспективно огрехи и потом имея ее перед глазами быстренько правлю перед физической распечаткой, затем распечатываю в эл. копию еще раз, одна из причин сподвигнувшая меня на освоение подшивки, требование передавать заказчику как тв. копию, так и эл. вариант, не dwg, как правило делается это не один раз, по разным и не зависящим от меня причинам.


Цитата:
Дополнительно хочу отметить, что во избежание ошибок, листы разного формата отправляю на печать раздельно
Вот это очень правильно.

Цитата:
К сожалению, как сохранить в наборе параметров листа настройки самого принтера, я так и не разобрался.
Никак, для A3/A4 если драйвера принтера не поддерживают автоматическую смену лотка подачи бумаги.
Для плотера вообще не имеет значения, на сегодняшний день большинство пользуют HP (язык HPGL или HPGL/2), с корректным автовращением по рулону (при непосредственной печати, если физический размер листа задан на 10-20 мм больше с каждой стороны, и проставлен масштаб 100%), для не HP зависит от драйвера модели.
В DWF/PDF есть функция выбрать формат из dwf/pdf + ставите 100% и забываете об остальном.

P.S. Еще один час оторван от сна. Рад буду если комуто помог, хотя подавляющему большинству это до лампочки....

Последний раз редактировалось perpetule, 21.07.2011 в 02:05.
perpetule вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 21.07.2011, 12:51 perpetule
#40
Агент СмиТ

Gti
 
Регистрация: 14.01.2010
МО Железнодорожный
Сообщений: 121


Цитата:
Совсем нетипичные случаи, наборы листов *.dsd (весьма невнятный интерфейс, скорость вывода из пространства модели просто фантастическая, на порядок выше публикации, из пространства листа мной не проверялась ).
Насколько я понимаю файлы *.dsd, это лишь перечень листов конкретного файла, который можно использовать при публикации этого файла (а не "минусовать" ненужные листы), о какой скорости вывода идёт речь?

Цитата:
Если человек, по необходимости, или из любопытства, добрался до оформления в листе
Я бы сказал в основном из лени и отчасти из любопытства

Цитата:
слой 0 главным образом предназначен для блоков, и делать его непечатаемым, значит терять некоторые специфические свойства.
Слой Defpoints и Ashade, тоже специфические, переназначать их я бы не рекомендовал.
Со слоем Ashade никогда не сталкивался, о Defpoints знаю только, что при отключенном слое 0, он не редактируется и не выбирается. Видимо надо почитать об этих слоях побольше, авось удастся к своей работе что-нибудь полезное прикрутить.

Цитата:
Цитата: Для завершения работы над схемой нам понадобится замечательная программка уважаемого VVA под названием «layout» (см. http://dwg.ru/f/showthread.php?p=238661#post238661)

Это просто замечательно, тут намечается подход мною пока не опробованный, можно сформировать проект, по принципу раздел-файл
Наши проектировщики именно так и поступают с той лишь разницей, что форматки они размещают в пространстве модели, а в pdf перегоняют видимо через выделение рамкой, либо через
Цитата:
лисп отправляющий прямоугольник в определенном слое /модель/ на принтер с определенным набором параметров листа
На выходе получается папка с многостраничными pdf-ами и doc-овский файлик с кратким составом проекта и гиперссылками на pdf.

Цитата:
Имея физические принтера A4/A3 (возможно не в одном флаконе) и плотер, мы имеем геморр с многовариантностью которая просто зашкаливает все разумные пределы, а если еще упомянуть возможность поломки плотера и покупки другого, не так уж и редко такое случается, такой подход не представляется оптимальным.
Гораздо проще - создать копию виртуального предустановленного принтера (PDF, DWf), назначить им все возможные комбинации дополнительных форматов листов (несколько десятков)...
К причинам смены принтера имеет смысл также отнести и "внезапное" окончание чернил (порошка) в картриджах, а печатать надо "к утру что б было". Перегонка часто печатаемых документов в pdf вещь, БЕЗУСЛОВНО полезная, т.к. отправить pdf на печать гораздо проще, нежели dwg, НО опять же на конкретный принтер т.к. размеры печатаемой области, а главное размеры полей могут значительно отличаться (опциями "вписать" и "подогнать" я не пользуюсь, т.к. в 90% случаев масштаб документа критичен). Выход возможен заданием размеров листов под минимальную облась печати и под обрез форматки, но при просмотре в pdf будет выглядеть довольно убого. Хотя имея два НПЛ - для просмотра и для твердой копии... В общем на данный момент я настраиваю листы под физический принтер (в работе стараюсь сводить к минимуму количество используемых форматов), а при необходимости вывода в pdf просто меняю НПЛ, НО т.к. чертёж в листе остаётся на месте, а поля у виртуального принтера минимальны, ему практически всё равно что "жевать".

Цитата:
из минусов - промежуточная распечатка в эл. копию (50 - листов минут 10)
Немного не в тему но тоже о балансе "время-качество". Если в цепочку dwg > окончательный pdf добавить перегонку в postscript, на выходе можно получить значительно более лёгкий файл (сжатие в 10 и более раз), который соответственно будет легче и выводить на печать и просматривать (сам проделывал такое с помощью дистиллера и акробата, но возможность dwg > postscript > pdf не проверял).

Цитата:
из плюсов экономия бумаги - ляпы гораздо легче отследить имея готовый скомпанованный вариант пректа в эл. виде, скорость перемещения и наглядность выше нежели чем dwg
Полностью согласен, тем более что заметить сразу все ляпы мне не иногда не удаётся, потому приходится действовать методом "последовательных итераций" ))


Цитата:
P.S. Еще один час оторван от сна. Рад буду если комуто помог, хотя подавляющему большинству это до лампочки....
Уровень знания AutoCad, специфика работы, как и стремление узнать новое, у всех разные, потому и одинаково интересно всем думаю быть не может.
Агент СмиТ вне форума вставить имя Обратить внимание модератора на это сообщение  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Изменение настроек принтера в листе(листах)

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Изменение настроек экрана olegg Программирование 17 19.10.2007 15:21
Изменение форматированного текста посредством lisp Tramp LISP 4 03.03.2006 11:28
загрузка DOS прог через LISP Gaa LISP 15 12.08.2005 19:19

|| Главная || Каталог САПР || Тендеры || Публикации || Объявления || Биржа труда || Download || Галерея ||
|| Библиотека || Кунсткамера || Каталог предприятий || Контакты || Файлообменник || Блоги ||