[smigami]

Добрый день!

Подскажите, есть ли возможность в Автокаде вывести на один лист чертежи сразу из нескольких файлов?
Например, 4 файла и в каждом файле чертеж на формате А3. Можно ли их вывести на один лист А1?
Аналогичная возможность есть в Компасе

[maratovich]

Это называется "компоновка листов на плотер".
Такой возможности пока не встречалось.
Единственным вариантом является перенос всех форматов в один файл, а там уже и расположить (состыковать) как надо, и вывести на печать куда и как надо.

[Сергей812]

можете попробовать через xref сделать... собрать в одном файле вспомогательном и там настроить на листе А1 через ВЭ.. только оформление, наверно, в модели придется делать в исходных чертежах..

[VitalyAF]

Для HP у Autodesk есть такие драйвера, позволяют автоматически заполнять площадь печати форматами, ищите...

[SetQ]

Offtop: Десять лет назад решалась противоположная задача - раскидать один А1 на восемь А4.

[maratovich]

Сообщение от SetQ раскидать один А1 на восемь А4.

Это уже не проблема, вот компоновка это интересней, тут алгоритм хороший нужен.

[Сергей812]

или руками.. экспортировать из пространства листа в модель (можно использовать подшивку - для нумерации и т.д.), затем через xref собрать в новом документе

[SetQ]

Сообщение от maratovich вот компоновка это интересней, тут алгоритм хороший нужен.

Или раскрой - как разместить заданное количество листов на минимальном количестве А1-ых?

Можно через pdf и драйвер принтера что-то сделать: напечатать А3 в отдельные (или в один) pdf-ы, а затем при печати на физический принтер (или плоттер) указать "печать нескольких страниц на одном листе".

[smigami]

Сообщение от Сергей812 или руками

Это все понятно, но не подходит в данной ситуации
файлы мои сделаны в Advance Steel, и обновляются через программу автоматически. и их ооочень много
Хотелось бы напрямую печатать нужные чертежи, а формат плоттера А1.

Ну нельзя так нельзя

[Сергей812]

Ну в автокаде это несложно, в принципе)
Лисп-экспортирование из пространства всех листов чертежа в модель (post 2)
Вставить xref программно тоже несложно:

Код:

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

 (command "_.-xref" "_attach" %имя файла dwg% "_Scale" "1" "_rotate" "90" %точка вставки%  "")

Т.е. можно задать как точку вставки, так и поворот.

Итого, дело за алгоритмом-как вставлять xref в файл - смещая точку вставки и вращая при необходимости.

[VitalyAF]

вот, нарыл на просторах...

Код:

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

 ;;;* _ _ C O D E _ _ S T A R T S _ _ H E R E _ _

;;;*
;;;* To use:
;;;* (CreateLayoutArray (list (list "1" "2") (list "3" "4")) "Dsize" 17 11)
;;;*
;;;* This creates an array of:
;;;*
;;;* [ 1 ][ 2 ]
;;;* [ 3 ][ 4 ]
;;;*
;;;* Error checking for this routine is non-existant!
;;;*
(defun CreateLayoutArray (LayoutNameRows	NewLayoutName
xDist	yDist	/
Acad	ThisDwg	Layouts
LayoutListing	NewLayout
LayoutName OrigLayout i
ObjListing OrigLayoutBlock
varCopies Copies	pt1
pt2	Edata	DidVP
Obj
)
(if (and LayoutNameRows NewLayoutName xDist yDist)
(progn
(vl-load-com)
(setq Acad	(vlax-get-acad-object)
ThisDwg	(vla-get-ActiveDocument acad)
Layouts	(vla-get-Layouts ThisDwg)
LayoutListing (mapcar 'strcase (layoutlist))
NewLayout	(vla-add Layouts NewLayoutName)
pt1	(vlax-make-safearray vlax-vbDouble (cons 0 2))
pt2	(vlax-make-safearray vlax-vbDouble (cons 0 2))
)
(vlax-safearray-put-element pt2 1 (- yDist))
(foreach LayoutNameRow (reverse LayoutNameRows)
(vlax-safearray-put-element pt2 0 (- xDist))
(vlax-safearray-put-element
pt2
1
(+ (vlax-safearray-get-element pt2 1) yDist)
)
(foreach LayoutName LayoutNameRow
(vlax-safearray-put-element
pt2
0
(+ (vlax-safearray-get-element pt2 0) xDist)
)
(if (member (strcase LayoutName) LayoutListing)
(progn
(setq OrigLayout
(vla-item Layouts LayoutName)
OrigLayoutBlock
(vla-get-Block OrigLayout)
i 0
ObjListing
nil
)
(while (< i (vla-get-count OrigLayoutBlock))
(setq Obj (vla-item OrigLayoutBlock i)
Edata (entget (vlax-vla-object->ename Obj))
)
;;;* Copy only viewports not on layer zero, except the first one (ps viewport)
(if (or
(and
(= "VIEWPORT" (cdr (assoc 0 Edata)))
(/= "0" (cdr (assoc 8 Edata)))
)
(and
(= "VIEWPORT" (cdr (assoc 0 Edata)))
(= "0" (cdr (assoc 8 Edata)))
(not DidVP)
(setq DidVP T)
)
(/= "VIEWPORT" (cdr (assoc 0 Edata)))
)
(setq	ObjListing
(cons (vla-item OrigLayoutBlock i)
ObjListing
)
)
)
(setq i (1+ i))
)
(if ObjListing
(progn
(setq ObjListing (reverse ObjListing))
(setq	ObjArray (vlax-make-safearray
vlax-vbObject
(cons 0 (- (length ObjListing) 1))
)
)
(vlax-safearray-fill ObjArray ObjListing)
(setq	varCopies (vla-CopyObjects
ThisDwg
ObjArray
(vla-get-block NewLayout)
)
Copies	(vlax-safearray->list
(vlax-variant-value varCopies)
)
i	1
)
(foreach Obj Copies
(vla-move Obj pt1 pt2)
)
)
)
)
)
)
)
(vlax-release-object Layouts)
(vlax-release-object ThisDwg)
(vlax-release-object Acad)
)
)
)


(defun LayoutListOrder (/ layouts i retval layout)
(setq	layouts	(vla-get-layouts
(vla-get-activedocument (vlax-get-acad-object))
)
i	-1
)
(repeat (vla-get-count layouts)
(setq retval (cons (setq i (1+ i)) retval))
)
(vlax-for layout layouts
(setq retval
(subst
(vla-get-name layout)
(vla-get-taborder layout)
retval
)
)
)
(reverse retval)
)


(defun LayoutLayouts
(Layouts ItemsPerRow RowsPerLayout / Items Rows RetVal)
(while Layouts
(while (and	Layouts
(or (not Rows) (< (length Rows) RowsPerLayout))
)
(while (and Layouts
(or (not Items) (< (length Items) ItemsPerRow))
)
(setq Items (cons (car Layouts) Items)
Layouts (cdr Layouts)
)
)
(setq Rows (cons (reverse Items) Rows)
Items nil
)
)
(setq RetVal (cons (reverse Rows) RetVal)
Rows	nil
)
)
(reverse RetVal)
)


(defun CreateNewLayoutName (i)
(itoa (+ i (atoi (substr (rtos (getvar "CDATE") 2 8) 10))))
)

;;;* Create a 2x2 Layout Array
;;;* Additional arrays can easily be made by setting
;;;* the argument required by LayoutLayouts function
(defun c:LAYOUT2X2 (/ x y Layouts LayoutNameRows i)
(if (and (setq x (getreal "\nX distance: "))
(setq y (getreal "\nY distance: "))
)
(progn
(if dos_checklist
(progn
(setq	Layouts	(vl-remove
nil
(mapcar '(lambda (x)
(if (= 1 (cdr x))
(car x)
)
)
(dos_checklist
"Available Layouts"
"Select layouts for 2x2 arraying:"
(mapcar '(lambda (x) (cons x 0))
(cdr (LayoutListOrder))
)
)
)
)
)
)
(setq Layouts (cdr (LayoutListOrder)))
)
(progn
(setq i 1)
(foreach LayoutNameRows	(LayoutLayouts Layouts 2 2) ;<- 2x2 array!
(CreateLayoutArray
LayoutNameRows
(strcat "2x2 " (CreateNewLayoutName i)) ;<- Layout names!
x
y
)
(setq i (1+ i))
)
)
)
)
(princ)
)

[maratovich]

Сообщение от smigami Хотелось бы напрямую печатать нужные чертежи, а формат плоттера А1.

А принтера А3 нет ?

[Сергей812]

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

[Stefanovsky Denis]

Сообщение от maratovich А принтера А3 нет ?

Offtop: Ребята на прошлом месте любили общие данные формата А3 запихивать на А1 и посылать портянкой на печать. Потом все дружно пол дня общие данные резали, хотя принтер А3 был))

[smigami]

Сообщение от VitalyAF вот, нарыл на просторах...

И куда это все вписать?
)))))))))))))

[maratovich]

Сообщение от smigami И куда это все вписать?

Вопрос не верен. Сперва надо спрашивать - "Это чего такое "
А потом уже что с этим делать....
Вот я тоже "нарыл"
Как собрать в один файл множество dwg файлов