menuload

CADghost

怎么样才能,在程序里加载下拉菜单:
我只用了这一句.
(command "menuload" "cadghost.mns")
程序结束后,我只加载了工具栏

mccad

用menucmd函数来显示需要的菜单项

CADghost

谢谢,本来打算只加载工具栏算了!

霸道的温柔

正想问这个问题


那么我想加载的菜单组名为"bbc"中的POP01和POP02它的语法是什么呢?

mccad

2. ;; 显示菜单的函数
3. ;; GroupName=菜单组名称
4. ;; MenuName=菜单项名称
5. ;; Location=在显示菜单中的倒数位置菜单的前面，
6. ;;                   如只在“帮助”和“窗口”菜单前，则为2
7. (defun PlaceMenu (GroupName MenuName Location / CNT)
8.    (setq CNT 1)
9.    (while (< CNT 24)
10.        (if (menucmd (strcat "P" (itoa CNT) ".1=?"))
11.            (setq CNT (1+ CNT))
12.            (progn
13.                (if (> CNT Location)
14.                    (setq CNT (- CNT Location))
15.                    (setq CNT Location)
16.                )
17.                (menucmd (strcat "P" (itoa CNT) "=+" GroupName "." MenuName))
18.                (setq CNT 25)
19.            )
20.        )
21.    )
22. )

;; 显示菜单的函数 ;; GroupName=菜单组名称 ;; MenuName=菜单项名称 ;; Location=在显示菜单中的倒数位置菜单的前面， ;;                   如只在“帮助”和“窗口”菜单前，则为2 (defun PlaceMenu (GroupName MenuName Location / CNT)    (setq CNT 1)    (while (< CNT 24)        (if (menucmd (strcat "P" (itoa CNT) ".1=?"))            (setq CNT (1+ CNT))            (progn                (if (> CNT Location)                    (setq CNT (- CNT Location))                    (setq CNT Location)                )                (menucmd (strcat "P" (itoa CNT) "=+" GroupName "." MenuName))                (setq CNT 25)            )        )    ) )