在秋枫发布的源码基础上修改的批量打印程序v3.6.1（2024-07-28更新）

lxl217114

突然有个小想法，就是图块列表里头能不能有多套图框的方案。
有时候接手别人的图纸，就会有描述方式不同，比如：
A2加长1/4的图框
一、有部分设计师：图框命名是A2+1/4；
二、也有些设计师：图框命名是A2+0.25
当然，情况可能会比我例举的更加复杂。

所以为了适应当前要出力的情况，调整图块列表以后。
上一次的图块列表就会失效，下次如果要用回之前的图框设置，那就需要再调整列表里面的设置了。

mhit2000

msteel批量打印在图框图纸设置这比楼主这方便，楼主可以借鉴一下！！！

cadlearner

大佬，本萌新之前也一直想要自己二次开发CAD实现这样的批量打印功能。但是网上资源参差不齐，没有头绪，感觉自己在浪费时间。希望大佬能给些资源，指条明路，我是想用lisp来实现。

kyky1002

又更新了？感谢分享

kyky1002

下载压缩包坏了，解压不了

CAD新军

lxl217114 发表于 2020-10-30 09:47
突然有个小想法，就是图块列表里头能不能有多套图框的方案。
有时候接手别人的图纸，就会有描述方式不同， ...

这个我写了，我是用来打印计算书和图纸的。命令是pp

2. (defun c:pp( / path poplst sel dcl_id dd tmp tmppath fn newcfg confirm show_list)
   
3. (setq path (LJ:GetLoadPath))
   
4. 
   
5.   (setq tmp (vl-filename-mktemp nil nil ".dcl"))
   
6. (setq fn (open tmp "w"))
   
7. (write-line "changecfg:dialog {" fn)
   
8. (write-line "label = "切换批量打印CFG 请配合ludaweb BPlot" ;" fn)
   
9. (write-line "    :text {" fn)
   
10. (write-line "        key = "title" ;" fn)
    
11. (write-line "        label = "选择CFG文件" ;" fn)
    
12. (write-line "    }" fn)
    
13. (write-line "    :popup_list {" fn)
    
14. (write-line "        key = "cfg" ;" fn)
    
15. (write-line "    }" fn)
    
16. (write-line "    spacer_1;" fn)
    
17. (write-line "    :row{" fn)
    
18. (write-line "    :button{ key = "swap"; label = "更新备份"; }" fn)
    
19. (write-line "    ok_cancel;" fn)
    
20. (write-line "    }" fn)
    
21. (write-line "}" fn)
    
22. (close fn)
    
23. 
    
24. ;表显示
    
25. (defun show_list (key newlist)
    
26.   (start_list key)      ;
    
27.   (mapcar 'add_list newlist)
    
28.   (end_list)
    
29. )
    
30. 
    
31.   (setq poplst (vl-directory-files path  "*.cfg" 1))
    
32.   (setq sel "0")
    
33.   (setq dcl_id (load_dialog tmp))
    
34.   (new_dialog "changecfg" dcl_id)
    
35.   (show_list "cfg" poplst)
    
36.   (set_tile "cfg" sel);初始选择
    
37.   (setq confirm nil)
    
38.   (action_tile "cfg" "(setq sel $value)")
    
39.   (action_tile "swap" "(if confirm(done_dialog 2) (alert (setq confirm "你要替换原有设置，请再按一次确认操作")))")
    
40.   (action_tile "accept" "(done_dialog 1)")
    
41.   (setq dd (start_dialog))
    
42.   (cond    ((= dd 1)  
    
43.           (setq newcfg (strcat path (nth (atoi sel) poplst)))
    
44.           (setq tmppath (vl-filename-directory tmp))  
    
45.         (vl-file-delete (strcat tmppath "\\batchplot.cfg"))
    
46.         (vl-file-copy  newcfg (strcat tmppath "\\batchplot.cfg"))
    
47.         )
    
48.         ((= dd 2)  
    
49.           (setq newcfg (strcat path (nth (atoi sel) poplst)))
    
50.           (setq tmppath (vl-filename-directory tmp))  
    
51.         (vl-file-delete newcfg)
    
52.         (vl-file-copy   (strcat tmppath "\\batchplot.cfg") newcfg)
    
53.         )
    
54.    )
    
55.    (vl-file-delete tmp)
    
56.    (princ)  
    
57. )
    
58. 
    
59. 
    
60. 
    
61. 
    
62. (defun LJ:GetLoadPath ( / path)
    
63.   ;(princ "\n即将获取加载目录……")
    
64. (if (wcmatch (setq path (getvar "lastprompt")) "*(LOAD "*")")
    
65.   (progn
    
66.     (setq path (cadr (parse path """)))
    
67.     (while (vl-string-search "/" path)
    
68.       (setq path (vl-string-subst "\" "/" path))
    
69.       )
    
70.     ;(alert (strcat "\n拖入方式加载目录：" path))
    
71.     )
    
72.   (progn
    
73.     (setq path (vl-registry-read (strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\Profiles\" (getvar "CPROFILE") "\\Dialogs\\Appload") "MainDialog"))
    
74.     ;(alert (strcat "\nAPPLOAD方式加载目录：" path))
    
75.     )
    
76.   )
    
77. )

(defun c:pp( / path poplst sel dcl_id dd tmp tmppath fn newcfg confirm show_list)<br /> (setq path (LJ:GetLoadPath))<br /> <br />   (setq tmp (vl-filename-mktemp nil nil ".dcl"))<br /> (setq fn (open tmp "w"))<br /> (write-line "changecfg:dialog {" fn)<br /> (write-line "label = "切换批量打印CFG 请配合ludaweb BPlot" ;" fn)<br /> (write-line "    :text {" fn)<br /> (write-line "        key = "title" ;" fn)<br /> (write-line "        label = "选择CFG文件" ;" fn)<br /> (write-line "    }" fn)<br /> (write-line "    :popup_list {" fn)<br /> (write-line "        key = "cfg" ;" fn)<br /> (write-line "    }" fn)<br /> (write-line "    spacer_1;" fn)<br /> (write-line "    :row{" fn)<br /> (write-line "    :button{ key = "swap"; label = "更新备份"; }" fn)<br /> (write-line "    ok_cancel;" fn)<br /> (write-line "    }" fn)<br /> (write-line "}" fn)<br /> (close fn)<br /> <br /> ;表显示<br /> (defun show_list (key newlist)<br />   (start_list key)      ;<br />   (mapcar 'add_list newlist)<br />   (end_list)<br /> )<br /> <br />   (setq poplst (vl-directory-files path  "*.cfg" 1))<br />   (setq sel "0")<br />   (setq dcl_id (load_dialog tmp))<br />   (new_dialog "changecfg" dcl_id)<br />   (show_list "cfg" poplst)<br />   (set_tile "cfg" sel);初始选择<br />   (setq confirm nil)<br />   (action_tile "cfg" "(setq sel $value)") <br />   (action_tile "swap" "(if confirm(done_dialog 2) (alert (setq confirm "你要替换原有设置，请再按一次确认操作")))") <br />   (action_tile "accept" "(done_dialog 1)")<br />   (setq dd (start_dialog))<br />   (cond    ((= dd 1)  <br />           (setq newcfg (strcat path (nth (atoi sel) poplst)))<br />           (setq tmppath (vl-filename-directory tmp))  <br />         (vl-file-delete (strcat tmppath "\\batchplot.cfg"))<br />         (vl-file-copy  newcfg (strcat tmppath "\\batchplot.cfg"))<br />         )<br />         ((= dd 2)  <br />           (setq newcfg (strcat path (nth (atoi sel) poplst)))<br />           (setq tmppath (vl-filename-directory tmp))  <br />         (vl-file-delete newcfg)<br />         (vl-file-copy   (strcat tmppath "\\batchplot.cfg") newcfg)<br />         )<br />    )<br />    (vl-file-delete tmp)<br />    (princ)  <br /> )<br /> <br /> <br /> <br /> <br /> (defun LJ:GetLoadPath ( / path)<br />   ;(princ "\n即将获取加载目录……")<br /> (if (wcmatch (setq path (getvar "lastprompt")) "*(LOAD "*")")<br />   (progn<br />     (setq path (cadr (parse path """)))<br />     (while (vl-string-search "/" path)<br />       (setq path (vl-string-subst "\" "/" path))<br />       )<br />     ;(alert (strcat "\n拖入方式加载目录：" path))<br />     )<br />   (progn<br />     (setq path (vl-registry-read (strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\Profiles\" (getvar "CPROFILE") "\\Dialogs\\Appload") "MainDialog"))<br />     ;(alert (strcat "\nAPPLOAD方式加载目录：" path))<br />     )<br />   )<br /> )

CAD新军

xiaobaixiaobu 发表于 2020-10-27 11:29
有时候图纸打印会要好多次，改些内容就要重新做PDF，不知道能否做到这样：程序允许设置不同图框一次性批量 ...

建议你换个思路，不要用选择顺序，而让生成文件顺序给你排序，很多人就是这样打图的。比如图号设置为块属性或者一个专门图层，然后生成pdf时，文件名插入图号，这样打图就是全选，不用管顺序，生成的文件自动按照图号排列

lxl217114

CAD新军 发表于 2020-11-4 21:30
这个我写了，我是用来打印计算书和图纸的。命令是pp

厉害，我去试试去

crystalboy

现发现一个问题，批量打印的时候，打印预览的时候，用鼠标中键对预览的结果放大缩小，多放大缩小以及平移几次后，预览一下就不见了或者是预览里面会出现没圈选的图纸或者是出现三维坐标的变形。退出到模型空间后，cad图纸也不见了，只有zoom a 后才能看见。

lxl217114

mhit2000 发表于 2020-11-3 13:50
msteel批量打印在图框图纸设置这比楼主这方便，楼主可以借鉴一下！！！

msteel批量，只支持单个dwg文件的吧