AutoCAD LSP加载cui文件，不显示菜单

nkmjg

1. 当使用LISP自动加载菜单时，不显示菜单
3. (PROGN (command "采用.cuiload") (command "test.cui"))
5. 可通过加载CUI之后，通过修改注册表menu值来显示菜单，LISP代码具体代码如下:
7. (DEFUN CX-PLACEMENU (TY / N)
8.   (setq NA "hst")
9.   (if (MENUGROUP NA)
10.     (PROGN
11.       (setq N 1)
12.       (while (and (< N 24))
13.         (if (MENUCMD (STRCAT "P" (ITOA N) ".1=?"))
14.           (PROGN (setq N (+ N 1)))
15.           (PROGN
16.             (if (>= N 11)
17.               (PROGN
18.                 (if (< (ATOF (GETVAR "acadver")) 18.0)
19.                   (PROGN (MENUCMD (STRCAT "p10=+" NA ".pop1")))
20.                   (PROGN (MENUCMD (STRCAT "p11=+" NA ".pop1")))
21.                 )
22.                 (setq N 25)
23.               )
24.               (PROGN
25.                 (if (> N 3) (PROGN (setq N (- N 2))) (PROGN (setq N 3)))
26.                 (MENUCMD (STRCAT "p" (ITOA N) (STRCAT "=+" NA ".pop1")))
27.                 (setq N 25)
28.               )
29.             )
30.           )
31.         )
32.       )
33.     )
34.   )
35.   (PRINC)
36. )
38. (if (FINDFILE "test.cui")
39. (PROGN (command "采用.cuiload") (command "test.cui"))
40. )
41. (PROGN (CX-PLACEMENU "test"))

复制代码