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

terminator · 发表于 2003-10-14 19:51:00

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

4catt0iypaj.jpg

阳春白雪 · 发表于 2003-10-14 21:55:00

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

123456 · 发表于 2003-10-14 22:38:00

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

terminator · 发表于 2003-10-15 08:40:00

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

BDYCAD · 发表于 2003-10-15 11:15:00

樓主你把你打印設置做好就再用這個程序就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 · 发表于 2003-10-15 12:15:00

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

gzy · 发表于 2003-10-15 12:32:00

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

runkeji · 发表于 2003-10-15 13:02:00

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

qeelee · 发表于 2003-10-15 13:03:00

这本书看看吧！：|>

BDYCAD · 发表于 2003-10-15 16:11:00

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

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

发表回复

精选推荐