[LISP程序]：批量打印程序

Torcky

(defun c:mp(/ oldosmode bomprint plotname plotter ctrl bomprint bomblockname minpoint maxpoint);print
  (command "undo" "be")
  (command "ucs" "w")
  (setq oldosmode(getvar "osmode"))
  (setvar "osmode" 0)
  (setq bomprint (ssget '((2 . "NewDwgBox"))))
  (setq plotname nil)
  (setq plotname(getint "\nEnter Plotter Name[1:Samsung SCX-4x20 Series PCL 6/2:HP LaserJet 5100 PS]<1>:"))
  (cond ;Select Printer
    ((or(= plotname 1)(= plotname nil))(setq plotter "\\\\SV\\Samsung SCX-4x20 Series PCL 6"))
    ((= plotname 2)(setq plotter "HP LaserJet 5100 PS"))
    ((= plotname 3)(setq plotter "HP LaserJet 5000 Series PCL"))
    (t (alert "Please Select a Plotter Device!")(exit))
    );end cond
  (setq ctrl 0)
  (while (< ctrl (sslength bomprint))
    (setq bomblockname (ssname bomprint ctrl )
          boxscale(cdr(assoc 41 (entget bomblockname)))
          insp(cdr(assoc 10 (entget bomblockname))))
   
        (setq minpoint  (mapcar '- insp (mapcar '*(list 119 108 0)
                               (list boxscale boxscale boxscale)))
              maxpoint  (mapcar '+ insp (mapcar '*(list 179 103 0)
                               (list boxscale boxscale boxscale))))
    ;base on InsertPoint get corner for printing
        (command "-plot" "y" "" plotter "A4(210 x 297 mm)" "m"
                 "l" "n" "w" minpoint maxpoint "f" "c" "y" "acad.ctb" "y" "n" "n" "n" "y")
    (setq ctrl(1+ ctrl))
    );end while
  (princ (strcat "\n********** 共打印 " (itoa ctrl) " 张 **********\n"))
  (setvar "osmode" oldosmode)
  (command "undo" "e")
  (princ)
  )

xiu19791981

要装那些驱动,你没说明,别人用起来也难啊

baggio98

LISP不懂,,,怎么用呢??复制进去编吗

蓝月月

楼主啊,这些程序不懂.我想问你一下,如果我想把CAD里的打印图纸的份数设为2或是其它的数量,当我每框选一个图纸时就自动的打印出来2份,就不用我设置份数.免得我每次都去修改啊.
     曾看到过教学中心里的 CAD一式多份打印输出  说把打印机属性里的份数更改为2后保存即可,可是我今天试过了,在CAD中根本没改变,倒是在WORD中选打印,那打印份数那里变为了2.....请问在CAD中怎么就没有改变呢?怎么设置?请指教!

lemonx

这么几行就能解决问题，看来秋枫也不能不服你了，呵呵

蓝月月

求求高人理睬一下象我这样的初级会员吧?求教!

CNYouth

如何确定比例？

feizheng

楼主总该说明一下具体怎么设置吧，不可能每台电脑打印机都和你一样啊

yy5heng

这好像是打印一个文件里多份图吧？能否打印多个文件呢？

MJJ3468

最初由 Torcky 发布
[B](defun c:mp(/ oldosmode bomprint plotname plotter ctrl bomprint bomblockname minpoint maxpoint);print
  (command "undo" "be")
  (command "ucs" "w")
  (setq oldosmode(getvar "osmode"))
  (setvar "... [/B]

楼主，最小点，和最大点错误啊。请完善

y-004

LISP不懂,,,怎么用呢??