Как добавить свое выпадающее меню к стандартному Автокад?

1-Хорощо бы еще в начале дать строчку
***MENUGROUP=<ИМЯ_МЕНЮ>
2-Тк в стандартном меню есть "DRAW" лучше изменить имя своего на другое, просто чтоб самому не путаться
3-В окне загрузке есть вкладка MENU BAR. Надо откр ее в выпадающем списке MENU GROUP Выбрать меню со своим именем (см п.1) Ниже в окне МЕНЮ появится список возможных выпадающих меню "DRAW", выделить эту строку и нажать INSERT
Меню вставиться над той строкой, которая выделена в правом окне, если хочешь вставить последним придется сначала вставить над HELP, потом удалить HELP и вставить опять из ACAD-menu , стоя в правом окне на своем меню DRAW.
Может есть и способ проще :(...

Да Вы правы, так сделать можно.
А теперь вопрос на засыпку! Как все это сделать из командной строки, пусть даже ЛИСПОВОЙ командой?

Ой, чуйствую надо это все сделать именно из лисп-проги!?
После компиляции меню надо использовать команду MENUCMD
Такой подход мне не нравится, но это ИМХО, конечно, Может сделать выбор через диалоговое окно?

При команде MENULOAD происходит компиляция- образуются файлы с расширением mnr, mnc. Затем команда
(MENUCMD "G<ИМЯ_ГРУППЫ_МЕНЮ>.POP1") должна вывести указанное падающее меню на экран

(menucmd "p14=*") откроет ?14 пад. меню

Ура победа, большое спасибо.

Продолжаем разговор. Вопрос такой: как определить номер последнего меню выпадающего меню?

Фрагм. файла *.mnl из програмы ACADVar
небезызвестного Лёхи.

; функция вставляет падающее меню ACADVar в ряд
; на третье справа место.
(defun svr_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)
        );if
        (menucmd (strcat "P" (itoa cnt) "=+ACADVar.pop1"))
        (setq cnt 25)
      );progn
    );if
  );while
);defun

Знатоки, подскажите пожалуйста.
У меня меню загружается только по команде из ACAD
Tools->Customize->Menus...->Load
А я хочу, чтобы все произошло автоматически.
Для этого создал по примеру выше файл abs.mnl.
Но появлается только Toolbar.
Мое меню показывается только по команде Insert.
Вот тексты моих файлов abs.mnu

***MENUGROUP=ABS
***POP1
**ABS
ID_ABS               [ABS]
ID_Line_0      [&Line]^C^C_line
ID_Ray_0       [&Ray]^C^C_ray
ID_Construction_Line_0 [Cons&truction Line]^C^C_xline
ID_Multiline_0 [&Multiline]^C^C_mline
               [--]
ID_Polyline_0  [&Polyline]^C^C_pline
ID_3D_Polyline_0 [&3D Polyline]^C^C_3dpoly
ID_Polygon_0   [Pol&ygon]^C^C_polygon
ID_Rectangle_0 [Rectan&gle]^C^C_rectang
               [--]
[Abs]^C^C^P(if (= C:Abs nil) (load "Abs")); Abs
***TOOLBARS
**TB_MYTOOLBAR
ID_MyToolbar [_Toolbar("My Toolbar",_Floating, _Show, 0, 1, 1)]
ID_Ddis [_Button("DDIS", abs1.bmp, abs1.bmp)]^C^Cddis
ID_Ddis2 [_Button("DDIS2", abs2.bmp, abs2.bmp)]^C^C_line

А это файл abs.mnl

(defun PlaceAbsMenu( / n )
      (progn
       (setq n 1)
       (while (< n 24)
        (if (menucmd (strcat "P" (itoa n) ".1=?"))
            (setq n (+ n 1))
            (progn
             (if (> n 3)
                 (setq n (- n 2))
                 (setq n 3)
             );if
             (menucmd (strcat "P" (itoa n) "=+Abs.pop1"))
             (setq n 25)
            );progn
        );if
       );while
      );progn
);defun acet-init-placemenu