[LISP程序]：快速加载LSP或ARX文件

hqd9639

总觉得用APPLOAD 加载LSP或ARX比较麻烦，为此写了个小程序。

2. 
   
3. (defun C:loadprm ()
   
4.    (setq fname (getstring "请输入要加载的LSP或ARX文件名："))
   
5.    (setq fname1 (strcat fname ".lsp"))
   
6.    (setq fname2 (strcat fname ".arx"))
   
7.    (if (findfile fname1)
   
8.        (load fname1)
   
9.    )
   
10.    (if (findfile fname2)
    
11.        (if (not (member (strcase fname2 t)
    
12.                        (mapcar '(lambda (x) (strcase x t)) (arx))
    
13.            )
    
14.            )
    
15.            (progn
    
16.          (arxload fname2)
    
17.                  (prompt (strcat fname2 " 文件加载成功"))
    
18.            )
    
19.            (prompt (strcat fname2 " 文件已经加载"))
    
20.       )
    
21.   )
    
22.   (princ)
    
23. )

<br /> (defun C:loadprm ()<br />    (setq fname (getstring "请输入要加载的LSP或ARX文件名："))<br />    (setq fname1 (strcat fname ".lsp"))<br />    (setq fname2 (strcat fname ".arx"))<br />    (if (findfile fname1)<br />        (load fname1)<br />    )<br />    (if (findfile fname2)<br />        (if (not (member (strcase fname2 t)<br />                        (mapcar '(lambda (x) (strcase x t)) (arx))<br />            )<br />            )<br />            (progn <br />          (arxload fname2)<br />                  (prompt (strcat fname2 " 文件加载成功"))<br />            )<br />            (prompt (strcat fname2 " 文件已经加载"))<br />       )<br />   )<br />   (princ)<br /> )

efan2000

如果文件不位于AutoCAD的支持路径中，还能加载吗？

eachy

工具箱中也有个加载的函数，$xdrx_load 在XDSoft.mnl 中：）

前生

autocad 里的acad2000doc.lsp应该可以的啊

梦断江南

最初由 efan2000 发布
[B]如果文件不位于AutoCAD的支持路径中，还能加载吗？ [/B]

其实除了 在acad*.lsp中加载固定的lsp. 对其它的少用的程序加载
我觉得最方便的还是在  文件管理器中 （如wincmd）直接将文件拖入cad作图区域，完成加载

megranate

只要在acad.rx的文件中加入要加载的ARX全路径名就OK啦！
我只知道ARX的加载。。。LISP不知道！！！

lgh930

在ACADDOC.LSP或相关的*.MNL文件使用（AUTOLAOD）函数，进入
ACAD界面后，只须在命令行输入函数名可自动LOAD