【已解决】如何自动将(vl-load-all "**.vlx")语句加到acad2012.lsp文件里

wdmzslw

如题，怎么写一段程序自动判断acad2012.lsp文件里是否已经含有((vl-load-all "zz.vlx")
(princ))
语句，如果没有就将其加到acad2012.lsp文件里？

marting

你这样处理就复杂了哈，如果某个别的LISP里面也包括AA.VLX加载，你怎么办，不能只判断一个ACADDOC.LSP啊，

其实，正解是应该判断当前系统是否加载了AA.VLX这个文件，或者判断其中你定义个某个函数是否已经存在，存在了，就说明已经加载了

1. (atoms-family 1)
   

(atoms-family 1)<br />

上面函数返回所有已经定义的函数名字符串，你用member函数判断下你的函数是否在其中。

wdmzslw

marting 发表于 2017-6-16 11:32

单独一个文档时已经加载了AA.vlx，加载(vl-load-all "AA.vlx")是为了使CAD多文档时，AA.vlx好用也好用。不知道怎么自动实现？

newer

XDRX API

1. (defun mfind (fn str / strl str1)
   
2.     (and (setq fn (findfile fn))
   
3.          (setq strl (xd::list:fromfile fn))
   
4.          (setq str1 (apply 'strcat strl))
   
5.          (not (xdrx_string_regexps (XD::String:EscapeCha str) str1 ""))
   
6.          (setq strl (cons str strl))
   
7.          (xd::list:tofile fn strl)
   
8.     )
   
9. )
   
10. 
    

(defun mfind (fn str / strl str1)<br />     (and (setq fn (findfile fn))<br />          (setq strl (xd::list:fromfile fn))<br />          (setq str1 (apply 'strcat strl))<br />          (not (xdrx_string_regexps (XD::String:EscapeCha str) str1 ""))<br />          (setq strl (cons str strl))<br />          (xd::list:tofile fn strl)<br />     )<br /> )<br /> <br />

1. (mfind "acad2007doc.lsp" "(vl-load-all \"zz.vlx\")")
   

(mfind "acad2007doc.lsp" "(vl-load-all \"zz.vlx\")")<br />

执行后，

wdmzslw

(XD::String:EscapeCha str) 这个函数有源代码么？我想学学

newer

wdmzslw 发表于 2017-6-20 16:48

用  函数名  搜索下论坛就有了，开源函数库论坛有源码。

wdmzslw

newer 发表于 2017-6-20 17:44

(xdrx_string_regexps 这个函数有源码么？