Макрос. Многоульник с заданным значением сторон

Денис, но ты ведь экономишь всего один клик мыши, и для этого совсем неразумно держать лишнюю кнопку на экране. Общее правило для составления макросов такое: набираешь на клавиатуре нужную последовательность команд и опций, и сразу-же, после каждого нажатия на клавишу или кнопку мыши,  записываешь действие на бумагу. Enter это точка с запятой, у тебя правильно, а ручной ввод данных, в твоем случае - указание центра и радиуса, это наклонная обратная косая черта, вот такая \. Значит, их должно быть две. Так что попробуй опять, но лучше не в этой ветке, а или в основной, или Настройка меню и diesel. Ну а когда приличный и полезный макрос получится, давай его сюда.

При макросе ^C^C_polygon;6;^C^C; уже при первом запуске задано 6 сторон и в отличии от ^C^C_polygon;6 есть возможность перезадать это кол-во, а насчет темы, приношу извинения, задается только начальное кол-во сторон.

> Владимир Громов
Я бы заменил

(setq st (getreal "\n Размер стороны шестиугольника: "))

на

(setq st (getdist "\n Размер стороны шестиугольника: "))

Чем хорош LISP-вариант, что в диалог можно заложить варианты выбора из стандартного ряда размеров "под ключ"

Как вариант:

;|=============================================================================
*    Отрисовка многогранника
*    Параметры вызова:
*    edge-range    количество сторон
*    Примеры вызова:
(_mod-polygon 3)    ; отрисовка правильного 3-угольника
(_mod-polygon 10)    ; отрисовка правильного 10-угольника
=============================================================================|;
(defun _mod-polygon
       (edge-range / _cmdecho_ _osmode_ _nomutt_ edge_len pol_center msg adoc)
  (vl-load-com)
  (setq    adoc       (vla-get-activedocument (vlax-get-acad-object))
    _cmdecho_  (getvar "cmdecho")
    _nomutt_   (getvar "nomutt")
    _osmode_   (getvar "osmode")
    msg       (strcat "\nУкажите центр " (itoa edge-range) "-угольника : ")
    pol_center (getpoint msg)
    msg       (strcat "\nУкажите длину ребра " (itoa edge-range) "-угольника : ")
    edge_len   (getdist msg)
    ) ;_ end of setq
  (vla-startundomark adoc)
  (mapcar 'setvar
      (list "cmdecho" "nomutt" "osmode")
      (list 0 1 0)
      ) ;_ end of mapcar
  (command "_.polygon" edge-range pol_center "_I" edge_len)
  (mapcar 'setvar
      (list "cmdecho" "nomutt" "osmode")
      (list _cmdecho_ _nomutt_ _osmode_)
      ) ;_ end of mapcar
  (vla-endundomark adoc)
  ) ;_ end of defun

Без проверки.

Ну да, верно... Тогда писать лисп/макрос на это дело в принципе бессмысленное занятие - всех вариантов не предусмотришь.

> Денис Флюстиков
"Правильный" макрос. Я его уже прописал вместо штатной кнопки. Нет никакой лишней кнопки. И вообще не бывает лишних кнопок. Это "Vova". (автор "...и создание кнопок") :)))
И раздел, где помещен был этот макрос, изначально был правильный.