[LISP函数]：让Autoload支持vlx fas

eachy

2. 
   
3. ;;让Autoload支持vlx fas
   
4. ;;加入自定义的自动加载中
   
5. (defun ai_ffile        (app)
   
6.   (or (findfile (strcat app ".lsp"))
   
7.       (findfile (strcat app ".exp"))
   
8.       (findfile (strcat app ".exe"))
   
9.       (findfile (strcat app ".arx"))
   
10.       (findfile (strcat app ".fas"))
    
11.       (findfile (strcat app ".vlx"))
    
12.       (findfile app)
    
13.   )
    
14. )
    
15. (defun ai_nofile (filename)
    
16.   (princ
    
17.     (strcat "\n在支持路径中未找到 "
    
18.             filename
    
19.             "(.lsp/.exe/.arx/.fas/.vlx) 文件."
    
20.     )
    
21.   )
    
22.   (princ "\n检查你的 Support 路径并再次运行.")
    
23.   (princ)
    
24. )

<br /> ;;让Autoload支持vlx fas<br /> ;;加入自定义的自动加载中<br /> (defun ai_ffile        (app)<br />   (or (findfile (strcat app ".lsp"))<br />       (findfile (strcat app ".exp"))<br />       (findfile (strcat app ".exe"))<br />       (findfile (strcat app ".arx"))<br />       (findfile (strcat app ".fas"))<br />       (findfile (strcat app ".vlx"))<br />       (findfile app)<br />   )<br /> )<br /> (defun ai_nofile (filename)<br />   (princ<br />     (strcat "\n在支持路径中未找到 "<br />             filename<br />             "(.lsp/.exe/.arx/.fas/.vlx) 文件."<br />     )<br />   )<br />   (princ "\n检查你的 Support 路径并再次运行.")<br />   (princ)<br /> )

nigma

这个函数怎么用?

sccat

笨笨的问一句怎么用?

twc999

楼上是不是想问在什么时候用,我觉得应该是在R14版本才用吧,我知道的2004以上是不用加载就能用的.

fsxm

看来看去还是看不明白～！

jx2008

其实是在cad安装目录吓得surpport目录下的acad2002doc.lsp文件中的代码，加进代码
   (findfile (strcat app ".fas"))
      (findfile (strcat app ".vlx"))
即可

最简单直接的办法是，中直接加上文件扩展 .fas .vlx即可。

hbgsw

也就是说，用这个 方法 的 LISP就可以 让自己的 LISP自动每次都加载是八。

176489156

能自动加载吗

lukern

利用appload就可以加载所有的格式了,也就是用load语句即可.