[求助]：如何编译lisp函数，以方便其他程序调用？

libo2000

如何编译lisp函数，以方便其他lisp程序调用？

qjcpj

可编译为fas或vlx文件，但最好编写一个CHM的帮助文件，将文件中所定义的函数或函数名作一个简单说明，不然时间长了，自己都记不得。

libo2000

不好意思，没说清楚，我的意思是在R14下的vlisp，如何编译lisp函数，以方便其他程序调用？
R14不支持加载vlx，fas。

qjcpj

最初由 libo2000 发布
[B]不好意思，没说清楚，我的意思是在R14下的vlisp，如何编译lisp函数，以方便其他程序调用？
R14不支持加载vlx，fas。 [/B]

安装Vlisp for R14或加载vlrts.arx和vlrts.lsp两文件，可使R14支持加载vlx，fas格式文件。
关于在R14下编译lsp文件，由于我未装有R14，现以05的vlisp编译为例截图(其实与R14一样)。

libo2000

加载vlrts.arx和vlrts.lsp两文件

无法加载vlrts.lsp。
另外编译后的arx有不少command命令与lisp的command有严重出入，有时好，有时坏。

zb_lou

请问在那里有这两个文件 vlrts.arx  和 vlrts.lsp

qjcpj

最初由 zb_lou 发布
[B]请问在那里有这两个文件 vlrts.arx  和 vlrts.lsp [/B]

libo2000

R14下无法加载无法加载vlrts.lsp。
提示(vl-acad-defun )为空？
怎么解决？

marcoyuwen

有些函数ACAD R14不支持，看来只能自己动手做个函数了！

qjcpj

R14是很久以前用的了，其实不加载vlrts.lsp文件，光加载vlrts.arx文件也能在R14中使用*.fas和*.vlx文件。
我经过调试，可以这样：

2. 
   
3. ;; 定义加载vl-load，加载该模块后，可在命令行输入vl-load函数加载*.lsp;*.fas;*.vlx文件
   
4. ;; 注意：vlrts.arx文件必须在AutoCAD系统支持路径下
   
5. (defun c:test ()
   
6.   (if (not (member "vlrts.arx" (arx)))
   
7.     (arxload "vlrts.arx")
   
8.   )
   
9.   (vlrts-init)
   
10.   (setvar "lispinit" 0)
    
11.   (setq *VL-NEW-FULL-INIT* nil)
    
12. )
    
13. 
    
14. ;;加载上述模块后，在lisp中可按如下方法调用。
    
15. (if (findfile "myproject.vlx")
    
16.   (vl-load "myproject.vlx")
    
17. )
    

<br /> ;; 定义加载vl-load，加载该模块后，可在命令行输入vl-load函数加载*.lsp;*.fas;*.vlx文件<br /> ;; 注意：vlrts.arx文件必须在AutoCAD系统支持路径下<br /> (defun c:test ()<br />   (if (not (member "vlrts.arx" (arx)))<br />     (arxload "vlrts.arx")<br />   )<br />   (vlrts-init)<br />   (setvar "lispinit" 0)<br />   (setq *VL-NEW-FULL-INIT* nil)<br /> )<br /> <br /> ;;加载上述模块后，在lisp中可按如下方法调用。<br /> (if (findfile "myproject.vlx")<br />   (vl-load "myproject.vlx")<br /> ) <br />

zb_lou

非常感谢长老。。。正需要这个！