如何向多个文件发送命令？

shh_188

nzl1116 发表于 2014-6-16 21:43
多文档之间的操作就是跟你想的一样，当lisp把控制权交给另外一个文档时，它就停止执行，一直到那个文档执 ...

是的，我想要的结果，就是你说描述的
只是说，因为完全没有多文档这方面的经验，再加上今天在论坛里也没找到需要的样例，弄得现在仍然是一头雾水

所以说想请问下，是不是能提供一个样例，如果是链接也非常需要的

nzl1116

shh_188 发表于 2014-6-16 21:53
是的，我想要的结果，就是你说描述的
只是说，因为完全没有多文档这方面的经验，再加上今天在论坛里也没 ...

1. (defun getcommandname (file   /     acadapp   documents
   
2.                                          actdoc   mnlfile   tmpfile   tmpf
   
3.                                         value     str1      abcDoc
   
4.                                          )
   
5.   (vl-load-com)
   
6.   (setq  acadapp    (vlax-get-acad-object)
   
7.            documents (vla-get-documents acadapp)
   
8.               actdoc    (vla-get-activedocument acadapp)
   
9.   )
   
10.   ;;寻找自动加载的"acad.mnl"文件，并在同目录下创建"tmpfile.lsp"文件
    
11.   (setq  mnlfile  (findfile "acad.mnl")
    
12.            tmpfile  (strcat (vl-filename-directory mnlfile) "\\tmpfile.lsp")
    
13.            tmpf  (open tmpfile "w")
    
14.   )
    
15.   ;;在tmpfile.lsp"文件里写入 findfunc 函数定义
    
16.   (princ (vl-prin1-to-string
    
17.               '(defun findfunc (file / lst1 lst2 lst3)
    
18.               (mapcar
    
19.                 '(lambda (x)
    
20.                    (if (or (wcmatch x "C:*")
    
21.                            (wcmatch x "c:*")
    
22.                       )
    
23.                    (setq lst1 (cons x lst1))
    
24.                  )
    
25.                )
    
26.         (atoms-family 1)
    
27.        )
    
28.        (load file (princ))
    
29.        (mapcar
    
30.         '(lambda (x)
    
31.      (if (or (wcmatch x "C:*")
    
32.        (wcmatch x "c:*")
    
33.          )
    
34.        (setq lst2 (cons x lst2))
    
35.      )
    
36.          )
    
37.         (atoms-family 1)
    
38.        )
    
39.        (mapcar
    
40.         '(lambda (x)
    
41.      (if (not (member x lst1))
    
42.        (setq lst3 (cons x lst3))
    
43.      )
    
44.          )
    
45.         lst2
    
46.        )
    
47.        (vl-bb-set 'a lst3)
    
48.       ) ;_ 结束defun
    
49.    ) ;_ 结束 vl-princ1-to-string
    
50.    tmpf
    
51.   ) ;_ 结束 princ
    
52.   ;;在文件的后面添加两行代码
    
53.   ;;(findfunc file) ;_ 执行自定义函数
    
54.   ;;(vl-load-com) ;_ 在第二个文档的名称空间里加载ActiveX支持[?这一步不知道是否需要]
    
55.   ;;(vla-Activate actDoc) ;_ 激活前一个文档，把控制权交还给它
    
56.   (princ (strcat "\n(findfunc " (vl-prin1-to-string file) " )")
    
57.    tmpf
    
58.   )
    
59.   (princ "\n(vl-load-com)" tmpf)
    
60.   (princ "\n(vla-Activate actdoc)" tmpf)
    
61.   ;;关闭"tmpfile.lsp"文件
    
62.   (close tmpf)
    
63.   ;;从头到尾依次读取指定文件的每一行，
    
64.   ;;如果文件存在指定的字符串，就返回这
    
65.   ;;条字符串，并停止搜索，否则返回nil。
    
66.   (defun readeveryline (fd string / str)
    
67.     (if  (setq str (read-line fd))
    
68.       (if (/= string str)
    
69.   (readeveryline fd string)
    
70.   str
    
71.       )
    
72.     )
    
73.   )
    
74.   ;;打开"acad.mnl"文件，依次读取每一行
    
75.   ;;寻找是不是存在(load tmpfile (princ))这一行代码
    
76.   ;;若不存在，就在文件里添加
    
77.   (setq  tmpf (open mnlfile "r")
    
78.   str1 (strcat "(load " (vl-prin1-to-string tmpfile) " (princ))")
    
79.   )
    
80.   (if (readeveryline tmpf str1)
    
81.     (close tmpf)
    
82.     (progn (close tmpf)
    
83.      (setq tmpf (open mnlfile "a"))
    
84.      (princ (strcat "\n" str1) tmpf)
    
85.      (close tmpf)
    
86.     )
    
87.   )
    
88.   ;;新建一个文档，同时，把控制权交给它
    
89.   (setq abcDoc (vla-add documents ""))
    
90.   ;;第二个文档执行完所有的代码后，自动把控制权交还给第一个文档
    
91.   ;;第一个文档得到控制权后，就关闭第二个文档
    
92.   (vla-close abcDoc)
    
93.   ;;从黑板读取变量值
    
94.   (setq value (vl-bb-ref 'a))
    
95.   ;;删除黑板的变量
    
96.   (vl-bb-set 'a nil)
    
97.   ;;删除文件
    
98.   (vl-file-delete tmpfile)
    
99.   value
    
100. )

(defun getcommandname (file   /     acadapp   documents<br />                                          actdoc   mnlfile   tmpfile   tmpf<br />                                         value     str1      abcDoc<br />                                          )<br />   (vl-load-com)<br />   (setq  acadapp    (vlax-get-acad-object)<br />            documents (vla-get-documents acadapp)<br />               actdoc    (vla-get-activedocument acadapp)<br />   )<br />   ;;寻找自动加载的"acad.mnl"文件，并在同目录下创建"tmpfile.lsp"文件<br />   (setq  mnlfile  (findfile "acad.mnl")<br />            tmpfile  (strcat (vl-filename-directory mnlfile) "\\tmpfile.lsp")<br />            tmpf  (open tmpfile "w")<br />   )<br />   ;;在tmpfile.lsp"文件里写入 findfunc 函数定义<br />   (princ (vl-prin1-to-string<br />               '(defun findfunc (file / lst1 lst2 lst3)<br />               (mapcar<br />                 '(lambda (x)<br />                    (if (or (wcmatch x "C:*")<br />                            (wcmatch x "c:*")<br />                       )<br />                    (setq lst1 (cons x lst1))<br />                  )<br />                )<br />         (atoms-family 1)<br />        )<br />        (load file (princ))<br />        (mapcar<br />         '(lambda (x)<br />      (if (or (wcmatch x "C:*")<br />        (wcmatch x "c:*")<br />          )<br />        (setq lst2 (cons x lst2))<br />      )<br />          )<br />         (atoms-family 1)<br />        )<br />        (mapcar<br />         '(lambda (x)<br />      (if (not (member x lst1))<br />        (setq lst3 (cons x lst3))<br />      )<br />          )<br />         lst2<br />        )<br />        (vl-bb-set 'a lst3)<br />       ) ;_ 结束defun<br />    ) ;_ 结束 vl-princ1-to-string<br />    tmpf<br />   ) ;_ 结束 princ<br />   ;;在文件的后面添加两行代码<br />   ;;(findfunc file) ;_ 执行自定义函数<br />   ;;(vl-load-com) ;_ 在第二个文档的名称空间里加载ActiveX支持[?这一步不知道是否需要]<br />   ;;(vla-Activate actDoc) ;_ 激活前一个文档，把控制权交还给它<br />   (princ (strcat "\n(findfunc " (vl-prin1-to-string file) " )")<br />    tmpf<br />   )<br />   (princ "\n(vl-load-com)" tmpf)<br />   (princ "\n(vla-Activate actdoc)" tmpf)<br />   ;;关闭"tmpfile.lsp"文件<br />   (close tmpf)<br />   ;;从头到尾依次读取指定文件的每一行，<br />   ;;如果文件存在指定的字符串，就返回这<br />   ;;条字符串，并停止搜索，否则返回nil。<br />   (defun readeveryline (fd string / str)<br />     (if  (setq str (read-line fd))<br />       (if (/= string str)<br />   (readeveryline fd string)<br />   str<br />       )<br />     )<br />   )<br />   ;;打开"acad.mnl"文件，依次读取每一行<br />   ;;寻找是不是存在(load tmpfile (princ))这一行代码<br />   ;;若不存在，就在文件里添加<br />   (setq  tmpf (open mnlfile "r")<br />   str1 (strcat "(load " (vl-prin1-to-string tmpfile) " (princ))")<br />   )<br />   (if (readeveryline tmpf str1)<br />     (close tmpf)<br />     (progn (close tmpf)<br />      (setq tmpf (open mnlfile "a"))<br />      (princ (strcat "\n" str1) tmpf)<br />      (close tmpf)<br />     )<br />   )<br />   ;;新建一个文档，同时，把控制权交给它<br />   (setq abcDoc (vla-add documents ""))<br />   ;;第二个文档执行完所有的代码后，自动把控制权交还给第一个文档<br />   ;;第一个文档得到控制权后，就关闭第二个文档<br />   (vla-close abcDoc)<br />   ;;从黑板读取变量值<br />   (setq value (vl-bb-ref 'a))<br />   ;;删除黑板的变量<br />   (vl-bb-set 'a nil)<br />   ;;删除文件<br />   (vl-file-delete tmpfile)<br />   value<br /> )

shh_188

nzl1116 发表于 2014-6-16 22:12

非常感谢！！

llsheng_73

nzl1116 发表于 2014-6-16 22:12

留个记号，以后慢慢来学习