[讨论]：能否开发像autoload一样的函数,自动按需加载vlx格式的文件?

urljit

在工作中,为了减少内存开支,最好是按需加载,使用autoload函数是很好的办法,可是网络上有很多很好的vlx格式文件,如何按需加载是个问题,高手能用vl 或 arx 等其他方法解决这个问题么?

Free-Lancer

你只要改造 autoload  函数就可以实现按需加载所需文件。

urljit

改造autoload?不知道楼上的是什么意思?说到改造,从前还倒是想到过,苦于没有方案,没有进行,不知道楼上的朋友能否说详细些.

Free-Lancer

你应该分析下 autoload 函数，它也是用 load 加载，不过对不同的文件类型选用不同的加载函数，如 arxload load ，既然和文件名有关，肯定有控制文件名的地方

2. 
   
3. (defun ai_ffile (app)
   
4.   (or (findfile (strcat app ".lsp"))
   
5.       (findfile (strcat app ".exp"))
   
6.       (findfile (strcat app ".exe"))
   
7.       (findfile (strcat app ".arx"))
   
8.       (findfile app)
   
9.   )
   
10. )

<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 app)<br />   )<br /> )

这是acad200xdoc.lsp 的源码，看到文件后缀了吧，只要增加一个 vlx  类型就可以了。

2. 
   
3. (defun ai_ffile (app)
   
4.   (or (findfile (strcat app ".lsp"))
   
5.       (findfile (strcat app ".exp"))
   
6.       (findfile (strcat app ".exe"))
   
7.       (findfile (strcat app ".arx"))
   
8. [color=blue]      (findfile (strcat app ".vlx"))[/color]
   
9.       (findfile app)
   
10.   )
    
11. )
    

<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 /> [color=blue]      (findfile (strcat app ".vlx"))[/color]<br />       (findfile app)<br />   )<br /> )<br />

当然后面还有出错提示部分，也可以将 vlx 加进去。

urljit

谢谢,楼上的朋友,我还以为autoload是cad的内部函数呢.谢谢

戴戴

能不能在说清楚点哦，我是初学者看不懂！！！！

它山之石

呵呵。看看这样行吗。我把你的SLT重定义了。

[php]
(defun C:T (/ )
  (setvar "CMDECHO" 0)
  (if (not (member 'SLT (vl-list-loaded-vlx)))
    (load "SLT.VLX")
  )
  (c:slt)
)
[/php]

urljit

楼上，你作的不错！恐怕不能自动加载其他程序。我将上传一个改过的acad2000.lsp，从而让初学者也能如愿。

它山之石

　　1、我这样不但按需加载了程序，而且等于给原名字较长的程序加了个命令缩写。可以取代CAD中的ACAD.PGP了。
　　2、我把上述代码写在ACAD.LSP中或ACAD200＊.LSP中就是了。用户也可定制。

wangxj2002

各位大虾：R14下可以修改吗？？

qjcpj

R14下好像不行，因Visual Lisp for R14不能将*.lsp文件编译为*.vlx文件。不过可以按以上办法改造，从而按需加载*.fas文件，前提是在CAD系统中必须装有Visual Lisp for R14，如果没有安装，需在运行*.fas文件前，加载Visual Lisp for R14下的几个*.arx文件(事先将这几个文件拷贝至硬盘的某一地方，并在acad.lsp或*.mnl文件中定义加载)。

urljit

我修改的acad2000doc.lsp，里面有可以识别vlx的autoload函数定义

乐逍遥

最初由 urljit 发布
[B]我修改的acad2000doc.lsp，里面有可以识别vlx的autoload函数定义 [/B]

文件是空的

urljit

已经更新了，如果再有此类事件，可以发悄悄话呀。

jx2008

它山之石说有，怎么没见上传或贴出来呢？