[Piton]

Подскажите макрос на кнопку чтоб команда break разрывала в двух указанных точках (First point, second break point). ACAD2005
---
Добавлено (спасибо VVA): Рабочие варианты
#25
#190
#272
#273

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

Как вариант, без особого тестирования:

Код:

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

 (vl-load-com)
(if *vlr-cmd*
  (progn (setq *vlr-cmd* nil) (vlr-remove-all :vlr-command-reactor))
  ) ;_ end of if
(if (not *vlr-cmd*)
  (setq *vlr-cmd* (vlr-command-reactor
                    "cmd"
                    '((:vlr-commandwillstart . cmd-start)
                      (:vlr-commandended . cmd-end)
                      (:vlr-commandcancelled . cmd-end)
                      (:vlr-commandfailed . cmd-end)
                      )
                    ) ;_ end of vlr-command-reactor
        ) ;_ end of setq
  ) ;_ end of if
(defun cmd-start (calling-reactor startcommandinfo / thecommandstart obj name)
  (setq thecommandstart (car startcommandinfo))
  (if (null *oldlayer*)
    (setq *oldlayer* (getvar "CLAYER"))
    ) ;_ end of if
  (cond ((wcmatch (strcase thecommandstart) "REVCLOUD")
         (setq obj (vla-add (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
                            (setq name (strcat "Замечания_" (itoa (fix (getvar "cdate")))))
                            ) ;_ end of vla-add
               ) ;_ end of setq
         (vla-put-lineweight obj aclnwt025)
         (vla-put-color obj 1)
         (vla-put-linetype obj "Continuous")
         (vla-put-plottable obj :vlax-true)
         (vl-catch-all-apply (function (lambda () (vla-put-freeze obj :vlax-false))))
         (vla-put-layeron obj :vlax-true)
         (vla-put-lock obj :vlax-false)
         (setq *oldsysvar*
                (mapcar (function (lambda (x / tmp)
                                    (if (setq tmp (getvar (car x)))
                                      (progn (setvar (car x)
                                                     (cond ((cdr x))
                                                           (t tmp)
                                                           ) ;_ end of cond
                                                     ) ;_ end of setvar
                                             (cons (car x) tmp)
                                             ) ;_ end of progn
                                      ) ;_ end of if
                                    ) ;_ end of LAMBDA
                                  ) ;_ end of function
                        (list (cons "clayer" name) '("cecolor") '("celweight") '("celtype"))
                        ) ;_ end of mapcar
               ) ;_ end of setq
         )
        (t (setq *oldsysvar* nil))
        ) ;_ end of cond
  ) ;_ end of defun
;;;------------------------------------------------------------- 
(defun cmd-end (calling-reactor cmd / obj cmd_name)
  (setq cmd_name (strcase (car cmd)))
  (cond ((wcmatch cmd_name "REVCLOUD") (foreach item *oldsysvar* (setvar (car item) (cdr item)))))
  ) ;_ end of defun

[AMDen]

Алексей, большое спасибо! Работает. )

[Умяр]

Добрый день, форумчане! Использую первый лисп из #25.
Со своей задачей справляется.
При открытии документов автоматом выплывает Диспетчер слоев.
Мешает. Недавно подключилась и Справка. Теперь они вдвоем раздражают.
С чем может быть связано? Перечитал всю ветку, так и не догадался.

upd. Проблема решена

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

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