[ilka_t]

как в команде Mirror сделать что бы она не выводила запрос на подтверждение удоления объектов а сразу их удоляла?

[VVA]

Зеркаль с помощью ручки и правой кнопки мыши

[Pilot]

Или написать соотв. лисп, а исходную команду переопределить.

[ilka_t]

а может гуру напишут лиспик

[Profan]

Макрос на кнопку:

Код:

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

 
^C^C_mirror;\\\\\_yes;

Но что-то неустойчиво работает.
Еще одна фигня:

Код:

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

 
^C^C_select;\_mirror;_p;;\\_yes

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

Если без динамической перерисовки:

Код:

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

(defun c:mod-mirror (/ *error* adoc selset pt1 pt2)
  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if
    (and
      (setq selset (ssget "_:L"))
      (= (type (setq pt1
                      (vl-catch-all-apply
                        '(lambda ()
                           (getpoint "\nПервая точка оси зеркалирования <Отмена> : ")
                           ) ;_ end of lambda
                        ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'list
         ) ;_ end of =
      (= (type (setq
                 pt2 (vl-catch-all-apply
                       '(lambda ()
                          (getpoint pt1
                                    "\nПервая точка оси зеркалирования <Отмена> : "
                                    ) ;_ end of getpoint
                          ) ;_ end of lambda
                       ) ;_ end of vl-catch-all-apply
                 ) ;_ end of setq
               ) ;_ end of type
         'list
         ) ;_ end of =
      (setq pt1 (vlax-3d-point pt1))
      (setq pt2 (vlax-3d-point pt2))
      ) ;_ end of and
     (foreach ent (mapcar 'vlax-ename->vla-object
                          (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
                          ) ;_ end of mapcar
       (vla-mirror ent pt1 pt2)
       (vla-erase ent)
       ) ;_ end of foreach
     ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Вариант с использованием командных методов чего-то не получился. Точнее, получился, но вот динамической отрисовки у меня не видно

[Profan]

Программка:

Код:

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

 
(defun C:MIRR_YES ( / ss pt1 pt2 )
(setq ss (ssget))
(initget 7)
(setq pt1 (getpoint "\n Первая точка оси отражения: "))
(setq pt2 (getpoint pt1 "\n Вторая точка оси отражения: "))
(vl-cmdf "_MIRROR" ss "" pt1 pt2 "_YES")
(princ)
)

[Profan]

А вот с отрисовкой:

Код:

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

 
(defun C:MIRR_YES ( / echo ss)
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 1)
(setq ss (ssget))
(vl-cmdf "_MIRROR" ss "" pause pause "_YES")
(setvar "CMDECHO" echo)
(princ)
)

Правда, здесь присутствует функция pause, которую так не любит ShaggyDoс...

[ShaggyDoc]

Сообщение от Profan А вот с отрисовкой: Правда, здесь присутствует функция pause, которую так не любит ShaggyDoс...

Он не любит, когда символ pause называют функцией.

[Profan]

Действительно, pause - символ. Что это нам дает? Ничего, IMHO.

[ilka_t]

Всем спаибо за помощь