学习手记--自己写的批量打印程序~15.01.27

qiqiang2015

每日一码实在太难了~ 工作有点忙。今天上午没事 ，想学习批量打印的程序 。一直觉得这种东西好高大上 ，最后居然短短几个码就写好了， 不过实用性简直太简单了~~~
不过也算是自己的一个记录吧~
需要安装pdffactory，才能实现不用每打一页就输一页页码； 这个真心厉害~比我现在用的常青藤的打印好多了。。。
(defun c:d11(/ i)
(setvar "cmdecho" 0)
(setq os1 (getvar "osmode"))
(setvar "osmode" 0)
(setq xx1 (car(entsel"\n选取图框:\n")))
(setq bkdata (entget xx1))
(setq bkname (assoc 2 bkdata))
(setq bkpoint (assoc 10 bkdata))
(setq ss (ssget "x" (list bkname)))
(setq ssn (sslength ss))
(setq i (1- ssn))

(repeat ssn
(setq bkn (ssname ss i))
(setq bkdata (entget bkn))
(setq bkpoint (cdr(assoc 10 bkdata)))
(setq nx (cdr(assoc 41 bkdata)))
(setq ny (cdr(assoc 42 bkdata)))
(setq nz (cdr(assoc 43 bkdata)))
(setq pt1 (polar bkpoint (* 0.5 pi) (* 288.06 ny)))
(setq pt2 (polar pt1 0 (* 407.4 nx)))
(command "plot" "y" "" "pdffactory PRO" "A3" "m" "L" "n" "w" bkpoint pt2 "f" "c" "y" "1.ctb" "y" "w" "n" "n" "y")
(setq i (1- i))
)
(setvar "osmode" os1)
(princ))

还有一些问题想请教大神：

1、这个小程序只能在一个CAD里打印，而且我也不会DCL， 如果我想打印一个文件夹里的多个cad，这个怎么办呢 我查了很多教材 也没找到~~~
2、论坛逛了这么一段时间了 觉得大家讨论的东西还是不懂~ 什么XDXR-API啊 什么的 这是什么意思啊~

     2015年1月27日13:01:31

Newbuser

批量打印文件夹里的dwg文件我知道的方法有两种，一是用秋风打印软件1.3版本的（应该能实现，我没实际操作过），二是做个scr脚本，咱后进行文件夹dwg文件的批量操作程序。这个晓东论坛里的XDXR-API是个函数库，你加载该API后，打开vlide，在可操作编辑的对话框中，输入晓东函数，会发现这些函数是蓝色的，也就是说和平时自定义的函数颜色不一样，同cad本身自带的函数等级是相同的。

qiqiang2015

Newbuser 发表于 2015-1-28 07:59
批量打印文件夹里的dwg文件我知道的方法有两种，一是用秋风打印软件1.3版本的（应该能实现，我没实际操作过 ...

谢谢你的热心解答~！ 第二个问题懂了，第一个问题也大致明白了思路，只是不明白具体的操作，有没有实例的源码可以学习啊~

Newbuser

qiqiang2015 发表于 2015-1-29 16:40
谢谢你的热心解答~！ 第二个问题懂了，第一个问题也大致明白了思路，只是不明白具体的操作，有没有实例的 ...

好吧。我就简单阐述以下我的思路。
先打开一个空白文档，将sdi值设置为0
然后新建一个txt文档，写入如下格式的内容
最后保存扩展名为scr的脚本
脚本内容格式如下：
Open C:/例图/2595.40-472.75.dwg  ;;打开目标文件
(load "C:/例图/dy.lsp")                      ;;运行打印程序（就是你写的单张图打印的程序）
dy                                                     ;;打印程序命令（自定义的运行程序命令）
close                                                 ;;关闭目标文件
Open C:/例图/2595.40-472.75.dwg ;;打开第二张图......
(load "C:/例图/dy.lsp")
dy
close

。。。。。。
。。。。。。
。。。。。。
。。。。。。
待所有工具准备完毕后，在cad空白文档中输入scr命令，寻找点击你的scr脚本即可实现自动打印。
前提是你的图中之后图框以内的东西，跑到图框外面的打印效果会很差，设置啥都看不清或看不见
提示一点，如果你的图有几百张之多，可以去网上搜一个获取文件名称的lisp，用excel编辑以下
在每一个文件名后加上重复操作的东西就行了。

Newbuser

qiqiang2015 发表于 2015-1-29 16:40
谢谢你的热心解答~！ 第二个问题懂了，第一个问题也大致明白了思路，只是不明白具体的操作，有没有实例的 ...

为了不让你费心搜索论坛，我还是提供一下这个获取文件夹中dwg文件名的程序吧。有其他不称心的你自己相应的改改就行了。

2. ;;qf_getFolder 引至明经社区
   
3. (defun qf_getFolder (msg / WinShell shFolder path catchit)
   
4.   (vl-load-com)
   
5.   (setq winshell (vlax-create-object "Shell.Application"))
   
6.   (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
   
7.   (setq
   
8.     catchit (vl-catch-all-apply
   
9.       '(lambda ()
   
10. (setq shFolder (vlax-get-property shFolder 'self))
    
11. (setq path (vlax-get-property shFolder 'path))
    
12.        )
    
13.     )
    
14.   )
    
15.   (if (vl-catch-all-error-p catchit)
    
16.     nil
    
17.     path
    
18.   )
    
19. )
    
20. (defun C:jb(/ dfil qq bbb ml sm mb cdate ct)
    
21. (setq qq (qf_getFolder "选择DWG所在文件夹:"))
    
22. (if qq
    
23. (progn
    
24. (setq bbb(vl-directory-files qq))
    
25. (setq bbb(cdr(cdr bbb)))
    
26. (setq ml (open "C:\\dy.scr" "w"))
    
27. (setq sm(length bbb))
    
28.   (princ ";;目录共有文件 " ml)
    
29.   (princ sm ml)
    
30.   (princ "\n" ml)
    
31.   (setq i 0)
    
32.    (repeat sm
    
33.    (setq mb(nth i bbb))
    
34.    (setq dwg(strcat "*" "DWG"))
    
35.    (setq dxg(strcat "*" "dwg"))
    
36.    (if (or (wcmatch mb dwg) (wcmatch mb dxg))
    
37.     (progn
    
38.     (setq mb1(strcat qq "/" mb))
    
39.     (princ "open " ml)
    
40.     (princ mb1 ml)
    
41.     (princ "\n" ml)  ;;空一格
    
42.     (princ "(load c:/例图/dy.lsp)" ml)
    
43.     (princ "\n" ml)
    
44.     (princ "dy" ml)  ;;CAD执行命令,可重复
    
45.     (princ "\n" ml)
    
46.     (princ "qsave" ml)
    
47.     (princ "\n" ml)
    
48.     (princ "close" ml)
    
49.     (princ "\n" ml)
    
50.     )
    
51.    )
    
52. (setq i(1+ i))
    
53.   )
    
54. (close ml)
    
55. ;;(startapp "notepad.exe" "C:\\dy.scr")
    
56. )
    
57. )
    
58. (alert "脚本为C:\\dy.scr，请运行。\n工具→运行脚本…")
    
59. )

;;qf_getFolder 引至明经社区<br /> (defun qf_getFolder (msg / WinShell shFolder path catchit) <br />   (vl-load-com) <br />   (setq winshell (vlax-create-object "Shell.Application")) <br />   (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1)) <br />   (setq <br />     catchit (vl-catch-all-apply <br />       '(lambda () <br /> (setq shFolder (vlax-get-property shFolder 'self)) <br /> (setq path (vlax-get-property shFolder 'path)) <br />        ) <br />     ) <br />   ) <br />   (if (vl-catch-all-error-p catchit) <br />     nil <br />     path <br />   ) <br /> )<br /> (defun C:jb(/ dfil qq bbb ml sm mb cdate ct)<br /> (setq qq (qf_getFolder "选择DWG所在文件夹:"))<br /> (if qq<br /> (progn<br /> (setq bbb(vl-directory-files qq))<br /> (setq bbb(cdr(cdr bbb)))<br /> (setq ml (open "C:\\dy.scr" "w"))<br /> (setq sm(length bbb))<br />   (princ ";;目录共有文件 " ml)<br />   (princ sm ml)<br />   (princ "\n" ml)<br />   (setq i 0)<br />    (repeat sm<br />    (setq mb(nth i bbb))<br />    (setq dwg(strcat "*" "DWG"))<br />    (setq dxg(strcat "*" "dwg"))<br />    (if (or (wcmatch mb dwg) (wcmatch mb dxg))<br />     (progn<br />     (setq mb1(strcat qq "/" mb))<br />     (princ "open " ml)<br />     (princ mb1 ml)<br />     (princ "\n" ml)  ;;空一格<br />     (princ "(load c:/例图/dy.lsp)" ml)<br />     (princ "\n" ml)<br />     (princ "dy" ml)  ;;CAD执行命令,可重复<br />     (princ "\n" ml)<br />     (princ "qsave" ml)<br />     (princ "\n" ml)<br />     (princ "close" ml)<br />     (princ "\n" ml)<br />     )<br />    )<br /> (setq i(1+ i))<br />   )<br /> (close ml)<br /> ;;(startapp "notepad.exe" "C:\\dy.scr")<br /> )<br /> )<br /> (alert "脚本为C:\\dy.scr，请运行。\n工具→运行脚本…")<br /> )

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:生成批量打印scr程序.lsp 
下载次数:75  文件大小:1.43 KB 
下载权限: 不限 以上  [免费赚D豆]

yevergreen

还要下载DY.scr

qsmy789

为什么这句执行不了，一直执行结果为nil，但图中是有图框存在的(setq ss (ssget "x" (list bkname)))？？

w245272914

楼主，问下你研究的多DWG文件批量打印出来了吗？　　能否分享下源码，谢谢