[推荐]：用plt文件打印，能把文件拖到打印机图标上实现吗？

goodsheep

提示说需要定义关联操作，我知道是:“copy XXX.plt prn”但是如何关联？
据说要在文件类型里边。

秋枫

不可以。不过你可以自己写一个批处理程序或wscript程序。
文件类型里面可以，说起来烦。

给你写一个批处理程序例子，CopyToPrn.bat
以后把*.plt文件拖到这个文件的图标或快捷方式上即可。可以拖一批文件。不能是文件夹（要这种功能的话自己去研究一下windows script language.

1. 
   
2. @echo off
   
3. echo CopyToPrn.BAT copies any number of files
   
4. echo to a prn device.
   
5. echo The command uses the following syntax:
   
6. echo CopyToPrn file1 file2 ...
   
7. echo ----------------------------------------
   
8. echo Written by Qiu Feng, Zhejiang University
   
9. echo Jan.21, 2002
   
10. 
    
11. rem Printer can be set as Prn, Lpt1, Lpt2
    
12. 
    
13. set Printer=Prn
    
14. 
    
15. :getfile
    
16.   if "%1"=="" goto end
    
17.   @echo on
    
18.   copy %1 %Printer%
    
19.   @echo off
    
20.   shift
    
21. goto getfile
    
22. 
    
23. :end
    
24. set Printer=
    
25. echo All files copied..
    

复制代码

程序下载附后。

申士

我在晓东空间旧址问过这个问题，后来也是写了个批处理程序来解决。方法简单，但很实用。
解决方法：建一个plt文件夹，将所有的文件打印到这个文件夹中。将附件中的plt.bat放到同一级目录下运行,就可以将plt文件夹中的打印文件全部打印完成，然后删除打印过的*.plt文件。大家可以试试。

梦断江南

我是-〉
建一个plt文件夹，将所有的文件打印到这个文件夹中
copy *.plt prn

goodsheep

我觉得还是秋枫的方法最有效，
不过，有个bug,

   如果文件夹的名称里面有空格，比如“my documents”，而且
   批处理文件不在当前目录，或者你就把桌面的plt文件拖到桌面
   的那个批处理文件上，
   那么拖动是不能实现打印的！
   如果没有空格，哪怕再长的文件夹名称，或者中文，都可以打印。

有办法处理吗？

批处理我没有好好学，没想到今天仍然这么有用，呵呵。

Quelea

这个bug可以纠正：

copy %1 %Printer%
改为
copy "%1" %Printer%
即可。

最初由 goodsheep 发布
[B]我觉得还是秋枫的方法最有效，
不过，有个bug,

   如果文件夹的名称里面有空格，比如“my documents”，而且
   批处理文件不在当前目录，或者你就把桌面的plt文件拖到桌面
   的那个批处理文件上，
   那么... [/B]

1. 
   
2. @echo off
   
3. echo CopyToPrn.BAT copies any number of files
   
4. echo to a prn device.
   
5. echo The command uses the following syntax:
   
6. echo CopyToPrn file1 file2 ...
   
7. echo ----------------------------------------
   
8. echo Written by Qiu Feng, Zhejiang University
   
9. echo Jan.21, 2002
   
10. 
    
11. rem Printer can be set as Prn, Lpt1, Lpt2
    
12. 
    
13. set Printer=Prn
    
14. 
    
15. :getfile
    
16.   if "%1"=="" goto end
    
17.   @echo on
    
18.   copy "%1" %Printer%
    
19.   @echo off
    
20.   shift
    
21. goto getfile
    
22. 
    
23. :end
    
24. set Printer=
    
25. echo All files copied.
    

复制代码

秋枫

这里是我用jscript写的一个程序，下面是源代码。附件下载。

用法：直接把'要打印的PLT文件'或'含有要打印的PLT文件的文件夹'拖到这个程序的图标上即可。可以一次拖多个文件或文件夹。对于扩展名不是指定的文件类型（如PLT）可以自动忽略。

在winxp下面测试通过。未在win98下面测试

2. 
   
3. /* ======================================================================
   
4. 
   
5. JScript Source File -- Created with SAPIEN Technologies PrimalSCRIPT(TM)
   
6. 
   
7. NAME: PLOT.JS
   
8. 
   
9. AUTHOR: Qiu Feng , Zhejiang University
   
10. DATE  : 2002-2-1
    
11. 
    
12. COMMENT: This program try to copy plot files to printer device by Drag and Drop.
    
13. 
    
14. 这是一个自动打印PLT文件的JSCRIPT程序
    
15. 
    
16. 用法：直接把'要打印的PLT文件'或'含有要打印的PLT文件的文件夹'拖到这个程序的图标上
    
17. 
    
18. 即可。
    
19. 可以一次拖多个文件或文件夹。对于扩展名不是指定的文件类型（如PLT）可以自动忽略。
    
20. 
    
21. ========================================================================= */
    
22. 
    
23. var vbOKOnly = 0;
    
24. var vbOKCancel = 1;
    
25. var vbYesNo = 4;
    
26. var vbInformation = 64;
    
27. var vbQuestion = 32;
    
28. var vbCancel = 2;
    
29. var vbYes = 6;
    
30. var vbNo = 7;
    
31. 
    
32. var Plotter = "LPT1";   //指定打印机口
    
33. var AlertCount = 10;    //当文件数超过此数时要求确认
    
34. var FileExt = ".PLT";   //PLOT文件扩展名
    
35. var AboutString = "这是一个自动打印PLT文件的JSCRIPT程序\n\n用法：直接把'要打印的
    
36. 
    
37. PLT文件'或'含有要打印的PLT文件的文件夹'拖到这个程序的图标上即可。可以一次拖多个
    
38. 
    
39. 文件或文件夹。对于扩展名不是指定的文件类型（如PLT）可以自动忽略，自动搜索子文件
    
40. 
    
41. 夹中的打印文件。\n\n程序设计：邱枫，浙江大学建筑系，2002.2"
    
42. var Args = WScript.Arguments;
    
43. var fso = new ActiveXObject("Scripting.FileSystemObject");
    
44. var WShell = new ActiveXObject("WScript.Shell");
    
45. var fList = new Array();
    
46. 
    
47. ///////////////////////////////////////////////////////////
    
48. 
    
49.   main();
    
50. 
    
51. ///////////////////////////////////////////////////////////
    
52. 
    
53. function About() {
    
54.     var WSHShell = WScript.CreateObject("WScript.Shell");
    
55.     WSHShell.Popup(AboutString, 0, "说明", vbOKOnly + vbInformation );
    
56. }
    
57. 
    
58. function AddFolder(f) {
    
59.   var Files, Folders, tempf;
    
60.   if (fso.FolderExists(f))
    
61.   { Files = new Enumerator(fso.GetFolder(f).Files);
    
62.     for (; !Files.atEnd(); Files.moveNext())
    
63.      { tempf = Files.item();
    
64.        if (tempf.name.substr(tempf.name.length-4).toUpperCase() == FileExt)
    
65.          {
    
66.                     fList = fList.concat(tempf.path);
    
67.              }
    
68.      }
    
69.     Folders = new Enumerator(fso.GetFolder(f).SubFolders);
    
70.     for (; !Folders.atEnd(); Folders.moveNext())
    
71.             AddFolder(Folders.item().path);  //此处递归
    
72.   }
    
73. }   
    
74. 
    
75. // 主程序
    
76. function main() {
    
77. var f;
    
78. 
    
79. if (Args.Length == 0)    //参数
    
80. {
    
81.         About();
    
82.         WScript.Quit();
    
83. }
    
84. 
    
85. for (i = 0; i < Args.Length; i++)
    
86. {
    
87.   f = Args.Item (i);
    
88.   
    
89.   if ( f.substr(f.length-4).toUpperCase() == FileExt )
    
90.   { fList = fList.concat(f); }
    
91. 
    
92.   if (fso.FolderExists(f))
    
93.   { AddFolder(f); }
    
94. 
    
95. }
    
96.                         //确认没搞错
    
97. if (fList.length > AlertCount)
    
98. { if (vbNo == WShell.Popup("你选取了"+fList.length+"个PLT文件打印，确认没弄错？  
    
99. 
    
100. (60秒后自动确认)\n\n"+fList.join("\n"),
     
101.                60, "确认",vbYesNo + vbQuestion))
     
102.   {
     
103.     WShell.Popup("打印取消。", 10, "PLOT", vbOKOnly+vbInformation);
     
104.     WScript.Quit();
     
105.   }
     
106. }
     
107.                         //往Plotter设备上copy
     
108. for (i=0; i<fList.length; i++)
     
109. {
     
110.   f = fso.GetFile(fList[i]);
     
111.   f.Copy(Plotter);
     
112. }
     
113. 
     
114. WShell.Popup("打印完毕。", 10, "PLOT", vbOKOnly+vbInformation);
     
115. 
     
116. } // 主程序结束;
     

<br /> /* ======================================================================<br /> <br /> JScript Source File -- Created with SAPIEN Technologies PrimalSCRIPT(TM)<br /> <br /> NAME: PLOT.JS<br /> <br /> AUTHOR: Qiu Feng , Zhejiang University<br /> DATE  : 2002-2-1<br /> <br /> COMMENT: This program try to copy plot files to printer device by Drag and Drop.<br /> <br /> 这是一个自动打印PLT文件的JSCRIPT程序<br /> <br /> 用法：直接把'要打印的PLT文件'或'含有要打印的PLT文件的文件夹'拖到这个程序的图标上<br /> <br /> 即可。<br /> 可以一次拖多个文件或文件夹。对于扩展名不是指定的文件类型（如PLT）可以自动忽略。<br /> <br /> ========================================================================= */<br /> <br /> var vbOKOnly = 0;<br /> var vbOKCancel = 1;<br /> var vbYesNo = 4;<br /> var vbInformation = 64;<br /> var vbQuestion = 32;<br /> var vbCancel = 2;<br /> var vbYes = 6;<br /> var vbNo = 7;<br /> <br /> var Plotter = "LPT1";   //指定打印机口<br /> var AlertCount = 10;    //当文件数超过此数时要求确认<br /> var FileExt = ".PLT";   //PLOT文件扩展名<br /> var AboutString = "这是一个自动打印PLT文件的JSCRIPT程序\n\n用法：直接把'要打印的<br /> <br /> PLT文件'或'含有要打印的PLT文件的文件夹'拖到这个程序的图标上即可。可以一次拖多个<br /> <br /> 文件或文件夹。对于扩展名不是指定的文件类型（如PLT）可以自动忽略，自动搜索子文件<br /> <br /> 夹中的打印文件。\n\n程序设计：邱枫，浙江大学建筑系，2002.2"<br /> var Args = WScript.Arguments;<br /> var fso = new ActiveXObject("Scripting.FileSystemObject");<br /> var WShell = new ActiveXObject("WScript.Shell");<br /> var fList = new Array();<br /> <br /> ///////////////////////////////////////////////////////////<br /> <br />   main();<br /> <br /> ///////////////////////////////////////////////////////////<br /> <br /> function About() {<br />     var WSHShell = WScript.CreateObject("WScript.Shell");<br />     WSHShell.Popup(AboutString, 0, "说明", vbOKOnly + vbInformation );<br /> } <br /> <br /> function AddFolder(f) {<br />   var Files, Folders, tempf;<br />   if (fso.FolderExists(f))<br />   { Files = new Enumerator(fso.GetFolder(f).Files);<br />     for (; !Files.atEnd(); Files.moveNext())<br />      { tempf = Files.item();<br />        if (tempf.name.substr(tempf.name.length-4).toUpperCase() == FileExt)<br />          {<br />                     fList = fList.concat(tempf.path);<br />              }<br />      }<br />     Folders = new Enumerator(fso.GetFolder(f).SubFolders);<br />     for (; !Folders.atEnd(); Folders.moveNext())<br />             AddFolder(Folders.item().path);  //此处递归<br />   }<br /> }   <br /> <br /> // 主程序<br /> function main() {<br /> var f;<br /> <br /> if (Args.Length == 0)    //参数<br /> {<br />         About();<br />         WScript.Quit();<br /> }<br /> <br /> for (i = 0; i < Args.Length; i++) <br /> { <br />   f = Args.Item (i);<br />   <br />   if ( f.substr(f.length-4).toUpperCase() == FileExt )<br />   { fList = fList.concat(f); }<br /> <br />   if (fso.FolderExists(f))<br />   { AddFolder(f); }<br /> <br /> }<br />                         //确认没搞错<br /> if (fList.length > AlertCount)<br /> { if (vbNo == WShell.Popup("你选取了"+fList.length+"个PLT文件打印，确认没弄错？  <br /> <br /> (60秒后自动确认)\n\n"+fList.join("\n"),<br />                60, "确认",vbYesNo + vbQuestion))<br />   { <br />     WShell.Popup("打印取消。", 10, "PLOT", vbOKOnly+vbInformation);<br />     WScript.Quit();<br />   }<br /> }<br />                         //往Plotter设备上copy<br /> for (i=0; i<fList.length; i++)<br /> {<br />   f = fso.GetFile(fList[i]);<br />   f.Copy(Plotter);<br /> }<br /> <br /> WShell.Popup("打印完毕。", 10, "PLOT", vbOKOnly+vbInformation);<br /> <br /> } // 主程序结束;<br />

申士

真为打印机生产厂商感到难过，如此简单且必要的批处理功能居然没有，还要有劳各位大侠来提供BUG，真不知那些打印文件管理器是怎么设计的。小弟在此多谢各位大侠的古道热肠了...
:2  :2  :2  :2

wntd

哇！真是厉害！技术上的可以练就，但是热心肠是天生的！各位老大！祝论坛蒸蒸日上，越办越好！！！

freedomyang

用PLT文件实现批打印，效果并不理想。AutoCAD提供了多种方式可以做到批打印。例如采用Autospool方式，就可完成多个文件的后台输出。

tdp8888

附件已删，我还没有下载，能不能再上传呀？

xzg_hello

最初由 tdp8888 发布
[B]附件已删，我还没有下载，能不能再上传呀？ [/B]

不必再上传的，前面几个都是批处理文件*.bat，最后一个是脚本文件文件名是plot.js，你只要将上面的源码用记事本存到相应的文件中就行了。

这里有秋风上传的附件http://www.xdcad.net/forum/showt ... d=389584#post389584

xzg_hello

最初由 freedomyang 发布
[B]用PLT文件实现批打印，效果并不理想。AutoCAD提供了多种方式可以做到批打印。例如采用Autospool方式，就可完成多个文件的后台输出。 [/B]

请演示下autosool的使用*-*4

zzt21963

lihai!!佩服

dzy

我做成后为什么不行啊?