[编程交流] 合并打印lisp

; Batch plot using object in landscape mode a4 sheet
(defun c:prl (/ ss mn mx)
(setq num (getint "\nHow many plots to do ?:"))
(repeat num
     (vl-load-com)
     (if (setq ss  (ssget "_:S:E" '((0 . "INSERT,LWPOLYLINE"))))
         (progn
 (vla-getboundingbox (vlax-ename->vla-object (ssname ss 0)) 'mn'mx)
    (command "-plot" "Y" "model" "ABXPDF Writer.pc3" "A4" "Millimeters" "Landscape" "Y" "Window" (trans (vlax-safearray->list mn) 0 1)
        (trans (vlax-safearray->list mx) 0 1)
"Fit" "0.00, 0.00" "Y" "monochrome.ctb" "Y" "Wireframe" "N" "N" "Y")
               )
         )
     )
)

; Batch plot using object in portrait mode a4 sheet
(defun c:prp (/ ss mn mx)
(setq num (getint "\nHow many plots to do ?:"))
(repeat num
     (vl-load-com)
     (if (setq ss  (ssget "_:S:E" '((0 . "INSERT,LWPOLYLINE"))))
         (progn
 (vla-getboundingbox (vlax-ename->vla-object (ssname ss 0)) 'mn'mx)
    (command "-plot" "Y" "model" "ABXPDF Writer.pc3" "A4" "Millimeters" "Portrait" "N" "Window" (trans (vlax-safearray->list mn) 0 1)
        (trans (vlax-safearray->list mx) 0 1)
"Fit" "0.00, 0.00" "Y" "monochrome.ctb" "Y" "Wireframe" "N" "N" "Y")
               )
         )
     )
)

; Batch plot using object in landscape mode a4 sheet
(defun prl ( mnp mxp / num )
 (setq num (getint "\nHow many plots to do ?: "))
 (repeat num
   (command "-plot" "Y" "model" "ABXPDF Writer.pc3" "A4" "Millimeters" "Landscape" "Y" "Window" mnp mxp "Fit" "0.00, 0.00" "Y" "monochrome.ctb" "Y" "Wireframe" "N" "N" "Y")
 )
)
; Batch plot using object in portrait mode a4 sheet
(defun prp ( mnp mxp / num )
 (setq num (getint "\nHow many plots to do ?: "))
 (repeat num
   (command "-plot" "Y" "model" "ABXPDF Writer.pc3" "A4" "Millimeters" "Portrait" "N" "Window" mnp mxp "Fit" "0.00, 0.00" "Y" "monochrome.ctb" "Y" "Wireframe" "N" "N" "Y")
 )
)
(defun c:pr ( / ss mn mx mnp mxp )
 (vl-load-com)
 (if (setq ss (ssget "_:S:E" '((0 . "INSERT,LWPOLYLINE"))))
   (progn
     (vla-getboundingbox (vlax-ename->vla-object (ssname ss 0)) 'mn 'mx)
     (setq mnp (trans (vlax-safearray->list mn) 0 1))
     (setq mxp (trans (vlax-safearray->list mx) 0 1))
     (if (< (car (mapcar '- mxp mnp)) (cadr (mapcar '- mxp mnp)))
       (prp mnp mxp)
       (prl mnp mxp)
     )
   )
 )
 (princ)
)