[求助]一次打印多图问题，高手救我。

terminator

我的工作对CAD要求不高，主要是出一些平面图。为了操作方便我经常是将我需要出的所有图都放在一个dwg文件里。如图中所示，绿色的线框为图纸边框，每次我打印的时候都是要用打印中“窗口”去拾取图纸边框，然后打印出一张图纸。要是图纸少还好办，但是图纸一多就非常麻烦，高手指教，如何一次就把所有的图都打出来。

阳春白雪

用布局试试看呀！
不知你是想都打在一张纸上还是怎么样？
如果是打在一张纸上，就可以用打印中，点“窗口”，再框一下就可以了！

123456

如果一张图需要打印一张的话，好像只有单独选择，集中打印的话，可以全部选中即可。

terminator

我是想每张图出在不同的纸上，大家在给出出注意。

BDYCAD

樓主你把你打印設置做好就再用這個程序就ok./
注意: 你的綠色的圖框要保障是PLINE(距形的) 不能是炸開的.

;;rogram by BAOLISP
;;;   1.  由於每人的打印要求不同. 所我沒法知道你的設置是什麼樣的. 所以為了這個程序可以通用少少
;;;       我對我很久以前開發的程序修改過了.
;;;   2.  這樣用戶首先要對自己的打印系統先自行設定好,
;;;   3.  之后你可以用這個程序自動全部打印完你這些綠色的圖框.
;;;  程序開發---BAOLISP
;;;                    DATA: 2003-10-15
(defun c:autoplot()
  (setvar "cmdecho" 0)
  (setq os(getvar "osmode" ))
  (setvar "osmode" 0)
  (setq a (ssget "x" '((0 . "LWPOLYLINE") (62 . 3))))
  (IF (= a nil)
   (progn (ALERT "當前沒有你要打印的圖紙, 請把綠色打印圖框加上......
                 \n本訊息由系統自動提示.") (exit))
    )
  (SETQ AA (SSLENGTH A))
  (setq nu 0)
  (REPEAT AA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;打印循環
    (SETQ AC (entget (SSNAME A nu)))
    (setq n 0)
    (repeat (length ac)
      (setq qend (nth n ac))
      (if (= (car qend) 10)
        (setq one (cdr qend))
        (setq n (1+ n))))
    (setq trhee (cdr (nth (+ n 8) ac)))
  (plot_bdy)
  (setq nu (+ nu 1))
    )
  (setvar "cmdecho" 1) (setvar "osmode" os)
  (princ))
(defun plot_bdy()
  (command "-plot" "y" "" "" "" "m" "L" "N" "w" one trhee
           "1=1" "C" "" "" "" "N" "N" "Y" ""))
(PRINC "\n程序加載成功, 用autoplot啟動自動打印.")




-----------------------------------------------------------------------
我愛CAD. 共同學習, 共同交流. 共同進步.

terminator

晕ing，不好意思，本人属菜鸟级，编程不会，怎么加载呢？

gzy

干脆每个图用一个文件打印。

runkeji

点击 工具 加载程序 在命令行 输入  AUTOPLOT命令。字符小写

qeelee

这本书看看吧！：|>

BDYCAD

其實樓主應更進一步學好CAD全面一點. 我不明白你為什麼要這樣處理. 如果一個圖紙文件里好象你這樣搞得太多, 那你以后再找資料就很麻煩了. 為了規范使用CAD和合理管理你的圖檔. 你打印不防用批處理打印. 效果是很好的.



-------------------------------------------------------------
我愛CAD.