[求助]：请教如何用lsp自动加载dvb程序？

he520930

请教如何用lsp自动加载dvb程序？

我的C盘中文件夹KKK内有一个名为hhh.dvb程序，怎样每次打开DWG文件自动加载？

我自已试用了以下程序怎么不行的？如下：

(defun S::STARTUP()
  (command "_-vbarun" "C:/kkk/hhh.dvb")
)
请高手指教，谢谢！

qjcpj

从明经下的，供参考：

2. 
   
3. ;;; *.DVB文件自动加载函数
   
4. ;;;调用：
   
5. ;;; (AutoVBALoad "zev" "Zoom_control_all.dvb" "Zoom_extent_all")
   
6. ;;; 上式中，zev为命令行输入的命令名，Zoom_extent_all为宏名称
   
7. (defun AutoVBALoad (cmdname project macro)
   
8.   (eval
   
9.     (list 'defun
   
10.           (read (strcat "C:" cmdname))
    
11.           nil
    
12.           (list
    
13.             'vl-vbarun
    
14.             (strcat
    
15.               project
    
16.               "!"
    
17.               (if macro
    
18.                 macro
    
19.                 cmdname
    
20.               )
    
21.             )
    
22.           )
    
23.           (princ)
    
24.     )
    
25.   )
    
26. )

<br /> ;;; *.DVB文件自动加载函数<br /> ;;;调用：<br /> ;;; (AutoVBALoad "zev" "Zoom_control_all.dvb" "Zoom_extent_all")<br /> ;;; 上式中，zev为命令行输入的命令名，Zoom_extent_all为宏名称<br /> (defun AutoVBALoad (cmdname project macro)<br />   (eval<br />     (list 'defun<br />           (read (strcat "C:" cmdname))<br />           nil<br />           (list<br />             'vl-vbarun<br />             (strcat<br />               project<br />               "!"<br />               (if macro<br />                 macro<br />                 cmdname<br />               )<br />             )<br />           )<br />           (princ)<br />     )<br />   )<br /> )

he520930

楼上的是自动加载的函数吧,
我的意思是利用lsp自动加载另一个dvb文件.如何做,如主题.

aeo

最初由 he520930 发布
[B]请教如何用lsp自动加载dvb程序？

我的C盘中文件夹KKK内有一个名为hhh.dvb程序，怎样每次打开DWG文件自动加载？

我自已试用了以下程序怎么不行的？如下：

(defun S::STARTUP()
  (command "_-vbarun" "C:/k... [/B]

2. 
   
3. (defun c:test ()
   
4.   ;; Call a VBA macro which displays
   
5.   ;; a dialog and writes a file.
   
6.   (vl-vbarun "test")
   
7. 
   
8.   ;;If you uncomment the following line, then AutoCAD will prompt you
   
9.   ;;to select an entity first, input a string second.
   
10.   ;;(entsel)
    
11. 
    
12.   (princ)
    
13. )
    

<br /> (defun c:test () <br />   ;; Call a VBA macro which displays <br />   ;; a dialog and writes a file. <br />   (vl-vbarun "test") <br /> <br />   ;;If you uncomment the following line, then AutoCAD will prompt you <br />   ;;to select an entity first, input a string second. <br />   ;;(entsel) <br /> <br />   (princ) <br /> ) <br />

aeo

google
"AutoCAD开发常见问题"
一下

he520930

我把你的程序试了一下,在命令行提示未找到宏阿,你能不能把文件路径也写出来?如"C:/kkk/hhh.dvb"