;; 该函数将明经增效菜单放到AutoCAD下拉菜单的倒数第三位。
;; ----------------------------------------------------------------(defun mccad-init-placemenu (/ CNT)
(setq CNT 1)
(while (< CNT 24)
(if (menucmd (strcat "P" (itoa CNT) ".1=?"))
(setq CNT (1+ CNT))
(progn
(if (> CNT 2)
(setq CNT (- CNT 2))
(setq CNT 2)
)
(menucmd (strcat "p" (itoa CNT) "=+MCCAD.pop1"))
(setq CNT 25)
)
)
)
)(mccad-init-placemenu) <p>各位前辈，看了你们的发言，我还是不太明白，是不是可以这么理解</p><p>先将“(command "_menuload" "d:\\tools\\test.mns")”存为acad.lsp文件</p><p>将“thisdrawing.application.menugroups.load "d:\tools\test.mns"”存为acad.dvb文件</p><p>然后将这两个文件放到C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2008\R17.1\chs\Support 目录下</p><p>但是test.mns里面应该写什么呢</p><p>我用vba编了一个东东可以画图，如何才能新加一个下拉菜单，可以调出我编的那个东东</p><p>请高手详细指点指点吧~~</p><p></p>
页:
1
[2]