[求助]：请问如何将visuallisp中的程序一下子load到cad中呢？

goodsheep

visuallisp有这个功能吗？我还没有摸清楚。

cy956

2. 
   
3. 假设有个bi1.lsp文件，它有个函数叫c：bn
   
4. 
   
5. 在第一路径的acad.lsp 文件中加上(if (null c：bn )(load "bi1.lsp"))
   
6. 依次类推，写上一系列，就都加载了。
   
7. 如果想研究，去看看天正的sys目录下的acad.lsp文件，（_@ld  file）的功能是
   
8. 供调用菜单时自动加载用的。
   
9. (DEFUN _@ld (file)
   
10.   (IF (AND (NOT (MEMBER file _tchatoml))
    
11.            (LOAD (STRCAT _prefix file))
    
12.       ) ;_ end of and
    
13.     (SETQ _tchatoml (CONS file _tchatoml))
    
14.   ) ;_ end of if
    
15.   (PRINC)
    
16. ) ;_ end of defun
    

<br /> 假设有个bi1.lsp文件，它有个函数叫c：bn <br /> <br /> 在第一路径的acad.lsp 文件中加上(if (null c：bn )(load "bi1.lsp"))<br /> 依次类推，写上一系列，就都加载了。<br /> 如果想研究，去看看天正的sys目录下的acad.lsp文件，（_@ld  file）的功能是<br /> 供调用菜单时自动加载用的。<br /> (DEFUN _@ld (file)<br />   (IF (AND (NOT (MEMBER file _tchatoml))<br />            (LOAD (STRCAT _prefix file))<br />       ) ;_ end of and<br />     (SETQ _tchatoml (CONS file _tchatoml))<br />   ) ;_ end of if<br />   (PRINC)<br /> ) ;_ end of defun<br />

goodsheep

也许我说得不明白，我说的是编好了lisp，想加载到autocad中看看，

而不是打开cad自动加载某程序，是否一定要在cad中用

tools－》load application－》XXX.lsp？

cy956

2. 
   
3. (defun c: lp()
   
4.   (princ "\nName of lisp file to load: <")(princ *lf1)
   
5.   (setq lf1(getstring ">: "))
   
6.   (if(= lf1 "")(setq lf1 *lf1)(setq *lf1 lf1))
   
7.   (load lf1)(princ)
   
8. )

<br /> (defun c: lp()<br />   (princ "\nName of lisp file to load: <")(princ *lf1)<br />   (setq lf1(getstring ">: "))<br />   (if(= lf1 "")(setq lf1 *lf1)(setq *lf1 lf1))<br />   (load lf1)(princ)<br /> )

e2002

最初由 goodsheep 发布
[B]也许我说得不明白，我说的是编好了lisp，想加载到autocad中看看，

而不是打开cad自动加载某程序，是否一定要在cad中用

tools－》load application－》XXX.lsp？ [/B]

请看看VisualLISP用户参考。其实很方便的，在VLIDE主窗口中有工具条，可以选择是加载整个lsp文档或加载选定的代码
:9 :9 :9

西风瘦马

goodsheep！在vlisp里可以直接运行lisp程序。你可以点击“load active edit windows”。然后，visual lispconsole 窗口会变成显亮，在_$处输入 （函数名） FOR EXAMPLE: （C：gx）。 挺好用的，好像用C语言呀。ctrl＋f9 ，ctrl＋f5。^_^

YueFeng

全部拖入CAD的窗口也可以。