пакетная печать

пакетная печать · 11.02.2005, 13:00

вот любит Vova задавать задачки на которые ответ сам знает, и я задам, только ответа я не знаю

И так, уважаемые знатоки :
[sm2001]
Есть около 600 файлов dwg,

Все они в разных каталогах разной вложенности, но внутри одного общего.

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

Внимание, вопрос:

Как можно быстро распечатать все эти файлы на лазерном принтере?
(стиль печати можно задать один для всех)

Если учесть, что рапечатаны они должны быть в определенной последовательности:

сначала первый каталог, затем все вложенные в него каталоги с подкаталогами по очереди, затем второй каталоги т.д.

Apelsinov · 24.02.2005, 14:38

История продолжается...
Нашел как закрыть неактивный документ:

Код:

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

(defun apel-dwg-close-noactive ()
 (vlax-for Item (vla-get-documents (vlax-get-acad-object))
  (if (= (vla-get-active Item) :vlax-false)
   (vla-close Item :vlax-true)
  )
 )
)

Однако новая напасть - не могу переключиться из печатаемого документа в исходный чтобы сработал apel-dwg-close-noactive, пытался так:

Код:

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

(vla-activate (vla-item (vla-get-documents (vlax-get-acad-object)) 0))

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

Выходит все чего-то ждут - а работать никто не хочет, очень знакомая ситуация

Все из-за невозможности открыть документ и сделать его неактивным, закончив в нем функцию.

И даже написав функцию печати неактивного документа этой проблемы не решить - открыв документ надо будет сделать его неактивным.

В общем я в ступоре

Сама задача-то почти решена, не получается лишь полной автоматизации. В принципе запустив программу остается лишь нажимать ctrl + tab - 1000 раз...что уже не так плохо. Но жаль!

{Smirnoff} · 24.02.2005, 15:14

Погоди немного.... У меня уже все печатает, правда "тормозной" метод vla-PlotToDevice вносит свои коррективы. Сейчас попробую заменить его на твою функцию. Идея у меня совсем другого плана. Нужно чтобы документ всегда был активным при печати- открываем вторую сессию AutoCAD из первой и открываем там по очереди все документы опять же из первой сессии. Вот только ждать пока vla-PlotToDevice отправит их на печать жутко долго...

Вот можешь пока поиграться с моими первыми опытами. Убери закоменченные строки печати, вставь задержку (command "_.delay....
возможно твоя функция печати будет работать из автозагрузки. А я пока с твоей функцией "добью" вариант со втрой сессией акада...

Код:

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

(defun c:mplot(/ pathList docColl curDoc plotObj errList errCount sucCount)
  
  (defun asmi-doslib-load (/)
    (cond
	   ((=(substr(getvar "ACADVER")1 2) "15")
	    (progn
  (if(not(member "doslib15.arx" (arx)))
      (arxload "doslib15.arx" "File doslib15.arx.arx not found! ")
    ); end if
  );end progn
	    )
	   ((=(substr(getvar "ACADVER")1 2) "16")
	    (progn
  (if(not(member "doslib16.arx" (arx)))
       (arxload "doslib16.arx" "File doslib16.arx.arx not found! ")
    ); end if
  );end progn
	    )
	    ); end cond
    (if(or
       (member "doslib15.arx" (arx))
       (member "doslib16.arx" (arx))
       ); end or
      T
      ); end if
  ); end of asmi-doslib-load


  

  (defun asmi-all-folder-dwgs (/ rootDir dirList newFiles fileList)
  (if
  (setq rootDir
      (dos_getdir "Folder to select DWG's " "C:\\" "Select folder select DWG's")
   ); end setq
  (progn
   (setq dirList(dos_dirtree rootDir)
    fileList '()
   ); end setq
  (foreach dir dirList
    (if
      (setq newFiles(dos_dir(strcat dir "*.dwg")0))
      (progn
	(setq newFiles(mapcar '(lambda (x)(strcat dir x))newFiles)
              fileList(append fileList newFiles)
	); end setq
       ); end progn
      ); end if
    ); end foreach
  fileList
   ); end progn
  ); end if
); end of asmi-all-folder-dwgs


  (defun prepare-to-plot (vla-file /)
    (princ)
    ); end of vla-file


  
  (if(asmi-doslib-load)
    (progn
      (if
       (setq pathList(asmi-all-folder-dwgs))
        (progn
          (setq docColl(vla-get-Documents(vlax-get-acad-object))
	        errList '()
		errCount 0
		sucCount 0
	       ); end setq
      (foreach path pathList
	(if
	  (not 
            (vl-catch-all-error-p 
             (setq curDoc
		    (vl-catch-all-apply 'vla-open(list docColl path)))))
	    (progn
;;;	      (setq plotObj(vla-get-plot curDoc))
;;;	      (if(not(vla-PlotToDevice plotObj))
;;;		(progn
;;;	      (setq errList(append errList(list path)))
;;;	      (setq errCount(1+ errCount))
;;;	       ); end progn
;;;	      ); end if
	   (vla-close curDoc :vlax-false)
	   (setq sucCount(1+ sucCount))
	  ); end progn
	  (progn
	  (setq errList(append errList(list path)))
	  (setq errCount(1+ errCount))
	  ); end progn
	); end if
      ); end foreach
    ); end progn
       (princ "\n!!! *.DWG FILES NOT FOUND IN SELECTED DIRECTORY AND SUBDIRECTORIES !!! ")
   ); end if
  ); end progn
 ); end if
  (if(/= 0 errCount)
    (progn
      (princ "\n!!! ISN'T PLOTTED FILES !!!")
      (princ "\n------------------------------------------------")
      (foreach file errList
	(princ(strcat "\n" file))
	); end foreach
      (princ "\n------------------------------------------------")
      (princ(strcat "\n!!! TOTAL ISN'T PLOTTED FILES: " (itoa errCount) " !!! \n"))
       ); end progn
      ); end if
    (if(/= 0)
    (princ(strcat "\n*** " (itoa sucCount) " FILES PLOTTED *** "))
      ); end if
    (textscr)
(princ)
); end of c:mplot

(vl-load-com)

{Smirnoff} · 24.02.2005, 16:29

[sm158] [sm158] [sm158] Работает!!!!

Осталась толко одна проблемма, решение которй требует либо небольшого количества кода, либо остроумия.

Состоит она в следующем.
При работе с одной версией AutoCAD мы можем организовать "спусковой крючек" от состояния которого при загрузке нового файла функция (apel-plot-extents будет запущена на выподнение к примеру через внедукументное пространство. При работе со второй сессией, пройдут только ActiveX объекты. Моя идея состоит в том чтобы "поймать" первую сессию из второй с помощью (vlax-get-object, обратиться к активному документу и если там есть соответствующая метка (к примеру точка с соответствующими координатами) запустить (apel-plot-extents.

Может есть другие идеи?

А пока попробуй, но после работы acaddoc.lsp (или автозагрузку) придется почистить во избежании печати всех открываемых документов...

В acaddoc.lsp у меня:

Код:

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

(apel-plot-extents "HP LaserJet 4100 Series PS.pc3" "A4" "acad.stb")

и конечно твоя замечательная функция.

Основная функция:

Код:

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

(defun c:dirplot(/ pathList newAcad newDocCol curFile tagPoint openCount errCount errList)

  
  (defun asmi-doslib-load (/)
    (cond
	   ((=(substr(getvar "ACADVER")1 2) "15")
	    (progn
  (if(not(member "doslib15.arx" (arx)))
      (arxload "doslib15.arx" "File doslib15.arx.arx not found! ")
    ); end if
  );end progn
	    )
	   ((=(substr(getvar "ACADVER")1 2) "16")
	    (progn
  (if(not(member "doslib16.arx" (arx)))
       (arxload "doslib16.arx" "File doslib16.arx.arx not found! ")
    ); end if
  );end progn
	    )
	    ); end cond
    (if(or
       (member "doslib15.arx" (arx))
       (member "doslib16.arx" (arx))
       ); end or
      T
      ); end if
  ); end of asmi-doslib-load


  

  (defun asmi-all-folder-dwgs (/ rootDir dirList newFiles fileList)
  (if
  (setq rootDir
      (dos_getdir "Folder to select DWG's " "C:\\" "Select folder select DWG's")
   ); end setq
  (progn
   (setq dirList(dos_dirtree rootDir)
    fileList '()
   ); end setq
  (foreach dir dirList
    (if
      (setq newFiles(dos_dir(strcat dir "*.dwg")0))
      (progn
	(setq newFiles(mapcar '(lambda (x)(strcat dir x))newFiles)
              fileList(append fileList newFiles)
	); end setq
       ); end progn
      ); end if
    ); end foreach
  fileList
   ); end progn
  ); end if
); end of asmi-all-folder-dwgs



  (if(asmi-doslib-load)
    (progn
      (if
       (setq pathList(asmi-all-folder-dwgs))
        (progn
	  (princ "\n*** PLEASE WAIT WHILE SECOND AutoCAD SESSION STARTS... *** ")
          (setq newAcad(vlax-create-object "Autocad.Application"))
	  (if newAcad
	    (progn
	    (vlax-put-property newAcad "Visible" :vlax-true)
	    (setq newDocCol(vla-get-Documents newAcad)
		  openCount 0
		  errCount 0
		  errList '()
		  ); end setq
	      (foreach file pathList
		(if
	  (not 
            (vl-catch-all-error-p 
             (setq curFile
		    (vl-catch-all-apply 'vla-open(list newDocCol file)))))
	           (progn
		     (setq openCount(1+ openCount)
	                 ); end setq
		     (command "_.delay" 1000)
		     (vla-close curFile :vlax-true)
		     (vlax-release-object curFile)
		     ); end progn
	            (progn
		      (setq errCount(1+ errCount)
			    errList(append errList(list file))
			    ); end setq
		      ); end progn
	            ); end if
		); end foreach
	    (vla-close(vla-get-ActiveDocument newAcad):vlax-true)
	    (vlax-invoke-method newAcad "Quit")
      (mapcar(function(lambda(x)
          (if
       (and x(not(vlax-object-released-p x)))
       (vlax-release-object x)
       )
          ))
    (list curFile newDocCol newAcad)
    )
    (setq curFile nil
          newDocCol nil
          newAcad nil
	   ); end setq
    (gc)
	    
  (if(/= 0 errCount)
    (progn
      (princ "\n!!! ISN'T PLOTTED FILES !!!")
      (princ "\n------------------------------------------------")
      (foreach file errList
	(princ(strcat "\n" file))
	); end foreach
      (princ "\n------------------------------------------------")
      (princ(strcat "\n!!! TOTAL ISN'T PLOTTED FILES: " (itoa errCount) " !!! \n"))
       ); end progn
      ); end if
    (if(/= 0 openCount)
    (princ(strcat "\n*** " (itoa openCount) " FILES PLOTTED *** "))
      ); end if
    (textscr)
		  ); end progn
	    (princ "\n!!! CAN'T OPEN SECOND AutoCAD SESSION !!! ")
	    ); end if 
	  ); end progn
	  (princ "\n!!! *.DWG FILES NOT FOUND IN SELECTED DIRECTORY AND SUBDIRECTORIES !!! ")
       ); end if
      ); end progn
    ); end if
  (princ)
); end of c:dirplot

(vl-load-com)

:!: Обрати внимание на строку (setq newAcad(vlax-create-object "Autocad.Application")) Если у тебя на машине несколько автокадов то возможно надо указать какую открывать. Типа "Autocad.Application.15"

{Smirnoff} · 24.02.2005, 16:48

Еще CMDECHO забыл отключить... И лазерник, почему то печатает не так быстро. Думаю чтобы "неповесить" сетку, задержку на печать надо побольше сделать, слишком быстро она их отправляет... а печатает медленее... :roll:

{Smirnoff} · 24.02.2005, 17:07

Информирую :!: Получил звонок от сетевого Админа. Он сказал все что он обо мне думает... За 254 Мб в очереди на печать на сетевом принтере... А запустил то всего 34 файла...

Apelsinov · 24.02.2005, 17:30

Ну проблемы админов оставим им самим, 34 файла в очереди это цветочки, я и вручную их порой отправлял забивая в очередь под сотню.
Но вообще мне совсем не нравится идея с delay. Но без нее тут никак, просто у меня принтеры разные по разному по сетке откликаются, не знаю от чего зависит.
По поводу "крючка" - можно при запуске проги делать запись в файл, а в автозагрузке его читать. Затем по окончании, менять запись.Или просто созавать временный файл, и проверять его наличие.
Разбираюсь с прогой - есть вопрос - что такое vlax-release-object?

Apelsinov · 24.02.2005, 17:40

Да, еще - есть способ проверить на наличие dos_lib кроме как на загруженные файлы arx?
Мне в принципе все равно, но уж если быть занудой то у меня dos_lib грузится из doslib2004.arx или
doslib2k.arx.(себе я пока эту ф-ю вообще убрал) А по хорошему ее вообще надо в asmi-all-folder-dwgs, больше ведь нигде вроде не используется.

avd · 24.02.2005, 18:10

Из хелпа:
The drawing from which the plot is initiated must be active for the plot to succeed.
Поэтому только на lisp задачу не решить. На лиспе - выбор файлов и их сортировка по какому-то необходимому Вам принципу, а печать на VBA.

{Smirnoff} · 24.02.2005, 19:05

>Apelsinov

Цитата:

Да, еще - есть способ проверить на наличие dos_lib кроме как на загруженные файлы arx?
Мне в принципе все равно, но уж если быть занудой то у меня dos_lib грузится из doslib2004.arx или
doslib2k.arx.(себе я пока эту ф-ю вообще убрал) А по хорошему ее вообще надо в asmi-all-folder-dwgs, больше ведь нигде вроде не используется.

Ну я не только в этой проге DOSLIB использую, поэтому и такая функция есть. Насчет названий файлов, они действительно меняются от версии к версии, когда я скачивал 6.0 там было их 4 doslib2000.arx, doslib2004.arx, doslib15.arx, doslib16.arx. Понятно что фактически два с разными названиями. Можно конечно аналог написать без DOSLIB, однеако лениво...

Цитата:

Но вообще мне совсем не нравится идея с delay. Но без нее тут никак, просто у меня принтеры разные по разному по сетке откликаются, не знаю от чего зависит.

Думаю чтобы не создавать большую очередь на печать, нужно написать функцию вычисляющую размер файла отправляемого на печать и в зависимости от этого несколько раз в цикле запускать (command "_.delay", без которой к сожалению не обойтись

Цитата:

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

Идет хорошая идея, даже думаю можно писать в регистр, по крайней мере кода меньше

Цитата:

Разбираюсь с прогой - есть вопрос - что такое vlax-release-object

Она "отцепляет" объекты полученные через COM-сервер из других приложений. Если такой объект останется, то стороннее приложение (в данном случае второй AutoCAD) останется в списке процессов...

В общем требуются мелкие доработки, а так в общем даже очень ничего...

>avd

Цитата:

The drawing from which the plot is initiated must be active for the plot to succeed. Поэтому только на lisp задачу не решить.

А на чем же, мы ее решили? На Алголе что ли?

Строчку я эту из Хелпа читал, однако она не говорит о том что нельзя запустить печать одного файла из другого. И с переменной BACKGROUNDPLOT баловался. Вот то что (vla-PlotToDevice работает по лиспом полностью "тормознуто" и делает активным документ не из которого дана команда на печать, а печатаемый это точно...

Хотя все решаемо и в одной сесси AutoCAD, можно таскать все туда-сюда через внедокументное пространство, я имею ввиду держать там список файлов, и флаги для переключения документов. Однако такой алгоритм мне нравится меньше, поскольку при любой ошибке "цепочка" оборвется. А с двумя сессиями, по крайней мере есть "главный" который "ведомого" контролирует...

avd · 25.02.2005, 07:22

А стоит ли мучится с двумя сессиями. У меня работает как я писал - выбираю с помощью dos_getfilem, пишу имя файла в users, вызываю макрос VBA и печатаю. И ни каких тормозов. Конечно если не пользоваться гадким VBA из принципа тогда другое дело.

{Smirnoff} · 25.02.2005, 09:12

>avd

Цитата:

Конечно если не пользоваться гадким VBA из принципа тогда другое дело.

Таких принципов нет, согласен что VBA для решения такой задачи предпочтительнее, тем более что там можно создать реактор на событие EndPlot, а в лисповских реакторах я такого события не нашел и приходится мучатся с задержками. Однако интересно решить такую задачу и на лиспе.

Чтобы всякие VBAшники нос не задирали

(шутка)

Apelsinov · 25.02.2005, 10:33

>all
Ну а мне вообще все паралельно, на чем эта штука будет написана, хоть на лиспе, хоть на VB, хоть на паскале или фортране - главное чтоб работала хорошо.

Вот только писать я могу только на лиспе (и то коряво).

Поэтому если кто-то напишет аналог на VB - дык флаг в руки, и немерянное СПАСИБО от меня

avd · 25.02.2005, 11:10

Прошу не бить ногами, это ведь я так только сказал, что всё прекрасно работает. Да работает, но заточено под свою задачу, делать в общем виде для любого пользователя нет времени.

На VBA это выглядит примерно так:

Код:

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

Public Sub av_batch_plot()

On Error GoTo ProcessingError

    Dim FilesForPrint As String
    Dim Printer As String
    Dim Paper As String
    Dim ObjLayout As AcadLayout
    Dim k As Integer
    
'   FilesForPrint имя файла для открытия.
'   k - количество копий.
    FilesForPrint = ThisDrawing.GetVariable("users5")
    Printer = ThisDrawing.GetVariable("users4")
    Paper = ThisDrawing.GetVariable("users3")
    k = ThisDrawing.GetVariable("useri4")
    ThisDrawing.Application.Documents.Open (FilesForPrint)
    Application.ZoomExtents
    
    Dim s(0 To 1) As Double
        s(0) = 0: s(1) = 0
    
    Set ObjLayout = ThisDrawing.Layouts.Item("Model")
    With ObjLayout
      .RefreshPlotDeviceInfo
      .ConfigName = Printer
      .RefreshPlotDeviceInfo
      .CanonicalMediaName = Paper
      .PlotOrigin = s
      .PaperUnits = acMillimeters
      .PlotType = acExtents
      .PlotRotation = ac0degrees
      .StandardScale = acVpScaleToFit
      .StyleSheet = "monochrome.ctb"
      .PlotWithPlotStyles = True
      .PlotWithLineweights = True
    End With
    
    If k > 0 Then
      ThisDrawing.Plot.NumberOfCopies = k
      ThisDrawing.Plot.PlotToDevice
    End If
    
    ThisDrawing.Close (False)
    
ExitHere:
Exit Sub

ProcessingError:
If Err.Number = -2145320825 Then
 MsgBox "Не могу открыть файл  " & FilesForPrint, vbCritical, "batch plot"
End If
If Err.Number = -2145386493 Then
 MsgBox "Не могу напечатать файл  " & FilesForPrint, vbCritical, "batch plot"
 ThisDrawing.Close (False)
End If
Resume ExitHere
 
End Sub

Формируй users-ы и useri на лиспе и пробуй.
Буду рад видеть усовершенствования этого "шедевра",
я ведь сам VBA тоже почти не знаю.

Apelsinov · 25.02.2005, 11:55

>avd
Спасибо за заботу

Посмотрю обязательно, но пока я , к сожелению, не знаю даже как это запустить

>Fantomas
возможно для проверки на dos_lib можно применить что-то вроде этого:

Код:

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

(defun apel-dos_lib (N)
 (and dos_version
      (>= (dos_version) N)
 )
)
;Пример:
(apel-dos_lib "6.1.4")
; у меня возвращает T

avd · 25.02.2005, 12:28

Loading VBA Files тут http://www.afralisp.com/vl/vl-vba.htm

{Smirnoff} · 25.02.2005, 15:46

Цитата:

возможно для проверки на dos_lib можно применить что-то вроде этого:

Для проверки, безусловно можно использовать. Однако если он незагружен, все равно соответствующий *.Arx надо загрузить. В чем преймущество то? По моему и то и другое катит... Тем более что если DosLIB не загружен, то его придется загрузить и еще раз проверить версию, если номер как в этой функции имеет значение.

Ты лучше скажи, как оно работает :?: Я там "спусковой крючек" написал и функцию задержки в зависимости от величины файла, только дома флешку забыл :cry: Переписывать не хочется, в понедельник проверю и тогда выложу.

Гусев Георгий · 28.06.2007, 09:57

Здравствуйте

Извените что вмешиваюсь. Меня интерисует один ворос: в AutoCAD 2007 есть или нету Batch Plot Utility, или может есть какая нибудь команда для пакетной печати из пространства листа. Целый проект в одном файле выполнен на листах, все настройки печати выполнены, печатать лень.

Спсбо

Кулик Алексей aka kpblc · 28.06.2007, 10:04

_.publish либо Sheet set managet

tujn08 · 14.11.2019, 10:18

Подскажите пожалуйста как в фоновый документ подгрузить (vl-load-com)

Что бы я не делал:
на (vla-get-Plot doc)
отвечает
ошибка: ActiveX Server возвратил ошибку: неизвестное имя: Plot

Или я не туда смотрю?

11.02.2005, 13:00
пакетная печать Apelsinov Проектировщик ВК. LISP-любитель. Москва Регистрация: 15.12.2003 Сообщений: 1,202 вот любит Vova задавать задачки на которые ответ сам знает, и я задам, только ответа я не знаю И так, уважаемые знатоки : [sm2001] Есть около 600 файлов dwg, Все они в разных каталогах разной вложенности, но внутри одного общего. В каждом файле чертежик в модели, в листе ничего нет. чертежик может быть выполнен в любом масштабе, он может быть повернут как вертикально, так и горизонтально, но все они сделаны под лист A4. Внимание, вопрос: Как можно быстро распечатать все эти файлы на лазерном принтере? (стиль печати можно задать один для всех) Если учесть, что рапечатаны они должны быть в определенной последовательности: сначала первый каталог, затем все вложенные в него каталоги с подкаталогами по очереди, затем второй каталоги т.д.
Просмотров: 23380

	Реклама i