请教cad自定义菜单自动启动设置的问题
<p>本人做了一个自定义局部菜单，想让cad2006在第一次启动时就自动加载该菜单。不知道该怎么做，请各位高手赐教。</p><p>通过在cad里运行cuiload可以加载并在以后可以一直使用。</p>
<p>但我想在cad启动设置里面做工作，这样就不用在cad里面加载了。</p>
<p>先谢谢各位。</p> <p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">请参阅帮助内的相关章节</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">Customization Guide</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">The Customization Guide tells experienced users <br/>how to customize AutoCAD. <br/>To browse the Customization Guide, <br/>use the Contents tab on the left side of the Help window.</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">===> <br/>Customize the User Interface <br/> ===><br/> Create Pull-Down and Shortcut Menus<br/> ===><br/> Reference Pull-Down or Shortcut Menus<br/> ===><br/> Reference Pull-Down or Shortcut Menus<br/> <br/> <br/>more info:</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">http://www.afralisp.net/archive/vl/vlmenu1.htm<br/>http://www.afralisp.net/archive/<br/> ==><br/> AutoLisp and Menu's</font></p>
<p> </p>
<p> </p> 在Acad.lsp中加入
(if (not (menugroup "MyMenu"))
(load "MyMenu")
)
另一个文件
;;;MyMenu.LSP
(defun FD_LOAD_AUTOCAD_MENU ( / COUNTER OLD_CMDECHO POPUP_FILE POPUP_NAME )
(setq POPUP_FILE "MyMenu.mnu")
(setq POPUP_NAME "MyMenu")
(setq OLD_CMDECHO (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq COUNTER 1)
(while (menucmd (strcat "P" (itoa COUNTER) ".1=?"))
(setq COUNTER (1+ COUNTER))
)
(command "_.MENULOAD" POPUP_FILE)
(menucmd (strcat "P" (itoa (1- COUNTER)) "=+MyMenu." POPUP_NAME))
(setvar "CMDECHO" OLD_CMDECHO)
(princ)
)
(fd_load_autocad_menu) 学习一下。
页:
[1]