[Holon]

Хочу на лету создать меню, и подгрузить его,
но програмно несовсем получается ACad требует
продолжения банкета.

Command: mnu ._menuload
Enter name of customization file to load: C:\TEST.mnu
Unable to load customization file: C:\TEST.mnu
That Customization Group name already exists.

Код:

[Выделить все]

(defun c:mnu ( / fl ret Path Name)
    (setq
        Path  "C:\\"
        Name  "TEST"
        fl    (strcat Path Name ".mnu" )
    )       
    (setq ret (open fl "w"))
    (mapcar '(lambda (x) (write-line x ret))
        (list
"***POP1"
"[TEST]"
"[Menu1]'_func1"
"[Menu2]'_func2"
"[Menu3]'_func3"
"[Menu4]'_func4"
"[Menu5]'_func5"
))
(setq ret (close ret))
(command "._menuload" fl)
(princ)
)

[Кулик Алексей aka kpblc]

А ты сначала проверь наличие такого же меню и при необходимости выгружай его.

[VVA]

Не увидел в твоем меню такой строчки

***MENUGROUP=TEST ***POP1 ....

Код:

[Выделить все]

(if (null (menugroup "TEST"))(command "_.MENULOAD" "TEST.mnu"))

[Profan]

Если предполагается подгружать падающее меню, то желательно использовать файл *.mnl с функцией (menucmd).

[Holon]

Сообщение от VVA Не увидел в твоем меню такой строчки Код: [Выделить все] (if (null (menugroup "TEST"))(command "_.MENULOAD" "TEST.mnu"))

ACad ругаться перестал но меню по прежнему не появляется.

Код:

[Выделить все]

(defun c:mnu ( / fl ret Path Name)
    (setq
        Path  "C:\\"
        Name  "TEST"
        fl    (strcat Path Name ".mnu" )
    )       
    (setq ret (open fl "w"))
    (mapcar '(lambda (x) (write-line x ret))
        (list
"***MENUGROUP=TEST" 
"***POP1"
"[TEST]"
"[Menu1]'_func1"
"[Menu2]'_func2"
"[Menu3]'_func3"
"[Menu4]'_func4"
"[Menu5]'_func5"
))
(setq ret (close ret))
(if (null (menugroup "TEST"))(command "_.MENULOAD" fl))
(princ)
)

[VVA]

А оно и не должно. Menuload просто грузит. Добавляет/убирает menucmd.
Примеры
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=9205LB
или файл из Express'ов acetmain.mnl
поиск по menucmd

Код:

[Выделить все]

;;;    ACETMAIN.MNL
;;;    Copyright © 1999 by Autodesk, Inc.
;;; ........................................................
 
; ------------  PLACE THE EXPRESS PULL-DOWN FUNCTION -------------
;  This function places the Express pull-down to the left of the
;  Window pull-down on the acad menu. If FLG is true the current
;  Express pull-down if present will be removed and placed again.
;  If FLG is nil and the pull-down is present, nothing will be done
;
;  When placing the Express menu, acad's Window menu is used to
;  determine the pull-down location. if the Window pull-down is
;  missing, the Help pull-down will be used instead. If that too
;  is missing, it will place the Express pull-down after the last
;  menu location.
; ----------------------------------------------------------------
 
; Place the Express Tools pulldown to the left of the last pulldown already loaded
 
(defun acet-init-placemenu( / n )
  (if (menugroup "EXPRESS")
      (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) "=+EXPRESS.pop1"))
             (setq n 25)
            );progn
        );if
       );while
      );progn
  );if
);defun acet-init-placemenu

(acet-init-placemenu)
(princ)

PS Offtop: С слову поиск url добавляется автоматом сам