通用AutoCAD二次开发安装程序[更新，支持2005]

无痕

顶一下

mikewolf2k

太好了,先送花,以后再用!

tukuitk

请问秋枫兄：为何有如下问题呢？


       

subtlation

求助秋枫大侠


我按上面的方法做了一次。有一点问题。


前面的都很好。用cad打开时发现菜单文件已经加载，但是在屏幕的菜单栏上并没有显示出来。附件中是我的菜单。帮忙看一些是哪里出错了。谢谢。


       

xuejunnpu

ok

tukuitk

此法仅供参考！适合自己的才是最好的，呵呵……，殊途同归。

秋枫

subtlation发表于2004-3-15 10:53:00求助秋枫大侠我按上面的方法做了一次。有一点问题。前面的都很好。用cad打开时发现菜单文件已经加载，但是在屏幕的菜单栏上并没有显示出来。附件中是我的...

你可能没有详细查看我给出的示例文件的内容 ctt.mnl：

1. ;; load applications and place menu
2. ;; by qiufeng(load "cttsetup.lsp")
3. (princ)

复制代码

其实主要加载菜单的代码都在这个cttsetup.lsp中，是用autolisp实现加载菜单的。你可以仔细看一下这个cttsetup.lsp，然后针对你的菜单文件进行修改。这个Autolisp程序对你来说应该是小CASE啦。你也可以把这段LISP的内容直接写在mnl中。cttsetup.lsp的内容：（我再加点说明吧，反正你要针对你自己的文件修改一下）

2. ;;;以下代码为秋枫添加，for setup;; 加载主程序----如有必要的话，针对不同的AutoCAD版本加载不同的文件。
3. (if (< (atof (getvar "acadver")) 15.0)
4.    (arxload "ctt.arx")
5.    (load "ctt.vlx")
6. );; The following code "placemenu" from LUCAS(龙龙仔);; 这些代码主要来自于本论坛的龙龙仔啦～～你先谢谢他。hehe
7. (defun ctt_placemenu (/ n)
8.    (if (menugroup "CTT")  ; 如果存在菜单组CTT
9.        (progn
10.            (setq n 1)
11.            (while (< n 24)
12.   (if (menucmd (strcat "P" (itoa n) ".1=?"))
13.      (setq n (+ n 1))    ; 不停地往后找，找到最后一条菜单（主要就是看看有几条啦）
14.      (progn    ;  找到了
15.          (if  (> n 3)
16.              (setq n (- n 2))    ; 插在倒数第三条的位置上。（Help与Window之前啦）
17.              (setq n 3)   
18.          )        ;if
19.          (menucmd (strcat "p" (itoa n) "=+CTT.pop1")) ;  你如果有多个菜单组都在这里加载。当然要相应修改一下上下的数字
20.          (setq n 25)
21.      )        ;progn
22.   )        ;if
23.            )          ;while
24.        )          ;progn
25.    )          ;if
26.    (princ)
27. );; 加载下拉菜单
28. (ctt_placemenu)

;;;以下代码为秋枫添加，for setup;; 加载主程序----如有必要的话，针对不同的AutoCAD版本加载不同的文件。 (if (< (atof (getvar "acadver")) 15.0)    (arxload "ctt.arx")    (load "ctt.vlx") );; The following code "placemenu" from LUCAS(龙龙仔);; 这些代码主要来自于本论坛的龙龙仔啦～～你先谢谢他。hehe (defun ctt_placemenu (/ n)    (if (menugroup "CTT")  ; 如果存在菜单组CTT        (progn            (setq n 1)            (while (< n 24)   (if (menucmd (strcat "P" (itoa n) ".1=?"))      (setq n (+ n 1))    ; 不停地往后找，找到最后一条菜单（主要就是看看有几条啦）      (progn    ;  找到了          (if  (> n 3)              (setq n (- n 2))    ; 插在倒数第三条的位置上。（Help与Window之前啦）              (setq n 3)             )        ;if          (menucmd (strcat "p" (itoa n) "=+CTT.pop1")) ;  你如果有多个菜单组都在这里加载。当然要相应修改一下上下的数字          (setq n 25)      )        ;progn   )        ;if            )          ;while        )          ;progn    )          ;if    (princ) );; 加载下拉菜单 (ctt_placemenu)

另给一个晓东工具箱菜单插入的代码，这个是插两条菜单的例子，不多说了，你看得懂：

2. (defun C:AboutXDSoftMenu ()
3.    (xdrx_msgbox
4.        "\n欢迎使用面向应用的XDRX_API
5.          \n\nXDSoft安装程序由秋枫和Quelea制作 ;-)
6.          \nEachy网友完成菜单和部分程序制作
7.          \n更新请访问晓东CAD空间：http://www.xdcad.net"
8.        "*晓东工具箱 Public Beta 0.27* 1/1/2003" 0 0 1)
9.    (princ)
10. )
11. ;; The following code "placemenu" written by LUCAS
12. (defun placemenu (/ n)
13.    (if (menugroup "XDSOFT")
14.        (progn
15.            (setq n 1)
16.            (while (< n 24)
17.   (if (menucmd (strcat "P" (itoa n) ".1=?"))
18.      (setq n (+ n 1))
19.      (progn
20.          (if  (> n 3)
21.              (setq n (- n 2))
22.              (setq n 3)
23.          )        ;if
24.          (menucmd (strcat "p" (itoa n) "=+XDSOFT.pop2"))
25.          (menucmd (strcat "p" (itoa n) "=+XDSOFT.pop1"))
26.          (setq n 25)
27.      )        ;progn
28.   )        ;if
29.            )          ;while
30.        )          ;progn
31.    )          ;if
32.    (princ)
33. )          ;defun placemenu
34. (setvar "cmdecho" 0)
35. (placemenu)

(defun C:AboutXDSoftMenu ()    (xdrx_msgbox        "\n欢迎使用面向应用的XDRX_API          \n\nXDSoft安装程序由秋枫和Quelea制作 ;-)          \nEachy网友完成菜单和部分程序制作          \n更新请访问晓东CAD空间：http://www.xdcad.net"        "*晓东工具箱 Public Beta 0.27* 1/1/2003" 0 0 1)    (princ) ) ;; The following code "placemenu" written by LUCAS (defun placemenu (/ n)    (if (menugroup "XDSOFT")        (progn            (setq n 1)            (while (< n 24)   (if (menucmd (strcat "P" (itoa n) ".1=?"))      (setq n (+ n 1))      (progn          (if  (> n 3)              (setq n (- n 2))              (setq n 3)          )        ;if          (menucmd (strcat "p" (itoa n) "=+XDSOFT.pop2"))          (menucmd (strcat "p" (itoa n) "=+XDSOFT.pop1"))          (setq n 25)      )        ;progn   )        ;if            )          ;while        )          ;progn    )          ;if    (princ) )          ;defun placemenu (setvar "cmdecho" 0) (placemenu)

mccad

建议这段代码直接写在ctt.mnl文件中

subtlation

谢谢秋枫版主和明总。

秋枫

我不是版主呢～～