[求助]：怎样加载*。DVB？

yzhmyyy

怎样加载*.DVB到CAD中？

gjliang

(princ "\设计工具，制作:thanksway，请登陆http://thanksway/dvbbs获得最新版本！")
(princ)

(vl-load-com)
;;自动加载VBA程序的函数
(defun AutoVBALoad (cmdname project macro)
  (eval
    (list 'defun
  (read (strcat "C:" cmdname))
  nil
  (list
    'vl-vbarun
    (strcat
      project
      "!"
      (if macro
macro
cmdname
      )
    )
  )
  (princ)
    )
  )
)

(AutoVBALoad "lh" "test.dvb" "lhjc")
把上面的代码拷贝到acad2000doc.lsp里看看，"lh"是快捷命令，"lhjc"是宏名。启动cad后直接键入lh就可以加载*.DVB文件并运行相对应的宏，前提是你必须把*.DVB文件放到cad的搜索路径里，如果你有很多执行单个任务的宏，那就把(AutoVBALoad "lh" "test.dvb" "lhjc")往下复制就可以了，当然每个宏要对应不同的快捷命令。我用的是cad2002，你就可以根据自己所使用的版本找到自动加载的.lsp程序，把上面的那段代码拷贝到里面就可以了。

lsjjm

(setq filename (findfile "my.dvb"))
  (vl-vbaload filename)

gyl

菜单：工具\宏\加载工程
命令：vbaload

efan2000

可能是路径没有设置好，将它放到ACAD的支持路径下就能找到。