[Des501]

День добрый!
Есть проблемма которую хочу решить средствами Вижуал бейсика в автокаде. По ходу работы в пространстве модели появляется около 300-500 чертежей. И стоит задача распечатать их всех сразу всем скопом. Для облегчения задачи был создан динамический блок с форматным листом (от А4 до А0) и все чертежи "лежат" в поле этих блоков (как правило это А3 горизонтальный). Ясное дело имя у блока одно. То есть, как я понимаю, надо выбрать в документе все блоки с этим именем и соорентировавшись по выбранному атрибуту блока или по его размерам (это не сложно) задать область печати и выдать на принтер (PDFCreator).
Подскажите плиз в каком направлении рыть или, если не затруднит, накидайте в виде примера кусочек кода.
Заранее спасибо!

[zenon]

в поиск лень сходить?
http://forum.dwg.ru/showthread.php?p=464053#post464053

[Vova]

Сообщение от Des501 По ходу работы в пространстве модели появляется около 300-500 чертежей

Ужас!
Это сколько-же проектов в одном файле? У скольких рубашек надо стереть до дыр рукава, чтобы найти ладошкой нужный чертеж на экране?
Значительно продуктивнее иметь много файлов, по именам которых ориентироваться в проекте, а в каждом по нескольку лэйаутов деталей. И проблема с печатью отпадет

[Des501]

Сори, если спросил про банальное но в поиске просто утонул.
Так что спасибо что направили на тему. (Не слишком будет нагло если попрошу написать одну строчку выбора обьектов по имени из текущего чертежа ? )

ЗЫ. Насчет количества чертежей - это норма в моем деле (100-500 в зависимости от глубины проработки вопроса) и если бы я смог автоматизировать вывод на печать - на небе было бы два солнца (второе - моя довольная шайба )))
Держать несколько файлов - грустно ибо куча перекрестных связей которые я отслеживаю помере наращивания листов. Переключаться между окнами заморочно. Проще держать все на одном листе (поле).

[Лиспер]

А подшивка не катит?

[Des501]

Сообщение от Лиспер А подшивка не катит?

Не пробовал. Я не настолько продвинутый пользователь.

Но все равно стоит вопрос распечатать кучу листов и желательно быстро. А мне приходится день мышу стирать об стол

[pavian]

2Des501: до тех пор, пока у тебя будет происходить компоновка в модели, печать всегда будет гемором, юзай подшивки и лэйауты.

[Des501]

Сообщение от pavian 2Des501: до тех пор, пока у тебя будет происходить компоновка в модели, печать всегда будет гемором, юзай подшивки и лэйауты.

Чесно пока не вижу в чем будет проблемма при выводе на печать. Спасибо, попробую, мож я и не прав в корне.

ЗЫ. Только у меня схемы, электрические схемы. Их не надо маштабировать при печати. Как мне кажется задача банальна и механическая.

[Vova]

Сообщение от Des501 Ы. Насчет количества чертежей - это норма в моем деле

Так кто запрещает норму рассредоточить по разным файлам?
Спроси у старых доавтокадовских проектировщиков, чертили-ли они все схемы в одном листе-рулоне или во многих листах? Или ты думаешь раньше не было перекрестных связей? Если две схемы связаны между собой, и удобнее при вычерчивании иметь их рядом, одна из них временно копируется в файл другой, а затем удаляется.
Иначе сотрешь как мышку, так и рубашку

[Лиспер]

Внешние ссылки тоже исключаются? Не, Des501, я с вас удивляюсь - в каде столько возможностей, а они все задвигаются куда подальше...

[Des501]

Сообщение от Лиспер Внешние ссылки тоже исключаются? Не, Des501, я с вас удивляюсь - в каде столько возможностей, а они все задвигаются куда подальше...

Не надо удивляться, это начало пути.
Но про внешние ссылки я не понял. Буду копать.

2Vova: "Если две схемы связаны между собой, и удобнее при вычерчивании иметь их рядом, одна из них временно копируется в файл другой, а затем удаляется."А не кажется что такое решение не есь гут? Проще иметь перед собой все и просматривать все одновременно. Хотя конечно, все нарезано на функциональные, смысловые, группы и связи между ними не такие обильные как внутри группы. Но наверное это дело вкуса, я пока не вижу чем схема расскиданная кусками по файлам мобильнее и лучше одного файла.

2All: Хэлп, как выбрать конкретный блок из всех блоков/примитивов пространства модели? Или как я видел выбирают все и потом отфильтровывают лишнее по какому то условию.

ЗЫ. Я тут подумал - а какая разница где расположены чертежи или как они созданы, ссылки это на другие внешние файлы или еще как - печатать то все равно ВСЕ листы, их от этого меньше не становится. Я хотел нажатием одной кнопки напечатать все при помощи умного макроса.

[Лиспер]

Сообщение от Des501 Но про внешние ссылки я не понял

Если коротко, то один файл (ссылка) "вставляется" в другой (сборка) с сохранением связи. Внесение изменений в ссылку моментально отображается в сборке. Можно, работая в сборке, "войти" внутрь ссылки и внести какие-либо изменения - они будут сохранены. Объяснять дольше, проще попробовать (_.xref).

Сообщение от Des501 Хэлп, как выбрать конкретный блок из всех блоков/примитивов пространства модели? Или как я видел выбирают все и потом отфильтровывают лишнее по какому то условию

быстрый выбор (в девичестве _.qselect)

Сообщение от Des501 Я тут подумал - а какая разница где расположены чертежи или как они созданы, ссылки это на другие внешние файлы или еще как - печатать то все равно ВСЕ листы, их от этого меньше не становится. Я хотел нажатием одной кнопки напечатать все при помощи умного макроса

Тут не макрос нужен, а подшивка

[ssn]

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

[Des501]

Сообщение от ssn возьмите мою программу. надо её немного под себя переделать (поиск объектов на чертеже) а остальное все готово. у меня ищет полилинии на слое 0 со скейл фактором определённым, а у вас проще. ищете блоки. а далее просто снимаем габаритные размеры этих объектов и посылаем их на печать.

А где взять?

[E-degtyarev]

Тружусь над этой же проблемой в поте лица, правда Lisp-ом. Шеф срочно приказал чтоб одним плевком из DWG в PDF. Набросок сырой, но может сгодиться, он работоспособен, правда не до конца все оформлено.

Код:

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

(defun fa15 ()
  (setq p1 koor_for)
  (setq p2 (polar p1 0.0 (* 1260.0 ds)))
  (setq p2 (polar p2 (* pi 0.5) (* 594.0 ds)))
  (command "_-plot"	 "Д"	       "Модель"	     "DWG To PDF.pc3"		 "А1х1,5 (1260.00 x 594.00 мм)"
	   "М"		 "А"	       "Н"	     "Р"	   p1		 p2	       "В"	     "Ц"
	   "Д"		 "monochrome.ctb"	     "Д"	   "О"		 imja	       "Д"	     "Д"
	  ) ;_ конец command
 ) ;_ конец defun

(defun fa125 ()
  (setq p1 koor_for)
  (setq p2 (polar p1 0.0 (* 1050.0 ds)))
  (setq p2 (polar p2 (* pi 0.5) (* 594.0 ds)))
  (command "_-plot"	  "Д"		 "Модель"	"DWG To PDF.pc3"	      "А1х1,25 (1050.00 x 594.00 мм)"
	   "М"		  "А"		 "Н"		"Р"	       p1.	      p2	     "В"
	   "Ц"		  "Д"		 "monochrome.ctb"	       "Д"	      "О"	     imja
	   "Д"		  "Д"
	  ) ;_ конец command
 ) ;_ конец defun


(defun fa1 ()
  (setq p1 koor_for)
  (setq p2 (polar p1 0.0 (* 841.0 ds)))
  (setq p2 (polar p2 (* pi 0.5) (* 594.0 ds)))
  (command "_-plot"	   "Д"		   "Модель"	   "DWG To PDF.pc3"		   "ISO расш. A1 (841.00 x 594.00 мм)"
	   "М"		   "А"		   "Н"		   "Р"		   p1		   p2		   "В"
	   "Ц"		   "Д"		   "monochrome.ctb"		   "Д"		   "О"		   imja
	   "Д"		   "Д"
	  ) ;_ конец command
 ) ;_ конец defun
(defun fa2x15 ()
  (setq p1 koor_for)
  (setq p2 (polar p1 0.0 (* 630.0 ds)))
  (setq p2 (polar p2 (* pi 0.5) (* 594.0 ds)))
  (command "_-plot"	 "Д"	       "Модель"	     "DWG To PDF.pc3"		 "А2х1,5 (630.00 x 594.00 мм)"
	   "М"		 "А"	       "Н"	     "Р"	   p1		 p2	       "В"	     "Ц"
	   "Д"		 "monochrome.ctb"	     "Д"	   "О"		 imja	       "Д"	     "Д"
	  ) ;_ конец command
 ) ;_ конец defun
(defun fa2 ()
  (setq p1 koor_for)
  (setq p2 (polar p1 0.0 (* 594.0 ds)))
  (setq p2 (polar p2 (* pi 0.5) (* 420.0 ds)))
  (command "_-plot"	   "Д"		   "Модель"	   "DWG To PDF.pc3"		   "ISO расш. A2 (594.00 x 420.00 мм)"
	   "М"		   "А"		   "Н"		   "Р"		   p1		   p2		   "В"
	   "Ц"		   "Д"		   "monochrome.ctb"		   "Д"		   "О"		   imja
	   "Д"		   "Д"
	  ) ;_ конец command
) ;_ конец defun
(defun fa3 ()
  (setq p1 koor_for)
  (setq p2 (polar p1 0.0 (* 420 ds)))
  (setq p2 (polar p2 (* pi 0.5) (* 297 ds)))
  (command "_-plot"	   "Д"		   "Модель"	   "DWG To PDF.pc3"		   "ISO расш. A3 (420.00 x 297.00 мм)"
	   "М"		   "А"		   "Н"		   "Р"		   p1		   p2		   "В"
	   "Ц"		   "Д"		   "monochrome.ctb"		   "Д"		   "О"		   imja
	   "Д"		   "Д"
	  ) ;_ конец command
 ) ;_ конец defun

(defun fa315 ()
  (setq p1 koor_for)
  (setq p2 (polar p1 0.0 (* 630 ds)))
  (setq p2 (polar p2 (* pi 0.5) (* 297 ds)))
  (command "_-plot"	 "Д"	       "Модель"	     "DWG To PDF.pc3"		 "А3х1,5 (630.00 x 297.00 мм)"
	   "М"		 "А"	       "Н"	     "Р"	   p1		 p2	       "В"	     "Ц"
	   "Д"		 "monochrome.ctb"	     "Д"	   "О"		 imja	       "Д"	     "Д"
	  ) ;_ конец command
 ) ;_ конец defun



(defun fa4 ()
  (setq p1 koor_for)
  (setq p2 (polar p1 0.0 (* 210 ds)))
  (setq p2 (polar p2 (* pi 0.5) (* 297 ds)))
  (command "_-plot"	   "Д"		   "Модель"	   "DWG To PDF.pc3"		   "ISO расш. A4 (210.00 x 297.00 мм)"
	   "М"		   "К"		   "Н"		   "Р"		   p1		   p2		   "В"
	   "0.0,0.0"	   "Д"		   "monochrome.ctb"		   "Д"		   "О"		   imja
	   "Д"		   "Д"
	  ) ;_ конец command
 ) ;_ конец defun
(defun fa1v ()
  (setq p1 koor_for)
  (setq p2 (polar p1 0.0 (* 594.0 ds)))
  (setq p2 (polar p2 (* pi 0.5) (* 841.0 ds)))
  (command "_-plot"	   "Д"		   "Модель"	   "DWG To PDF.pc3"		   "ISO расш. A1 (594.00 x 841.00 мм)"
	   "М"		   "К"		   "Н"		   "Р"		   p1		   p2		   "В"
	   "Ц"		   "Д"		   "monochrome.ctb"		   "Д"		   "О"		   imja
	   "Д"		   "Д"
	  ) ;_ конец command
 ) ;_ конец defun
(defun fa2v ()
  (setq p1 koor_for)
  (setq p2 (polar p1 0.0 (* 420.0 ds)))
  (setq p2 (polar p2 (* pi 0.5) (* 594.0 ds)))
  (command "_-plot"	   "Д"		   "Модель"	   "DWG To PDF.pc3"		   "ISO расш. A2 (420.00 x 594.00 мм)"
	   "М"		   "К"		   "Н"		   "Р"		   p1		   p2		   "В"
	   "Ц"		   "Д"		   "monochrome.ctb"		   "Д"		   "О"		   imja
	   "Д"		   "Д"
	  ) ;_ конец command
) ;_ конец defun
(defun fa3v ()
  (setq p1 koor_for)
  (setq p2 (polar p1 0.0 (* 297 ds)))
  (setq p2 (polar p2 (* pi 0.5) (* 420 ds)))
  (command "_-plot"	   "Д"		   "Модель"	   "DWG To PDF.pc3"		   "ISO расш. A3 (297.00 x 420.00 мм)"
	   "М"		   "К"		   "Н"		   "Р"		   p1		   p2		   "В"
	   "Ц"		   "Д"		   "monochrome.ctb"		   "Д"		   "О"		   imja
	   "Д"		   "Д"
	  ) ;_ конец command
 ) ;_ конец defun






(setq ds (getvar "ltscale"))
(setq spis_f nil)
(setq spis_f
       (ssget
	 "X"
	 '((0 . "insert")
	   (2
	    .
	    "F4,F_A4R,F_A3RV,F_A3R,F_A3Rx1.5,F_A2RV,F_A2R,F_A2RV1,F_A1RV,F_A1R,F_A1125R,F_A1125R_br,F_A115R,F_A115R_br,F_A1R_1,F_A1R_br,F_A115R_1,F_A1125R_1,F_A1RV_1,F_A1RV_br,F_A2RV1_1,F_A2RV1_br,F_A2R_1,F_A2R_br,F_A2RV_1,F_A2RV_br"
	   )
	  )
       ) ;_ конец ssget
) ;_ конец setq
(if (= spis_f nil)
  (progn
    (alert
      "В файле отсутствуют\nневзорванные форматки.\nИспользуйте \"ручную\"печать."
    ) ;_ конец alert
    (exit)
  ) ;_ конец progn
) ;_ конец if
(setq l_sp (sslength spis_f))
(setq n_sp 0)
(repeat	l_sp
  (setq	imja (strcat (getvar "dwgprefix")
		     (vl-string-right-trim ".dwg" (getvar "dwgname"))
		     "_"
		     (itoa (+ n_sp 1))
	     ) ;_ конец strcat
  ) ;_ конец setq
  (print imja)
  (setq thlen (entget (ssname spis_f n_sp)))
  (print thlen)
  (setq for_imja (cdr (assoc 2 thlen)))
  (print for_imja)
  (setq koor_for (cdr (assoc 10 thlen)))
  (print koor_for)
(if (= for_imja "F4")
    (fa4)
  ) ;_ конец if
  (if (= for_imja "F_A4R")
    (fa4)
  ) ;_ конец if
  (if (= for_imja "F_A3RV")
    (fa3v)
  ) ;_ конец if
  (if (= for_imja "F_A3R")
    (fa3)
  ) ;_ конец if
  (if (or (= for_imja "F_A2RV") (= for_imja "F_A2RV_1") (= for_imja "F_A2RV_br"))
    (fa2v)
  ) ;_ конец if
  (if (or (= for_imja "F_A2R") (= for_imja "F_A2R_1") (= for_imja "F_A2R_br"))
    (fa2)
  ) ;_ конец if
  (if (or (= for_imja "F_A2RV1") (= for_imja "F_A2RV1_1") (= for_imja "F_A2RV1_br"))
    (fa2x15)
  ) ;_ конец if
  (if (or (= for_imja "F_A1RV") (= for_imja "F_A1RV_1") (= for_imja "F_A1RV_br"))
    (fa1v)
  ) ;_ конец if
  (if (or (= for_imja "F_A1R") (= for_imja "F_A1R_1") (= for_imja "F_A1R_br"))
    (fa1)
  ) ;_ конец if
  (if (or (= for_imja "F_A1125R") (= for_imja "F_A1125R_1") (= for_imja "F_A1125R_br"))
    (fa125)
  ) ;_ конец if
  (if (or (= for_imja "F_A115R") (= for_imja "F_A115R_1") (= for_imja "F_A115R_br"))
    (fa15)
  ) ;_ конец if
  (if (= for_imja "F_A3Rx1.5")
    (fa315)
  ) ;_ конец if
  (setq n_sp (+ 1 n_sp))
) ;_ конец repeat
   ;(print l_sp)
;|«Visual LISP© Format Options»
(128 2 3 2 T "конец " 72 9 1 1 0 T T nil T)
;*** НЕ добавляйте текст под комментариями! ***|;

[Des501]

Вот такое седня наваял путем проб и ошибок:

Код:

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

Public Sub AAA()
 Dim MyBlock As AcadBlock
 Dim intCnt As Integer
 Dim objEnt As AcadEntity


 Dim intType(0) As Integer
 Dim varData(0) As Variant
        
 Dim result As Boolean
 Dim plotFileName As String
 
 plotFileName = "PDFCreator.pc3" '"DWG To PDF.pc3"
 
 BackPlot = ThisDrawing.GetVariable("BACKGROUNDPLOT")
 ThisDrawing.SetVariable "BACKGROUNDPLOT", 0

'=========================================================
' выбор обьектов для печати
'=========================================================
 intCnt = ThisDrawing.ModelSpace.Count
  
 For Each objEnt In ThisDrawing.ModelSpace
    If objEnt.ObjectName = "AcDbBlockReference" Then
       If objEnt.EffectiveName = "PageESKD" Then
     
     
        Dim varMin As Variant
        Dim varMax As Variant
        
        objEnt.GetBoundingBox varMin, varMax
        ZoomWindow varMin, varMax
        
        '===================================
        ' печатаем
        '===================================
        
        'MsgBox "Нашоль и печатаю"
        
        ThisDrawing.ModelSpace.Layout.ConfigName = plotFileName
        ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo
        
        ReDim Preserve varMin(0 To 1)
        ReDim Preserve varMax(0 To 1)
        
        ThisDrawing.ModelSpace.Layout.PlotType = acWindow
        ThisDrawing.ModelSpace.Layout.SetWindowToPlot varMin, varMax
        ThisDrawing.ModelSpace.Layout.CenterPlot = True
        
        ThisDrawing.ModelSpace.Layout.StandardScale = ac1_1
        
        PageHeight = Abs(varMax(0) - varMin(0))
        PageWidth = Abs(varMax(1) - varMin(1))
        
        If (PageHeight = 210) And (PageWidth = 297) Then
         ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A4"
         ThisDrawing.ModelSpace.Layout.PlotRotation = ac0degrees
        ElseIf (PageHeight = 297) And (PageWidth = 210) Then
         ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A4"
         ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees
         
        ElseIf (PageHeight = 297) And (PageWidth = 420) Then
         ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3"
         ThisDrawing.ModelSpace.Layout.PlotRotation = ac0degrees
        ElseIf (PageHeight = 420) And (PageWidth = 297) Then
         ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3"
         ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees

'        ElseIf (PageHeight = 420) And (PageWidth = 594) Then
'         ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A2"
'         ThisDrawing.ModelSpace.Layout.PlotRotation = ac0degrees
'        ElseIf (PageHeight = 594) And (PageWidth = 420) Then
'         ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A2"
'         ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees

        End If
        
        result = ThisDrawing.Plot.PlotToDevice

       End If
    End If
   
 Next

'========================================================

 ThisDrawing.SetVariable "BACKGROUNDPLOT", BackPlot
 
End Sub

Все прекрасно работает за исключением того что не принимает листы А2 и больше.

И появились по ходу куча вопросов...
А что такое по сути Layout ? смутило Plot.SetLayoutsToPlot...

[Vova]

Сообщение от Des501 Проще иметь перед собой все и просматривать все одновременно.

Но не сотни-же отдельных чертежей! Надо меру знать. А без меры получается так:

А мне приходится день мышу стирать об стол

Кроме того, утратить один файл-плевое дело. Об этом на форуме было море тем.

[Des501]

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

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

ЗЫЗЫ. К стати проверил только что - 185 листов А3 и А4 за 7 минут были перегнаны в PDF ))) Вечером обмою результат.
Следующий этап - определять формат не по размерам поля а по значению атрибута

[ssn]

http://dwg.ru/dnl/126
вот тут лежит мой макрос по печати.
только одно но... размеры форматки должны быть честные, т.е. размер А3 - 420 на сколько там, 290 что ли....
ну и так и остался не побеждённым момент создания пользовательского пейдж сетапа, делаю криво через ком строку... плохо конечно... но..
а так смотрю идёшь тем же путём что и я когда то давно давно

[Des501]

Столкнулся с такой "фичей", мож кто знает подскажите - почему создавая коллецию (код привожу далее) выделяются ТОЛЬКО простые, не динамические блоки? Для интереса нарисовал прямоугольник и сделал из него блок "BIGASS", раскидал его по чертежику. Все прекрасно собирается в список. Как только добавляю в него растяжение или что либо из автоматизации - перестает попадать в список, количество выбранных обьектов -0. Захожу в редактор блоков и удаляю всю автоматизацию и параметры - все ок

Код:

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

'=====================================================
  ' создаем набор
 
  Dim varData(0) As Variant
  Dim intData(0) As Integer

  intData(0) = 2
  varData(0) = "BIGASS"  ' имя блока
  
  objSelSet.Clear
  objSelSet.Select acSelectionSetAll, , , intData, varData
    
  MsgBox "Кол-во модулей: " & CStr(objSelSet.Count)

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