[求助]：两个问题。如何在cad原有菜单上增加我的菜单。2如何在cad搜索目录中增加一个

BBBall

如何在cad原有菜单上增加我的菜单。我的意思是在lisp写程序增加，不是修改原有的菜单文件。并且建立一个属于独立的启动文件。（比如天正安装后增加了自身的菜单，但是如果不起动天正只是启动cad菜单项中并不增加）
如何在cad搜索目录中增加一个新的路径。在那里修改呢？

841594

这是我程序里添加下拉菜单的段落：

2. 
   
3.   [FONT=courier new]
   
4. ;;;   嵌入用户菜单--参考lucas程序编写
   
5. 
   
6.   (defun do_plmnu (menuname groupname / n)
   
7.     (if        (or (= groupname "") (null groupname))
   
8.       (setq groupname menuname)
   
9.     )
   
10.     (if        (menugroup groupname)
    
11.       (command "menuunload" groupname)
    
12.     )
    
13.     (command "menuload" (strcat menuname ".mnu"))
    
14. 
    
15.     (setq n 1)
    
16.     (while (< n 24)
    
17.       (if (menucmd (strcat "P" (itoa n) ".1=?"))
    
18.         (setq n (+ n 1))
    
19.         (progn
    
20.           (menucmd (strcat "p" (itoa n) "=+usertbox.pop1"))
    
21.           (setq n 25)
    
22.         )                                ;progn
    
23.       )                                        ;if
    
24.     )                                        ;while
    
25.   )
    
26. 
    
27.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;   嵌入用户菜单--参考lucas程序编写<br /> <br />   (defun do_plmnu (menuname groupname / n)<br />     (if        (or (= groupname "") (null groupname))<br />       (setq groupname menuname)<br />     )<br />     (if        (menugroup groupname)<br />       (command "menuunload" groupname)<br />     )<br />     (command "menuload" (strcat menuname ".mnu"))<br /> <br />     (setq n 1)<br />     (while (< n 24)<br />       (if (menucmd (strcat "P" (itoa n) ".1=?"))<br />         (setq n (+ n 1))<br />         (progn<br />           (menucmd (strcat "p" (itoa n) "=+usertbox.pop1"))<br />           (setq n 25)<br />         )                                ;progn<br />       )                                        ;if<br />     )                                        ;while<br />   )<br /> <br />   [/FONT]<br />

BBBall

非常感谢！测试中。
第二个呢？

lsjjm

最初由 BBBall 发布
[B]非常感谢！测试中。第二个呢？ [/B]

Options-files-Support FileSearch Path-Add