给大家一个函数的例子,明经工具用的:- ;; ----------- 将明经增效菜单放到下拉菜单的倒数第三位的函数 ------------
- ;; 该函数将明经增效菜单放到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)
|