请教右键菜单的程序怎么使用？

有来有去

下面这个程序代码是从网上下来，用来显示CAD的右键菜单，但不知为何？test主程序调用后mtext值是nil，请教大侠，这个子程序gps->popupmenu该如何用？怎么获取我选取的菜单选项值？
代码如下：

2. 
   
3. (defun c:test( / mtext)
   
4.    (setq mtext (gps->popupmenu (list "快捷菜单测试" "" "AA" "BB" "CC" "DD" "EE" "FF")))
   
5.    (cond
   
6.      ((= (strcase mtext) (strcase "AA")) (princ "选择A"))
   
7.      ((= (strcase mtext) (strcase "BB")) (princ "选择B"))
   
8.    )
   
9.    ;(princ mtext)
   
10.    (princ)
    
11. )
    
12. 
    
13. 
    
14. ;(setq str (gps->popupmenu '("Line" "" "Circle" "Arc")))
    
15. (DEFUN gps->popupmenu (MENULST / acadobj currmenugroup flag fn N menus newmenu newmenuitem openmacro str thisdoc )
    
16.    (SETVAR "cmdecho" 0)
    
17.    (SETQ FLAG nil)
    
18.    (SETQ FN (OPEN "VbaMenu.mns" "w"))
    
19.    (CLOSE FN)
    
20.    (SETQ ACADOBJ (vlax-get-acad-object))
    
21.    (SETQ THISDOC (vla-get-ActiveDocument ACADOBJ))
    
22.    (SETQ MENUS (vla-get-MenuGroups ACADOBJ))
    
23. ; (VLAX-FOR N MENUS (IF (= (vla-get-Name N) "VbaMenu")
    
24. ; (SETQ FLAG T)
    
25. ; ) (TERPRI)
    
26. ; )
    
27. ; (IF FLAG
    
28. ; (UnLoadMenuGroup "VbaMenu")
    
29. ; )
    
30.    (UnLoadMenuGroup "VbaMenu")
    
31.    (vla-Load MENUS "VbaMenu.mns")
    
32.    (SETQ CURRMENUGROUP (vla-Item MENUS "VbaMenu"))
    
33.    (IF (<= (vla-get-Count (vla-get-Menus CURRMENUGROUP)) 0)
    
34.       (PROGN
    
35.         (SETQ NEWMENU (vla-Add (vla-get-Menus CURRMENUGROUP) "V&BA Menu"))
    
36.         (FOREACH N MENULST
    
37.            (IF (= (TYPE N) (QUOTE STR))
    
38.               (COND
    
39.                  ((/= N "")(SETQ OPENMACRO (STRCAT (CHR 3) (CHR 3) "(setq xxx " N ")" (CHR 32))
    
40.      NEWMENUITEM (vla-AddMenuItem NEWMENU (1+ (vla-get-Count NEWMENU)) N OPENMACRO)
    
41.                            )
    
42.                   (vla-put-HelpString NEWMENUITEM N)
    
43.                  )
    
44.                  ((= N "")(vla-AddSeparator NEWMENU (1+ (vla-get-Count NEWMENU))))
    
45.               )
    
46.            )
    
47.         )
    
48.         (vla-Save CURRMENUGROUP acMenuFileCompiled)
    
49.       )
    
50.       (PRINC "\nThe menu is already loaded")
    
51.    );End If
    
52.    (PRIN1)
    
53.    (MENUCMD "p0=VbaMenu.POP2")
    
54.    (MENUCMD "p0=*")
    
55. )
    
56. 
    
57. (defun UnLoadMenuGroup (iValue / rValue)
    
58.    (if (menugroup iValue)
    
59.      (progn
    
60.         (if (not (vl-catch-all-error-p (setq rValue (vl-catch-all-apply 'vla-unload (list (vla-item (vla-get-menugroups(vlax-get-acad-object)) iValue))))))
    
61.         (setq rValue T)
    
62.         )
    
63.         rValue
    
64.      )
    
65.    )
    
66. )
    

<br /> (defun c:test( / mtext)<br />    (setq mtext (gps->popupmenu (list "快捷菜单测试" "" "AA" "BB" "CC" "DD" "EE" "FF")))<br />    (cond<br />      ((= (strcase mtext) (strcase "AA")) (princ "选择A"))<br />      ((= (strcase mtext) (strcase "BB")) (princ "选择B"))<br />    )<br />    ;(princ mtext)<br />    (princ)<br /> )<br /> <br /> <br /> ;(setq str (gps->popupmenu '("Line" "" "Circle" "Arc")))<br /> (DEFUN gps->popupmenu (MENULST / acadobj currmenugroup flag fn N menus newmenu newmenuitem openmacro str thisdoc )<br />    (SETVAR "cmdecho" 0)<br />    (SETQ FLAG nil)<br />    (SETQ FN (OPEN "VbaMenu.mns" "w"))<br />    (CLOSE FN)<br />    (SETQ ACADOBJ (vlax-get-acad-object))<br />    (SETQ THISDOC (vla-get-ActiveDocument ACADOBJ))<br />    (SETQ MENUS (vla-get-MenuGroups ACADOBJ))<br /> ; (VLAX-FOR N MENUS (IF (= (vla-get-Name N) "VbaMenu")<br /> ; (SETQ FLAG T)<br /> ; ) (TERPRI)<br /> ; )<br /> ; (IF FLAG<br /> ; (UnLoadMenuGroup "VbaMenu")<br /> ; )<br />    (UnLoadMenuGroup "VbaMenu")<br />    (vla-Load MENUS "VbaMenu.mns")<br />    (SETQ CURRMENUGROUP (vla-Item MENUS "VbaMenu"))<br />    (IF (<= (vla-get-Count (vla-get-Menus CURRMENUGROUP)) 0)<br />       (PROGN<br />         (SETQ NEWMENU (vla-Add (vla-get-Menus CURRMENUGROUP) "V&BA Menu"))<br />         (FOREACH N MENULST<br />            (IF (= (TYPE N) (QUOTE STR))<br />               (COND<br />                  ((/= N "")(SETQ OPENMACRO (STRCAT (CHR 3) (CHR 3) "(setq xxx " N ")" (CHR 32))<br />      NEWMENUITEM (vla-AddMenuItem NEWMENU (1+ (vla-get-Count NEWMENU)) N OPENMACRO)<br />                            )<br />                   (vla-put-HelpString NEWMENUITEM N)<br />                  )<br />                  ((= N "")(vla-AddSeparator NEWMENU (1+ (vla-get-Count NEWMENU))))<br />               )<br />            )<br />         )<br />         (vla-Save CURRMENUGROUP acMenuFileCompiled)<br />       )<br />       (PRINC "\nThe menu is already loaded")<br />    );End If<br />    (PRIN1) <br />    (MENUCMD "p0=VbaMenu.POP2")<br />    (MENUCMD "p0=*")<br /> )<br /> <br /> (defun UnLoadMenuGroup (iValue / rValue)<br />    (if (menugroup iValue) <br />      (progn<br />         (if (not (vl-catch-all-error-p (setq rValue (vl-catch-all-apply 'vla-unload (list (vla-item (vla-get-menugroups(vlax-get-acad-object)) iValue))))))<br />         (setq rValue T)<br />         )<br />         rValue<br />      )<br />    )<br /> )<br />

yx5277

我也想知道

海盗曹

(SETQ OPENMACRO (STRCAT (CHR 3) (CHR 3) "(setq xxx " N ")" (CHR 32))--》》(SETQ OPENMACRO (STRCAT (CHR 3) (CHR 3) "(setq xxx " (CHR 34) N (CHR 34) ")" (CHR 32))
这样输出为(setq xxx "string"),设置xxx为字符串，但是xxx是全局变量，我只想到这个笨方法，具体怎么使用得具体研究了吧