Multiple Sheets in Model Space

[CAD_Question]

Hi,

 

I would like to make a lisp routine that will create page setups for multiple drawings in model space. Has anyone tackled this before? If so, what would the lisp routine look like?

[ronjonp]

Create your setups in a template then import them using something like this:

(defun c:pagesetups (/ dwt)
  (cond	((findfile (setq dwt "X:/Your/Shared/Path/YourTemplate.dwt"))
	 ;; Remove plot configs
	 (vlax-for x (vla-get-plotconfigurations (vla-get-activedocument (vlax-get-acad-object)))
	   (vla-delete x)
	 )
	 (setvar 'filedia 0)
	 (vl-cmdf ".-psetupin" dwt "*")
	 (setvar 'filedia 1)
	)
  )
  (princ)
)

 

[maratovich]

Everything is already there:

Revers - Automatic batch printing a multiple format (rectangles, frames) of model space and layouts.