scr批处理停滞

newbuser

小弟自己整理的打印程序，经测试已经可以单幅图投入生产使用，但用scr脚本程序却无法正常循环调用lisp批量打印，下面这个scr就是小弟的编辑手法，如有不对之处，还请请高手赐教。

2. ；；scr编辑内容
   
3. Open C:\例图\2595.40-472.75.dwg
   
4. dy
   
5. qsave
   
6. close
   
7. Open C:\例图\2595.40-473.25.dwg
   
8. dy
   
9. qsave
   
10. close
    
11. Open C:\例图\2595.40-473.50.dwg
    
12. dy
    
13. qsave
    
14. close
    
15. Open C:\例图\2595.40-473.75.dwg
    
16. dy
    
17. qsave
    
18. close
    
19. Open C:\例图\2595.40-475.50.dwg
    
20. dy
    
21. qsave
    
22. close
    
23. Open C:\例图\2595.40-476.00.dwg
    
24. dy
    
25. qsave
    
26. close
    
27. Open C:\例图\2595.40-476.25.dwg
    
28. dy
    
29. qsave
    
30. close
    
31. Open C:\例图\2595.40-481.00.dwg
    
32. dy
    
33. qsave
    
34. close
    
35. =========
    
36. 单幅打印程序
    
37. =========
    
38. 
    
39. (defun c:dy()
    
40. (command "zoom" "e")
    
41. (command "-plot"
    
42.   "y"                                              ;是否需要详细打印配置
    
43.   "模型"                                           ;输入布局、模型名称
    
44.   "pdffactory Pro"                                 ;输入输出设备的名称 (lisp语言中的一个 \ 符号需要用 \\ 符号表示，即\=>\\)
    
45.   "A4"                                             ;输入图纸尺寸
    
46.   "m"                                              ;输入图纸单位(I:英寸 M:毫米)
    
47.   "l"                                              ;输入图形方向(纵向:P 横向:L)
    
48.   "n"                                              ;是否反向打印
    
49.   "e"                                              ;输入打印区域(显示:D 范围:E 图形界限:L 视图:V 窗口:W)
    
50.   "f"                                              ;输入打印比例(F:布满)
    
51.   "c"                                              ;输入打印偏移(居中打印:C)
    
52.   "y"                                              ;是否按样式打印
    
53.   "acad.ctb"                                       ;输入打印样式名称
    
54.   "y"                                              ;是否打印线宽
    
55.   "a"                                              ;输入着色打印设置(按显示:A 线框:W 消隐:H 渲染:R)
    
56.   "n"                                              ;是否打印到文件
    
57.   "n"                                              ;是否保存对页面设置的修改
    
58.   "y"                                              ;是否继续打印
    
59. )
    
60. )
    
61. ;;打印机列表
    
62. ;;pdffactory Pro

；；scr编辑内容<br /> Open C:\例图\2595.40-472.75.dwg<br /> dy<br /> qsave<br /> close<br /> Open C:\例图\2595.40-473.25.dwg<br /> dy<br /> qsave<br /> close<br /> Open C:\例图\2595.40-473.50.dwg<br /> dy<br /> qsave<br /> close<br /> Open C:\例图\2595.40-473.75.dwg<br /> dy<br /> qsave<br /> close<br /> Open C:\例图\2595.40-475.50.dwg<br /> dy<br /> qsave<br /> close<br /> Open C:\例图\2595.40-476.00.dwg<br /> dy<br /> qsave<br /> close<br /> Open C:\例图\2595.40-476.25.dwg<br /> dy<br /> qsave<br /> close<br /> Open C:\例图\2595.40-481.00.dwg<br /> dy<br /> qsave<br /> close<br /> =========<br /> 单幅打印程序<br /> =========<br /> <br /> (defun c:dy()<br /> (command "zoom" "e")<br /> (command "-plot"<br />   "y"                                              ;是否需要详细打印配置<br />   "模型"                                           ;输入布局、模型名称<br />   "pdffactory Pro"                                 ;输入输出设备的名称 (lisp语言中的一个 \ 符号需要用 \\ 符号表示，即\=>\\)<br />   "A4"                                             ;输入图纸尺寸<br />   "m"                                              ;输入图纸单位(I:英寸 M:毫米)<br />   "l"                                              ;输入图形方向(纵向:P 横向:L)<br />   "n"                                              ;是否反向打印<br />   "e"                                              ;输入打印区域(显示:D 范围:E 图形界限:L 视图:V 窗口:W)<br />   "f"                                              ;输入打印比例(F:布满)<br />   "c"                                              ;输入打印偏移(居中打印:C)<br />   "y"                                              ;是否按样式打印<br />   "acad.ctb"                                       ;输入打印样式名称<br />   "y"                                              ;是否打印线宽<br />   "a"                                              ;输入着色打印设置(按显示:A 线框:W 消隐:H 渲染:R)<br />   "n"                                              ;是否打印到文件<br />   "n"                                              ;是否保存对页面设置的修改<br />   "y"                                              ;是否继续打印<br /> )<br /> )<br /> ;;打印机列表<br /> ;;pdffactory Pro

babylon1386

Andyhon 发表于 2013-7-23 19:44
(load "X:/AAA/bbb/c.Lsp")   ; or (load "X:\\AAA\\bbb\\c.Lsp")

感谢 正好也解决了我的疑惑

zhangcan0515

谢谢来观看一下脚本文件的制作

Andyhon

想先知道 可有载入 dy 的文件!?

newbuser

Andyhon 发表于 2013-7-23 10:44
想先知道 可有载入 dy 的文件!?

代码最后的那段就是dy的程序代码啊。

Andyhon

未见您在脚本中载入是项文件!

newbuser

Andyhon 发表于 2013-7-23 17:03
未见您在脚本中载入是项文件!

2. (defun c:dy()
   
3. (command "zoom" "e")
   
4. (command "-plot"
   
5.   "y"                                              ;是否需要详细打印配置
   
6.   "模型"                                           ;输入布局、模型名称
   
7.   "pdffactory Pro"                                 ;输入输出设备的名称 (lisp语言中的一个 \ 符号需要用 \\ 符号表示，即\=>\\)
   
8.   "A4"                                             ;输入图纸尺寸
   
9.   "m"                                              ;输入图纸单位(I:英寸 M:毫米)
   
10.   "l"                                              ;输入图形方向(纵向:P 横向:L)
    
11.   "n"                                              ;是否反向打印
    
12.   "e"                                              ;输入打印区域(显示:D 范围:E 图形界限:L 视图:V 窗口:W)
    
13.   "f"                                              ;输入打印比例(F:布满)
    
14.   "c"                                              ;输入打印偏移(居中打印:C)
    
15.   "y"                                              ;是否按样式打印
    
16.   "acad.ctb"                                       ;输入打印样式名称
    
17.   "y"                                              ;是否打印线宽
    
18.   "a"                                              ;输入着色打印设置(按显示:A 线框:W 消隐:H 渲染:R)
    
19.   "n"                                              ;是否打印到文件
    
20.   "n"                                              ;是否保存对页面设置的修改
    
21.   "y"                                              ;是否继续打印
    
22. )
    
23. )
    
24. ;;打印机列表
    
25. ;;pdffactory Pro

(defun c:dy()<br /> (command "zoom" "e")<br /> (command "-plot"<br />   "y"                                              ;是否需要详细打印配置<br />   "模型"                                           ;输入布局、模型名称<br />   "pdffactory Pro"                                 ;输入输出设备的名称 (lisp语言中的一个 \ 符号需要用 \\ 符号表示，即\=>\\)<br />   "A4"                                             ;输入图纸尺寸<br />   "m"                                              ;输入图纸单位(I:英寸 M:毫米)<br />   "l"                                              ;输入图形方向(纵向:P 横向:L)<br />   "n"                                              ;是否反向打印<br />   "e"                                              ;输入打印区域(显示:D 范围:E 图形界限:L 视图:V 窗口:W)<br />   "f"                                              ;输入打印比例(F:布满)<br />   "c"                                              ;输入打印偏移(居中打印:C)<br />   "y"                                              ;是否按样式打印<br />   "acad.ctb"                                       ;输入打印样式名称<br />   "y"                                              ;是否打印线宽<br />   "a"                                              ;输入着色打印设置(按显示:A 线框:W 消隐:H 渲染:R)<br />   "n"                                              ;是否打印到文件<br />   "n"                                              ;是否保存对页面设置的修改<br />   "y"                                              ;是否继续打印<br /> )<br /> )<br /> ;;打印机列表<br /> ;;pdffactory Pro

newbuser

我就是不会编辑scr中的代码才搞出来求教的，请高手赐教啊。

Andyhon

Open C:\例图\2595.40-473.75.dwg
(load "Dy.Lsp")
dy
qsave
close

newbuser

大哥，没效果啊。他根本就不给开图，只打印完第一张后，第二章就没动静了，不连续啊。

newbuser

这个就是例图和lsp以及scr脚本的全部了。有哪位骨灰级的高手能help一下子？

newbuser

Andyhon 发表于 2013-7-23 17:25
Open C:\例图\2595.40-473.75.dwg
(load "Dy.Lsp")
dy

大哥，没效果啊。他根本就不给开图，只打印完第一张后，第二章就没动静了，不连续啊。
我已经把相关的资料发到论坛上了，您老有空开导一下吗？