[dextron3]

Вот не могу найти, где прописаны пути для данных менюшек,

[IMG]http://i073.***********/1004/8e/b104afd17cdet.jpg[/IMG]

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

Код:

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

(defun test ()
  (mapcar
    (function
      (lambda (x) (cons (vla-get-name x) (vla-get-menufilename x)))
      ) ;_ end of function
    ((lambda (/ lst)
       (vlax-for item (vla-get-menugroups (vlax-get-acad-object))
         (setq lst (cons item lst))
         ) ;_ end of vlax-for
       (reverse lst)
       ) ;_ end of lambda
     )
    ) ;_ end of mapcar
  ) ;_ end of defun

Ну или сортированный по имени меню:

Код:

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

(defun test ()
  (vl-sort
    (mapcar
      (function
        (lambda (x) (cons (vla-get-name x) (vla-get-menufilename x)))
        ) ;_ end of function
      ((lambda (/ lst)
         (vlax-for item (vla-get-menugroups (vlax-get-acad-object))
           (setq lst (cons item lst))
           ) ;_ end of vlax-for
         ) ;_ end of lambda
       )
      ) ;_ end of mapcar
    (function
      (lambda (a b)
        (< (car a) (car b))
        ) ;_ end of lambda
      ) ;_ end of function
    ) ;_ end of vl-sort
  ) ;_ end of defun

[dextron3]

Кулик Алексей aka kpblc, ункнов команд

[Хмурый]

Сообщение от dextron3 Кулик Алексей aka kpblc, ункнов команд

Offtop: новый перл Kpblc'у для блога в копилку.

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

dextron3, ты вот это читал?

[dextron3]

Кулик Алексей aka kpblc, обижаете

[twilight]

Сообщение от dextron3 Кулик Алексей aka kpblc, обижаете

1. потомучто в скобках нужно вызывать (test)
2.

Код:

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

(defun test ()
(vl-load-com)
  (mapcar
    (function
      (lambda (x) (cons (vla-get-name x) (vla-get-menufilename x)))
      ) ;_ end of function
    ((lambda (/ lst)
       (vlax-for item (vla-get-menugroups (vlax-get-acad-object))
         (setq lst (cons item lst))
         ) ;_ end of vlax-for
       (reverse lst)
       ) ;_ end of lambda
     )
    ) ;_ end of mapcar
  ) ;_ end of defun

[dextron3]

twilight, а что это за новшество в при вызове со скобками, как то в первый раз такое слышу....

а так заработало спасибо, twilight, Кулик Алексей aka kpblc,

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

Сообщение от dextron3 а что это за новшество в при вызове со скобками, как то в первый раз такое слышу....

А это не новшество. Цитирую статью из #5:

Команда или функция ? Для начала необходимо определиться, что у нас: команда или функция? Немного теории. В описании практически любого кода есть такая строка, как Код: [Выделить все] (defun … и потом после нее чего-то там написано. Так вот то, что там написано и есть имя функции. Если первыми символами являются C:, то функция готова к вызову из командной строки. Если такого нет, то вызывать функцию надо, заключая ее имя в круглые скобки. Например, есть функция Код: [Выделить все] (defun c:test ()<Что-то делаем 1>) Ее вызывать (при условии, что она подгружена) с командной строки можно напрямую: Код: [Выделить все] Команда : test И будут выполнены действия <Что-то делаем 1> А вот такую: Код: [Выделить все] (defun test ()<Чего-то делаем 2>) Можно будет вызывать только так: Код: [Выделить все] Команда : (test) И будут выполнены действия <Чего-то делаем 2>. С точки зрения AutoCAD'a это 2 разных модуля.

[Profan]

dextron3, если тебе трудно лисп запустить, то посмотри в Настройках (Options), вкладку Файлы (Files). Там можно увидеть все пути, задействованные в AutoCAD'е.

[dextron3]

Profan, Кулик Алексей aka kpblc, а что делать если два ожинаковых меню загружено ну имеется в верхней операционной строке, а менюлоад только одно?

[Profan]

Сообщение от dextron3 Profan, Кулик Алексей aka kpblc, а что делать если два ожинаковых меню загружено ну имеется в верхней операционной строке, а менюлоад только одно?

Поподробнее распиши.