社区 › AutoLISP/Visual LISP 编程技术 › AutoCAD二次开发安装程序制作(2019-11-11)

tactsong 发表于 2007-9-17 15:02:00

good

yongtao 发表于 2007-10-18 08:37:00

先支持一下

wanglin_741 发表于 2007-10-26 19:49:00

请班主作个"图文并茂的制作安装程序教程"吧,大家好渴喔!

清河静 发表于 2007-11-17 00:35:00

<font color="#77aa55">是我想找了好久的东西，谢谢~</font>

azjmjsj 发表于 2007-12-2 11:27:00

<p><strong>我自己试做的AutoCAD二次开发安装程序，欢迎使用！</strong></p><p><strong><a href="http://www.abofanyi.com/blog">www.abofanyi.com/blog</a> 下载</strong></p>

ww810529 发表于 2008-1-12 19:57:00

<p>不错！有vb.net或C#版本吗？</p>

cxjzxh 发表于 2008-1-18 14:10:00

秋枫兄，能不能发一份AUTOCAD二次开发安装程式的源码发给我一份，不甚感激！cxjzxf@126.com

caoxianfa 发表于 2008-1-25 22:07:00

<p>有没有人试过用vfp语言来控制cad绘图的呢？</p>

aicr317 发表于 2008-2-17 17:01:00

<p>我是用秋枫版主的样列来修改的（只是替换了名称），我把代码贴上来，请教版主如何添加搜索路径，怎么改，添加在哪里，谢谢！</p><p>比如我要添加：D:\SCEI\TQ</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;D:\SCEI\FM</p><p></p><p></p><p>;; 首先定义初始化函数<br/>(defun InitsceiApplication (/<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;; 内部函数<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GetMyApplicationPath GetsceiPath<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strParse&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; StrUnParse<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; scei_AddSupportPath&nbsp;&nbsp; Load_sceiMenu<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; scei_placemenu<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;; 局部变量<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; scei_cmdecho_save<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )</p><p>;;; 取得本程序的路径.<br/>;;; 文件路径从注册表中读取，这些信息由安装程序负责写入注册表<br/>;;; ---------------------------------------------------------------------------------<br/>&nbsp; (defun GetMyApplicationPath (AppID)<br/>&nbsp;&nbsp;&nbsp; (vl-registry-read<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (strcat<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AppID<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "_is1"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "Inno Setup: App Path"<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )</p><p>&nbsp;;; 这里取得安装后，安装的文件夹的绝对路径<br/>&nbsp;;; 注意：这里的AppID为"scei", 稍后的安装程序制作向导设置中必须与这里保持一致<br/>&nbsp; (defun GetsceiPath ()<br/>&nbsp;&nbsp;&nbsp; (GetMyApplicationPath "scei")<br/>&nbsp; )</p><p>;;; 解析字符串为表（函数来自明经通道转载）<br/>;;; ---------------------------------------------------------------------------------<br/>&nbsp; (defun strParse (Str Delimiter / SearchStr StringLen return n char)<br/>&nbsp;&nbsp;&nbsp; (setq SearchStr Str)<br/>&nbsp;&nbsp;&nbsp; (setq StringLen (strlen SearchStr))<br/>&nbsp;&nbsp;&nbsp; (setq return '())<br/>&nbsp;&nbsp;&nbsp; (while (&gt; StringLen 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq n 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq char (substr SearchStr 1 1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (while (and (/= char Delimiter) (/= char ""))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq n (1+ n))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq char (substr SearchStr n 1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ) ;_ end of while<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq return (cons (substr SearchStr 1 (1- n)) return))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq SearchStr (substr SearchStr (1+ n) StringLen))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq StringLen (strlen SearchStr))<br/>&nbsp;&nbsp;&nbsp; ) ;_ end of while<br/>&nbsp;&nbsp;&nbsp; (reverse return)<br/>&nbsp; ) ;_ end of defun</p><p>;;; 反解析表为字符串（函数来自明经通道转载）<br/>;;; ---------------------------------------------------------------------------------<br/>&nbsp; (defun StrUnParse (Lst Delimiter / return)<br/>&nbsp;&nbsp;&nbsp; (setq return "")<br/>&nbsp;&nbsp;&nbsp; (foreach str Lst<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq return (strcat return Delimiter str))<br/>&nbsp;&nbsp;&nbsp; ) ;_ end of foreach<br/>&nbsp;&nbsp;&nbsp; (substr return 2)<br/>&nbsp; ) ;_ end of defun</p><p>;;; 添加支持文件搜索路径<br/>;;; ---------------------------------------------------------------------------------<br/>;;; note:&nbsp; 第二个参数如果为真, 插最前，否则插最后<br/>;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp; (defun scei_AddSupportPath (PathToAdd isFirst / supportlist)<br/>&nbsp;&nbsp;&nbsp; (if (not<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vl-string-search<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (strcase (strcat pathToAdd ";"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (strcase (strcat (getenv "ACAD") ";"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ; 保证不重复添加<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq supportlist (strparse (getenv "ACAD") ";"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq supportlist<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vl-remove-if-not<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'vl-file-directory-p<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; supportlist<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ; 移除不存在的文件夹<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if isFirst<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq supportlist (cons PathToAdd supportlist))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq supportlist (append supportlist (list PathToAdd)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setenv "ACAD" (strUnParse supportlist ";"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )</p><p>&nbsp; ;; 根据不同的AutoCAD版本加载不同的菜单文件。<br/>&nbsp; (defun Load_sceiMenu (/ acadver)<br/>&nbsp;&nbsp;&nbsp; (setq acadver (atof (getvar "acadver")))<br/>&nbsp;&nbsp;&nbsp; (cond<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((and (&gt;= acadver 15.0) (&lt; acadver 16.0))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "_menuload" "scei.mns")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((and (&gt;= acadver 16.0) (&lt;= acadver 16.1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "_menuload" "all.mns")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((&gt;= acadver 16.2) (command "_menuload" "scei2006.mns"))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )</p><p>&nbsp; ;; 这个函数用来插入菜单条<br/>&nbsp; ;; The following code "placemenu" from LUCAS(龙龙仔)<br/>&nbsp; (defun scei_placemenu (/ n)<br/>&nbsp;&nbsp;&nbsp; (if (menugroup "scei")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq n 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (while (&lt; n 24)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (menucmd (strcat "P" (itoa n) ".1=?"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq n (+ n 1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (&gt; n 3)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq n (- n 2))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq n 3)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;if<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;; 如需插入多条菜单，以反序在这里写：<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;; 因只有一条下拉菜单，因此这里4，3，2条注释掉<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;; (menucmd (strcat "p" (itoa n) "=+scei.pop4"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;; (menucmd (strcat "p" (itoa n) "=+scei.pop3"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;; (menucmd (strcat "p" (itoa n) "=+scei.pop2"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (menucmd (strcat "p" (itoa n) "=+scei.pop1"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq n 25)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;if<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;while<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;progn<br/>&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;if<br/>&nbsp;&nbsp;&nbsp; (princ)<br/>&nbsp; )</p><p><br/>;;; 初始化主函数<br/>;;; ---------------------------------------------------<br/>(defun Init_scei ()<br/>&nbsp; ;; 添加支持路径<br/>&nbsp; (AddSupportPath (GetsceiPath) nil)<br/>&nbsp; (AddSupportPath (strcat (GetsceiPath) "<a href="file://tq/">\\tq</a>") nil)<br/>&nbsp; </p><p><br/>&nbsp; ;; 如果菜单组还没有被加载，则加载之<br/>&nbsp; (if (not (menugroup "scei"))<br/>&nbsp;&nbsp;&nbsp; (Load_sceiMenu)<br/>&nbsp; )</p><p>&nbsp; ;; 安排菜单条的位置<br/>&nbsp; (scei_PlaceMenu)</p><p>&nbsp; (princ)<br/>)</p><p>;;; -----------------------------------------------------<br/>;;; main：<br/>;;; -----------------------------------------------------<br/>&nbsp; (setq scei_cmdecho_save (getvar "cmdecho"))<br/>&nbsp; (setvar "cmdecho" 0)</p><p>&nbsp; ;; 加载下拉菜单<br/>&nbsp; (scei_AddSupportPath (GetsceiPath) nil)</p><p>&nbsp; ;; 如果菜单组还没有被加载，则加载之<br/>&nbsp; (if (not (menugroup "scei"))<br/>&nbsp;&nbsp;&nbsp; (Load_sceiMenu)<br/>&nbsp; )</p><p>&nbsp; ;; 插到合适的位置<br/>&nbsp; (scei_placemenu)<br/>&nbsp; (setvar "cmdecho" scei_cmdecho_save)<br/>&nbsp; (setq scei_cmdecho_save nil)</p><p>&nbsp; (princ)<br/>) ;_end of defun initsceiApplication</p><p>(initsceiApplication)</p><p>;; 加载主程序<br/>;; 为节省内存，这里也可以以autoload函数形式定义<br/>;; 有几条写几条<br/>(load "scei.lsp")<br/>(arxload "scei.arx")<br/>(command "vbaload" "ACAD.dvb")</p><p><br/>(princ)</p><p></p><p>;;==================================</p><p></p><p>另外，每次加载的菜单都是在这个位置，如图所示，怎么把它修改后，放在“帮助”一栏的后面？</p><p></p><p>我加载了一个DVB文件，但是每次启动CAD都跳出如下提示，如何能让它不要显示，改如何修改？</p>

jiangjun 发表于 2008-4-7 00:54:00

<p>秋枫兄</p><p>CAD２００７怎么不能加载菜单呢？</p><p>((and (&gt;= acadver 17.0) (&lt; acadver 18.0))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "_cuiload" "dl2007.cui")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )</p><p></p><p>返回：</p><p>命令: (command "_cuiload" "dl2007.cui")<br/>_cuiload<br/>输入要加载的自定义文件的名称: dl2007.cui<br/>无法加载自定义文件: dl2007.cui<br/>该自定义组的名称已存在。</p><p>怎么解决　谢谢</p>

查看完整版本: AutoCAD二次开发安装程序制作(2019-11-11)