多文件批量打印，也用到了各位大侠的源码。
本帖最后由 nxchenjk 于 2011-10-18 21:30 编辑(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
"" ;_输入布局名或 [?] <模型>:
"\\\\192.168.102.148\\HP 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)
)
多文件批量打印，能实现 打印前，先预览么？？
支持一下，，，，虽然看不懂 谢谢分享，试试会用不 支持一下不知好用不 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=90210&page=1&extra=#pid489586
这个里面有自动获得打印机的代码！ 如何使用 lohas1118 发表于 2011-11-5 13:42 static/image/common/back.gif
如何使用
改成你的打印机。在CAD中加载后。TT就可以了。呵呵 本帖最后由 nxchenjk 于 2011-11-6 18:23 编辑
逐月飞鸿 发表于 2011-11-5 09:46 http://bbs.mjtd.com/static/image/common/back.gif
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=90210&page=1&extra=#pid489586
这个里面有自动获得打 ...
谢谢。 你到底懂不懂什么叫 多文件批量打印啊,大哥!IflY``` 支持一下，，，，，， 支持一下，，，，虽然看不懂， 是否支持多打印样式
页:
[1]
2