Макрос для AutoCAD 2017 - команда "разорвать".

[sokol7 0]

Всем доброго здравия!

Кто-нибудь может помочь с макросом (написать или может уже где-то есть...) для команды "разорвать". В стандартном виде исполнение команды требует указание двух точек на линии, между которыми происходит разрыв. Собственно, что требуется - чтобы разрыв происходил по одному клику мышки на линии. Ширина разрыва при этом должна задаваться заранее в настройках плагина. Также желательно, чтобы после этого команда оставалась активной для следующего (и т.д.) клика мышки.
За написание плагина готов заплатить.

[Bully 1 098]

@sokol7 вроде несложная задача. Обратись на dwg.ru, по автокаду корифеи именно там сидят. Конкретно по этой задаче может даже бесплатно на форуме подскажут. Сам с лиспом только шапочно знаком.

[Бестолковый 3]

Ссылка на пакет:

https://dwg.ru/dnl/1839

Команда break1

Ну или если владеете даром написания и применения LISP'ов:

(DEFUN BREAK1 ( / en ed1 ed2 pnt
      cmdecho-save error-save)
   (SETQ error-save *error*
      cmdecho-save (GETVAR "CMDECHO")
      );SETQ
   (DEFUN *error* (msg)
      (IF  error-save (SETQ *error* error-save))
      (IF msg (PRINC "\nВыполнение функции прервано "))
      ;; Восстановление значений системных переменных
      (SETVAR "CMDECHO" cmdecho-save)
      (IF (BOUNDP 'en) (REDRAW en 4))
      (PRINC)
      );DEFUN
   (SETVAR "CMDECHO" 0)
   (COMMAND "_.undo" "_begin")
   (SETQ en (CAR (ENTSEL "\nВыберите объект")))
   (WHILE (NULL en)
      (SETQ en (CAR (ENTSEL "\nВыберите объект")))
      );WHILE
   (REDRAW en 3)
   (INITGET 1)
   (SETQ pnt (GETPOINT "\nВыберите точку"))
   (COMMAND "_.break" en pnt pnt)
   (COMMAND "_.undo" "_end")
   (SETVAR "CMDECHO" cmdecho-save)
   (SETQ *error* error-save)
   (PRINC)
   );DEFUN

(IF (OR (NULL C:BREAK1)
      (NOT (LISTP C:BREAK1))
      );OR
   (DEFUN C:BREAK1 ()
      (BREAK1)
      );DEFUN
   );IF
(PRINC "\nBREAK1.lsp загружен... ")
(PRINC "\nДобавлена команда BREAK1...")
(PRINC)