有没有批量打印多个布局的工具

yangwenclever

求助，布局很多，怎么样批量打印，如果一个一个切换，很慢慢

重慶崽兒

那啥  选定所有布局---发布

llsheng_73

没玩过布局，先飘过

springwillow

2. ;;;把所有布局出图;;;;;;
   
3. (princ"批量打印布局,命令BJDY\n  springwillow!")
   
4. (defun C:bjdy (/ N PLO_LAYOUTS PLO_LAYOUTL dypy1)
   
5. ;(command "_.layout" "delete" "Layout1")
   
6. ;del掉原来大师多余的布局
   
7. ; -取得注册表中默认打印机--------------------------------------------------------
   
8.   (setvar "cmdecho" 0)
   
9.   (defun defultprint (/ device)
   
10.     (substr (setq device
    
11.      (vl-registry-read
    
12.        "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows"
    
13.        "Device"
    
14.      ) ;_ 结束vl-registry-read
    
15.      ) ;_ 结束setq
    
16.      1
    
17.      (vl-string-search "," device)
    
18.     ) ;_ 结束substr
    
19.   ) ;_ 结束defun
    
20. ; ==取得注册表中默认打印机end========================================================
    
21.   (command ".ucs" "W")
    
22.   (command "setvar" "dimzin" "0")
    
23.   (command "setvar" "DYNMODE" "0")
    
24.   (setq myprint (defultprint))
    
25.   (setq ctb_type "acad.ctb")
    
26.   (command "osnap" "off")
    
27.   (vl-load-com) ;==================================
    
28. 
    
29. ;取得打印纸张打印
    
30.   (setq papersc (getstring "\n出图大小A3[3]/A4[4]：<A3>"))
    
31.   (setq scale "unknow")
    
32.   (if (or (= papersc "") (= papersc "3"))
    
33.     (setq scale 1)
    
34.     (setq scale 0.707)
    
35.   ) ;_ 结束if
    
36.   (if (or (= papersc "") (= papersc "3"))
    
37.     (setq paper "A3")
    
38.     (setq paper "A4")
    
39.   ) ;_ 结束if
    
40.   (setq printtype (getstring "\n打印全部布局[A]/当前布局[D]：<A>"))
    
41.   (if (not dypy)
    
42.   (setq dypy "0.000,0.000")
    
43.   )
    
44.   (if (/= (setq dypy1 (getstring (strcat "\n打印偏移[居中(C)]:<"dypy">"))) "")
    
45.     (setq dypy dypy1)
    
46.     )
    
47.   (setq printt "unknow")
    
48.   (setq PLO_LAYOUTS (LAYOUTLIST))
    
49.   (setq PLO_LAYOUTSL (length PLO_LAYOUTS))
    
50.   (setq N 0)
    
51.   (cond ((or (= printtype "") (= printtype "A") (= printtype "a"))
    
52.         (repeat PLO_LAYOUTSL
    
53.       (command "-plot"
    
54.         "y";是否需要详细打印配置？[是(Y)/否(N)] <否>: y
    
55.         (nth N PLO_LAYOUTS);输入布局名或 [?]
    
56.         myprint;输入输出设备的名称或 [?]
    
57.         paper;输入图纸尺寸或 [?] <A3>:
    
58.         "M";输入图纸单位 [英寸(I)/毫米(M)] <英寸>: m
    
59.         "L";输入图形方向 [纵向(P)/横向(L)] <横向>: l
    
60.         "";是否反向打印？[是(Y)/否(N)] <否>:
    
61.         "E";输入打印区域 [显示(D)/范围(E)/布局(L)/视图(V)/窗口(W)] <范围>: e
    
62.         scale;输入打印比例 (打印的 毫米=图形单位) 或 [布满(F)] <1:1>:
    
63.         dypy;输入打印偏移 (x,y) 或 [居中打印(C)] <0.00,0.00>: c
    
64.         "Y";是否按样式打印？[是(Y)/否(N)] <是>:
    
65.         ctb_type;输入打印样式表名称或 [?] (输入 . 表示无) <acad.ctb>:
    
66.         "";是否打印线宽？[是(Y)/否(N)] <是>:
    
67.         "";是否按打印比例缩放线宽？[是(Y)/否(N)] <否>:
    
68.         "";是否先打印图纸空间？[是(Y)/否(N)] <否>:
    
69.         "";是否隐藏图纸空间对象？[是(Y)/否(N)] <否>:
    
70.         "";是否打印到文件 [是(Y)/否(N)] <N>:
    
71.         "Y";是否保存对页面设置的修改 [是(Y)/否(N)]? <N> y
    
72.         "";是否继续打印？[是(Y)/否(N)] <Y>:
    
73.       ) ;_ 结束command
    
74.       (setq N (1+ N))
    
75.     ) ;_ 结束repeat
    
76.    )
    
77.   ((or (= printtype "D") (= printtype "d"))
    
78.       (command "-plot"
    
79.         "y";是否需要详细打印配置？[是(Y)/否(N)] <否>: y
    
80.         (getvar "ctab");输入布局名或 [?]
    
81.         myprint;输入输出设备的名称或 [?]
    
82.         paper;输入图纸尺寸或 [?] <A3>:
    
83.         "M";输入图纸单位 [英寸(I)/毫米(M)] <英寸>: m
    
84.         "L";输入图形方向 [纵向(P)/横向(L)] <横向>: l
    
85.         "";是否反向打印？[是(Y)/否(N)] <否>:
    
86.         "E";输入打印区域 [显示(D)/范围(E)/布局(L)/视图(V)/窗口(W)] <范围>: e
    
87.         scale;输入打印比例 (打印的 毫米=图形单位) 或 [布满(F)] <1:1>:
    
88.         "c";输入打印偏移 (x,y) 或 [居中打印(C)] <0.00,0.00>: c
    
89.         "Y";是否按样式打印？[是(Y)/否(N)] <是>:
    
90.         ctb_type;输入打印样式表名称或 [?] (输入 . 表示无) <acad.ctb>:
    
91.         "";是否打印线宽？[是(Y)/否(N)] <是>:
    
92.         "";是否按打印比例缩放线宽？[是(Y)/否(N)] <否>:
    
93.         "";是否先打印图纸空间？[是(Y)/否(N)] <否>:
    
94.         "";是否隐藏图纸空间对象？[是(Y)/否(N)] <否>:
    
95.         "";是否打印到文件 [是(Y)/否(N)] <N>:
    
96.         "";是否保存对页面设置的修改 [是(Y)/否(N)]? <N> y
    
97.         "";是否继续打印？[是(Y)/否(N)] <Y>:
    
98.       ) ;_ 结束command
    
99.    )
    
100.   ) ;_ 结束if
     
101. ; ==============================================================================
     
102.   (princ)
     
103. ) ;_ 结束defun
     

;;;把所有布局出图;;;;;;<br /> (princ"批量打印布局,命令BJDY\n  springwillow!")<br /> (defun C:bjdy (/ N PLO_LAYOUTS PLO_LAYOUTL dypy1)<br /> ;(command "_.layout" "delete" "Layout1") <br /> ;del掉原来大师多余的布局<br /> ; -取得注册表中默认打印机--------------------------------------------------------<br />   (setvar "cmdecho" 0)<br />   (defun defultprint (/ device)<br />     (substr (setq device<br />      (vl-registry-read<br />        "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows"<br />        "Device"<br />      ) ;_ 结束vl-registry-read<br />      ) ;_ 结束setq<br />      1<br />      (vl-string-search "," device)<br />     ) ;_ 结束substr<br />   ) ;_ 结束defun<br /> ; ==取得注册表中默认打印机end========================================================<br />   (command ".ucs" "W")<br />   (command "setvar" "dimzin" "0")<br />   (command "setvar" "DYNMODE" "0")<br />   (setq myprint (defultprint))<br />   (setq ctb_type "acad.ctb")<br />   (command "osnap" "off")<br />   (vl-load-com) ;==================================<br /> <br /> ;取得打印纸张打印<br />   (setq papersc (getstring "\n出图大小A3[3]/A4[4]：<A3>"))<br />   (setq scale "unknow")<br />   (if (or (= papersc "") (= papersc "3"))<br />     (setq scale 1)<br />     (setq scale 0.707)<br />   ) ;_ 结束if<br />   (if (or (= papersc "") (= papersc "3"))<br />     (setq paper "A3")<br />     (setq paper "A4")<br />   ) ;_ 结束if<br />   (setq printtype (getstring "\n打印全部布局[A]/当前布局[D]：<A>"))<br />   (if (not dypy)<br />   (setq dypy "0.000,0.000")<br />   )<br />   (if (/= (setq dypy1 (getstring (strcat "\n打印偏移[居中(C)]:<"dypy">"))) "")<br />     (setq dypy dypy1)<br />     )<br />   (setq printt "unknow")<br />   (setq PLO_LAYOUTS (LAYOUTLIST))<br />   (setq PLO_LAYOUTSL (length PLO_LAYOUTS))<br />   (setq N 0)<br />   (cond ((or (= printtype "") (= printtype "A") (= printtype "a"))<br />         (repeat PLO_LAYOUTSL<br />       (command "-plot"<br />         "y";是否需要详细打印配置？[是(Y)/否(N)] <否>: y<br />         (nth N PLO_LAYOUTS);输入布局名或 [?]<br />         myprint;输入输出设备的名称或 [?]<br />         paper;输入图纸尺寸或 [?] <A3>:<br />         "M";输入图纸单位 [英寸(I)/毫米(M)] <英寸>: m<br />         "L";输入图形方向 [纵向(P)/横向(L)] <横向>: l<br />         "";是否反向打印？[是(Y)/否(N)] <否>:<br />         "E";输入打印区域 [显示(D)/范围(E)/布局(L)/视图(V)/窗口(W)] <范围>: e<br />         scale;输入打印比例 (打印的 毫米=图形单位) 或 [布满(F)] <1:1>:<br />         dypy;输入打印偏移 (x,y) 或 [居中打印(C)] <0.00,0.00>: c<br />         "Y";是否按样式打印？[是(Y)/否(N)] <是>:<br />         ctb_type;输入打印样式表名称或 [?] (输入 . 表示无) <acad.ctb>:<br />         "";是否打印线宽？[是(Y)/否(N)] <是>:<br />         "";是否按打印比例缩放线宽？[是(Y)/否(N)] <否>:<br />         "";是否先打印图纸空间？[是(Y)/否(N)] <否>:<br />         "";是否隐藏图纸空间对象？[是(Y)/否(N)] <否>:<br />         "";是否打印到文件 [是(Y)/否(N)] <N>:<br />         "Y";是否保存对页面设置的修改 [是(Y)/否(N)]? <N> y<br />         "";是否继续打印？[是(Y)/否(N)] <Y>:<br />       ) ;_ 结束command<br />       (setq N (1+ N))<br />     ) ;_ 结束repeat<br />    )<br />   ((or (= printtype "D") (= printtype "d"))<br />       (command "-plot"<br />         "y";是否需要详细打印配置？[是(Y)/否(N)] <否>: y<br />         (getvar "ctab");输入布局名或 [?]<br />         myprint;输入输出设备的名称或 [?]<br />         paper;输入图纸尺寸或 [?] <A3>:<br />         "M";输入图纸单位 [英寸(I)/毫米(M)] <英寸>: m<br />         "L";输入图形方向 [纵向(P)/横向(L)] <横向>: l<br />         "";是否反向打印？[是(Y)/否(N)] <否>:<br />         "E";输入打印区域 [显示(D)/范围(E)/布局(L)/视图(V)/窗口(W)] <范围>: e<br />         scale;输入打印比例 (打印的 毫米=图形单位) 或 [布满(F)] <1:1>:<br />         "c";输入打印偏移 (x,y) 或 [居中打印(C)] <0.00,0.00>: c<br />         "Y";是否按样式打印？[是(Y)/否(N)] <是>:<br />         ctb_type;输入打印样式表名称或 [?] (输入 . 表示无) <acad.ctb>:<br />         "";是否打印线宽？[是(Y)/否(N)] <是>:<br />         "";是否按打印比例缩放线宽？[是(Y)/否(N)] <否>:<br />         "";是否先打印图纸空间？[是(Y)/否(N)] <否>:<br />         "";是否隐藏图纸空间对象？[是(Y)/否(N)] <否>:<br />         "";是否打印到文件 [是(Y)/否(N)] <N>:<br />         "";是否保存对页面设置的修改 [是(Y)/否(N)]? <N> y<br />         "";是否继续打印？[是(Y)/否(N)] <Y>:<br />       ) ;_ 结束command<br />    )<br />   ) ;_ 结束if<br /> ; ==============================================================================<br />   (princ)<br /> ) ;_ 结束defun<br />

有哪位大侠有时间给加个对话框吧，那样就好用了，这个有点繁锁!

lidaxiu

秋枫打印就可以吧，高版本的