• На форуме с 20 декабря 2004г.
  • Сообщений: 6
  • Спасибо: 0

Тема: Автоматизация настроек Автокада

У меня есть файл my_menu.mns.
С его помощью можно добавить свое выпадающее меню.
Все работает. Спасибо форуму.
У меня стоит такая задача.
Моя прогамма должна:
1. загрузиться из интернета на компьютер пользователя.
2. сохранить файл my_menu.mns, my_menu.mnl
3. без участия пользователя загрузить мое меню и вставить его на определенное место (после Modify).
Я не знаю, как выполнить 3-й пункт.

  • zhuravsky
  • Восстановленный участник
  • На форуме с 19 февраля 2004г.
  • Сообщений: 214
  • Спасибо: 0

Re: Автоматизация настроек Автокада

В Акаде 14 был довесок BONUS там есть файл ac_bonus.mnl код взят оттуда:

(defun PlaceBonusMenu (/ CNT)
  (setq CNT 1)
  (while (< CNT 24)
    (if (menucmd (strcat "P" (itoa CNT) ".1=?"))
      (setq CNT (1+ CNT))
      (progn
        (if (> CNT 2)
          (setq CNT (1- CNT))
          (setq CNT 2)
        )
        (menucmd (strcat "p" (itoa CNT) "=+AC_BONUS.pop1"))
        (setq CNT 25)
      )
    )
  )
)

Может поможет

  • На форуме с 20 декабря 2004г.
  • Сообщений: 6
  • Спасибо: 0

Re: Автоматизация настроек Автокада

Спасибо Zhuravsky.
Я на основе файла acetmain.mnl сделал свой alex.mnl

(defun PlaceAlexMenu( / n )
  (if (menugroup "ALEX")
      (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) "=+ALEX.pop1"))
             (setq n 25)
            );progn
        );if
       );while
      );progn
  );if
);defun acet-init-placemenu

А это текст моего файла-меню  alex.mns

***MENUGROUP=ALEX
***POP1
**ALEX
[ALEX]
[&Line]^C^C_line
[&Ray]^C^C_ray
[Cons&truction Line]^C^C_xline
[&Multiline]^C^C_mline
[--]
[&Polyline]^C^C_pline
[&3D Polyline]^C^C_3dpoly
[Pol&ygon]^C^C_polygon
[Rectan&gle]^C^C_rectang
[--]

Но мое меню не вставляется автоматически

  • На форуме с 20 декабря 2004г.
  • Сообщений: 6
  • Спасибо: 0

Re: Автоматизация настроек Автокада

Павел.
Напрасно Вы переживали за инвалидов.
Ющенко ответил на Ваш вопрос. Никто прав избирателя не нарушал, корректируя закон о голосованиии на дому.
Ющенко сказал, что он не судим.
Это ответ тем умникам, которые сравнивают его с Януковичем.

  • На форуме с 20 декабря 2004г.
  • Сообщений: 6
  • Спасибо: 0

Re: Автоматизация настроек Автокада

Прошу прощения за предыдущее сообщение.
Меню загружается, но не вставляется автоматически.

  • zhuravsky
  • Восстановленный участник
  • На форуме с 19 февраля 2004г.
  • Сообщений: 214
  • Спасибо: 0

Re: Автоматизация настроек Автокада

Как сделать автоматически точно не знаю, вернее не знаю как это делает Express Tools. То, что такой интерфейс существует - очевидно, но он не документирован, поэтому - решение "в лоб": писать в acad.mnl или acaddoc.mnl. С деталями, увы, помочь не смогу - сам такое не делал (за ненадобностью), извините