王伟让我写的简单打印

情迷法兰西0

2. 
   
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. ;|函数功能: 获取目录下(包含子目录)里的某类型文件
    
21. ;使用格式: a为路径名或多个路劲名表，b为扩展名
    
22. ;范    例: (n5-get-files "D:" "lsp"),搜索d盘中所有lsp文件|;
    
23. ;(setq c(n5-get-files b "dat"))
    
24. ;(vl-file-directory-p b)返回T
    
25. ;2016-6-11
    
26. ;095
    
27. (defun n5-get-files(a b / lst mulu wj x )
    
28.   (setq lst '())
    
29. (cond
    
30. ((= (type a)'STR)
    
31.   (if (setq wj (mapcar '(lambda(x)(strcat a "\" x))(vl-directory-files a (strcat"*." b))))
    
32.       (setq lst (cons wj lst)))
    
33.   (if (setq mulu (mapcar '(lambda(x)(strcat a "\" x))(cddr(vl-directory-files a nil -1))))
    
34.     (foreach x mulu(setq lst(cons(n5-get-files x b) lst)))
    
35.       )
    
36. )
    
37. ((= (type a) 'list) (foreach x a (setq lst (cons(n5-get-files x b)lst))))
    
38. )
    
39.     (reverse(apply 'append lst)))
    
40. ;
    
41. (defun c:tt(/ FILES PATH)
    
42.   (setq path(QF_GETFOLDER"选择要打印的文件夹："))
    
43.   (setq files(N5-GET-FILES path"dwg"))
    
44.   (foreach file files
    
45.     (write-line (strcat"正在打印文件的名为："file))
    
46.     (vla-InsertBlock
    
47.       (vla-get-modelspace(vla-get-ActiveDocument(vlax-get-acad-object)))
    
48.       (vlax-3d-point '(0 0 0))
    
49.       file
    
50.       1
    
51.       1
    
52.       1
    
53.       0
    
54.       )
    
55.     (command"zoom" "e")
    
56.     (COMMAND"_plot"
    
57.       "N" ""
    
58.       "jiangcan" ""
    
59.       "N" "N" "Y")
    
60.     (entdel (entlast)))
    
61.   (prompt"打印结束")
    
62.   (PRINC)
    
63.   )

<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 /> ;|函数功能: 获取目录下(包含子目录)里的某类型文件<br /> ;使用格式: a为路径名或多个路劲名表，b为扩展名<br /> ;范    例: (n5-get-files "D:" "lsp"),搜索d盘中所有lsp文件|;<br /> ;(setq c(n5-get-files b "dat"))<br /> ;(vl-file-directory-p b)返回T<br /> ;2016-6-11<br /> ;095<br /> (defun n5-get-files(a b / lst mulu wj x )<br />   (setq lst '())<br /> (cond<br /> ((= (type a)'STR)<br />   (if (setq wj (mapcar '(lambda(x)(strcat a "\" x))(vl-directory-files a (strcat"*." b))))<br />       (setq lst (cons wj lst)))<br />   (if (setq mulu (mapcar '(lambda(x)(strcat a "\" x))(cddr(vl-directory-files a nil -1))))<br />     (foreach x mulu(setq lst(cons(n5-get-files x b) lst)))<br />       )<br /> )<br /> ((= (type a) 'list) (foreach x a (setq lst (cons(n5-get-files x b)lst))))<br /> )<br />     (reverse(apply 'append lst)))<br /> ;<br /> (defun c:tt(/ FILES PATH)<br />   (setq path(QF_GETFOLDER"选择要打印的文件夹："))<br />   (setq files(N5-GET-FILES path"dwg"))<br />   (foreach file files<br />     (write-line (strcat"正在打印文件的名为："file))<br />     (vla-InsertBlock<br />       (vla-get-modelspace(vla-get-ActiveDocument(vlax-get-acad-object)))<br />       (vlax-3d-point '(0 0 0))<br />       file<br />       1<br />       1<br />       1<br />       0<br />       )<br />     (command"zoom" "e")<br />     (COMMAND"_plot"<br />       "N" ""<br />       "jiangcan" ""<br />       "N" "N" "Y")<br />     (entdel (entlast)))<br />   (prompt"打印结束")<br />   (PRINC)<br />   )

批量打印程序使用说明
[size=10.5000pt]1. [size=10.5000pt]打开[size=10.5000pt]AutoCAD[size=10.5000pt]软件，cass也是一样的。

[size=10.5000pt]2. [size=10.5000pt]确保[size=10.5000pt]CAD[size=10.5000pt]中没有任何图元
[size=10.5000pt]3. [size=10.5000pt]输入命令p[size=10.5000pt]lot[size=10.5000pt]，在打印界面设置各项打印属性，
[size=10.5000pt]4. [size=10.5000pt]设置好各属性之后，点击添加[size=10.5000pt]，新面设置名为[size=10.5000pt]”jiangcan”[size=10.5000pt]，必须。然后点确定。
[size=10.5000pt]5. [size=10.5000pt]出现这个界面，页面设置名称为[size=10.5000pt]”jiangcan”,[size=10.5000pt]各项属性都正确，可以返回主界面了
[size=10.5000pt]6. [size=10.5000pt]Appload[size=10.5000pt]加载此插件，输入命令t[size=10.5000pt]t,[size=10.5000pt]选择要打印的D[size=10.5000pt]WG[size=10.5000pt]文件所在的文件夹，程序自动打印
[size=10.5000pt]