不打开图纸批量执行操作文档

wyb36870

2. ;;说明:不打开图纸批量执行操作
   
3. ;;参数:filepath-list:要处理的图形路径列表
   
4. ;;参数:argument-list:传递的参数列表  形如：'(pt1 pt2)
   
5. ;;参数:expr-list:要执行的函数  形如：(lambda () expr...)
   
6. ;;返回:未处理的图形文件列表（只读模式或者文件已打开）
   
7. (defun YB-DbxObject-function->files (filepath-list argument-list expr-list / rtn)  [free](YB-DbxObject-function->files
   
8.         (list
   
9.                 "C:\\Users\\Yibo Wang\\Desktop\\txt\\Drawing1.dwg"
   
10.                 "C:\\Users\\Yibo Wang\\Desktop\\txt\\Drawing2.dwg"
    
11.                 "C:\\Users\\Yibo Wang\\Desktop\\txt\\Drawing3.dwg"
    
12.         )
    
13.         '(pt1 pt2)
    
14.         (lambda ()
    
15.                 (vla-AddLine
    
16.                         (vla-get-ModelSpace docobj)
    
17.                         (vlax-3D-point 0 0 0)
    
18.                         (vlax-3D-point 0 100 0)
    
19.                 )                                                                 
    
20.         )         
    
21. )[/free]
    
22.   (defun YB-DbxObject ()
    
23.     (if (> (atoi (getvar "acadver")) 17)
    
24.       (vla-GetInterfaceObject
    
25.         (YB-acad-object)
    
26.         (strcat "ObjectDBX.AxDbDocument."(substr (getvar "acadver") 1 2))
    
27.       )
    
28.       (alert "\n本程序不适用于2002以下版本的CAD。")
    
29.     )
    
30.   )
    
31.   (defun YB-acad-object nil
    
32.     (eval (list 'defun 'YB-acad-object 'nil
    
33.             (vlax-get-acad-object)))
    
34.     (YB-acad-object)
    
35.   )
    
36.   (if (vl-consp filepath-list)
    
37.     (progn
    
38.       (if argument-list
    
39.         (progn
    
40.           (setq argument-list (YB-str->lst (vl-string-trim ")"(vl-string-trim "("(vl-prin1-to-string argument-list))) " "))
    
41.           (vl-bb-set 'DbxObject argument-list)
    
42.           (mapcar (function (lambda (x)(vl-bb-set (read x) (eval(read x))))) argument-list)   
    
43.         )
    
44.       )               
    
45.       (setq rtn '())      
    
46.       (foreach temp filepath-list
    
47.         (if (vl-catch-all-error-p
    
48.               (vl-catch-all-apply
    
49.                 (function (lambda (/ docobj)
    
50.                             (vla-open (setq docobj (YB-DbxObject)) temp)；；这里的docobj跟执行函数中引用的必须对应
    
51.                             (if (vl-bb-ref 'DbxObject) (mapcar (function (lambda (x)(vl-bb-ref (read x)))) (vl-bb-ref 'DbxObject)))
    
52.                             (expr-list)
    
53.                             (vla-SaveAs docobj temp)

;;说明:不打开图纸批量执行操作<br /> ;;参数:filepath-list:要处理的图形路径列表<br /> ;;参数:argument-list:传递的参数列表  形如：'(pt1 pt2)<br /> ;;参数:expr-list:要执行的函数  形如：(lambda () expr...)<br /> ;;返回:未处理的图形文件列表（只读模式或者文件已打开）<br /> (defun YB-DbxObject-function->files (filepath-list argument-list expr-list / rtn)  [free](YB-DbxObject-function->files <br />         (list <br />                 "C:\\Users\\Yibo Wang\\Desktop\\txt\\Drawing1.dwg"<br />                 "C:\\Users\\Yibo Wang\\Desktop\\txt\\Drawing2.dwg"<br />                 "C:\\Users\\Yibo Wang\\Desktop\\txt\\Drawing3.dwg"<br />         ) <br />         '(pt1 pt2)<br />         (lambda () <br />                 (vla-AddLine <br />                         (vla-get-ModelSpace docobj)<br />                         (vlax-3D-point 0 0 0)<br />                         (vlax-3D-point 0 100 0)<br />                 )                                                                 <br />         )         <br /> )[/free]<br />   (defun YB-DbxObject ()<br />     (if (> (atoi (getvar "acadver")) 17)<br />       (vla-GetInterfaceObject<br />         (YB-acad-object)<br />         (strcat "ObjectDBX.AxDbDocument."(substr (getvar "acadver") 1 2))<br />       )<br />       (alert "\n本程序不适用于2002以下版本的CAD。")<br />     )<br />   )<br />   (defun YB-acad-object nil<br />     (eval (list 'defun 'YB-acad-object 'nil<br />             (vlax-get-acad-object)))<br />     (YB-acad-object)<br />   )<br />   (if (vl-consp filepath-list)<br />     (progn<br />       (if argument-list<br />         (progn<br />           (setq argument-list (YB-str->lst (vl-string-trim ")"(vl-string-trim "("(vl-prin1-to-string argument-list))) " "))<br />           (vl-bb-set 'DbxObject argument-list)<br />           (mapcar (function (lambda (x)(vl-bb-set (read x) (eval(read x))))) argument-list)    <br />         )<br />       )                <br />       (setq rtn '())      <br />       (foreach temp filepath-list <br />         (if (vl-catch-all-error-p<br />               (vl-catch-all-apply<br />                 (function (lambda (/ docobj)<br />                             (vla-open (setq docobj (YB-DbxObject)) temp)；；这里的docobj跟执行函数中引用的必须对应<br />                             (if (vl-bb-ref 'DbxObject) (mapcar (function (lambda (x)(vl-bb-ref (read x)))) (vl-bb-ref 'DbxObject)))<br />                             (expr-list)<br />                             (vla-SaveAs docobj temp)

ll0111

这么好的东西，居然没有人顶一下吗

li809

我来顶，可以用来批量pu吗？

ynhh

是不是可以不打开图形文件
就批量改图中的指定文字之类的
感情很方便啊

w245272914

是啊，怎么用啊，不会和

cq_qg

可以用来打印么？

陨落

DBX限制很多的，之前是G版还是风之影好像说过

wyb36870

陨落 发表于 2017-9-13 10:45
DBX限制很多的，之前是G版还是风之影好像说过

但是DBX的速度极快

liuhe

我这个很奇怪啊，有必要重新写lisp在未开图的文档里加载程序么？不是直接取得数据库后进行修改，然后保存就可以了啊

jh3030912

本人小白。需要楼主帮忙解答一下，怎么设置自定义的lsp命令，比如tt1