多文件批量打印，也用到了各位大侠的源码。

nxchenjk

(defun c:tt ()
  (vl-load-com)
  (setq Filepath  "D:/")
  (if (setq Filepath (getfiled "请选择数据源文件夹的任意一个文件" Filepath "dwg" 2))
    (progn
      (command "-style" "" "宋体" "" "" "" "" "" "")
      (setq strpath (vl-filename-directory Filepath)
     filelist(vl-directory-files strPath "*.dwg" 1)
      )
      (command "erase" "all" "")
      (setq m(getint"\n请输入打印份数:"))
      (repeat m
(setq i 0)
      (repeat (length filelist)
(setq FileName (strcat strpath "/" (nth i filelist))
       i   (1+ i)
)
(command "-insert" FileName "0,0")
(while (not (zerop (getvar "CMDACTIVE"))) (command ""))
(command "_.PLOT"
   "Y" ;_是否需要详细打印配置？[是(Y)/否(N)] <否>: y
          "" ;_输入布局名或 [?] <模型>:
        "[url=]\\\\192.168.102.148\\HP[/url] Color LaserJet 5550 PCL 6" ;_输入输出设备的名称或 [?]
        "A4" ;_输入图纸尺寸或 [?] <A3>:
        "M" ;_输入图纸单位 [英寸(I)/毫米(M] <毫米>:
        "L" ;_输入图形方向 [纵向(P)/横向(L)] <横向>:
        "N" ;_是否反向打印？[是(Y)/否(N)] <否>:
        "E" ;_输入打印区域 [显示(D)/范围(E)/图形界限(L)/视图(V)/窗口(W)] <范围>: w
        "FIT" ;_输入打印比例 (打印的 毫米=图形单位) 或 [布满(F)] <Fit>: fit
        "C" ;_输入打印偏移 (x,y) 或 [居中打印(C)] <0.00,0.00>: c
        "Y" ;_是否按样式打印？[是(Y)/否(N)] <是>:
        "acad.ctb" ;_输入打印样式表名称或 [?] (输入 . 表示无) <hp5100.ctb>:
        "Y" ;_是否打印线宽？[是(Y)/否(N)] <是>:
        "N" ;_是否删除隐藏线？[是(Y)/否(N)] <否>:
        "N" ;_是否打印到文件 [是(Y)/否(N)] <N>:
        "N" ;_是否保存模型选项卡的修改 .
        "Y" ;_是否继续打印 .
)
(command "erase" "all" "")
      ))
    )
  )
  (setq thr (strcat "打印" (rtos m 2 0) "份，共"(rtos (* m i) 2 0)"张"))
  (alert thr)
  (princ)
)

zmzk

多文件批量打印，能实现 打印前，先预览么？？

疯球

支持一下，，，，虽然看不懂

305341043

谢谢分享，试试会用不

lrd1861

支持一下不知好用不

逐月飞鸿

http://bbs.mjtd.com/forum.php?mo ... mp;extra=#pid489586
这个里面有自动获得打印机的代码！

lohas1118

如何使用

nxchenjk

lohas1118 发表于 2011-11-5 13:42
如何使用

改成你的打印机。在CAD中加载后。TT就可以了。呵呵

nxchenjk

逐月飞鸿 发表于 2011-11-5 09:46
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=90210&page=1&extra=#pid489586
这个里面有自动获得打 ...

谢谢。

aaacjh

你到底懂不懂什么叫 多文件批量打印啊,大哥!IflY```

yaokui25

支持一下，，，，，，

xiabin68

支持一下，，，，虽然看不懂，

sotop

是否支持多打印样式