[maratovich]

Написал лисп, повесил на кнопку макрос, команда выполняется 1 раз. Хочу чтобы был повтор после выполнения, но стандартная *^C^C зацикливает лисп. Подскажите как обеспечить повтор лиспа.
Макрос на кнопке :
^C^C(LOAD "D:/AUTOCAD/Ось_Трубы.lsp") Ось_Трубы

Сам лисп :

Код:

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

 ;;Осевые
(defun c:Ось_Трубы (/ a p r d p1 p2 p3 p4 )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setvar "celweight" -1);;;;;;;;ПоСлою Толщина линии
(setvar "celtype" "ByLayer");;;;;;;;ПоСлою Тип линии
(setvar "cecolor" "ByLayer");;;;;;;;ПоСлою Цвет линии
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (vl-load-com)
  (vl-cmdf "_.-Layer" "_Make" "Осевые";;;;;;;;Создать слой с параметрами
      "_Ltype" "Осевая" "";;;;;;;;Тип линии
      "_Color" 30 "";;;;;;;;Цвет линии
      "_LWeight" 0.2 "";;;;;;;;Толщина линии
      "_On" "";;;;;;;;Видимый
      "_Thaw" "";;;;;;;;ХЗ но надо
      "_Plot" "";;;;;;;;Печатаемый
      "_Unlock" "";;;;;;;;НЕ блокированный
      );_vl-cmdf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Для Отключение привязок
   ;;Запоминаем текущие состояния режимов ORTO, SNAP, OSNAP, ANGBASE
  (setq old_ortho (getvar "ORTHOMODE")
	old_snap (getvar "SNAPMODE")
	old_osnap (getvar "OSMODE")
	old_autosnap (getvar "AUTOSNAP")
	old_angbase (getvar "ANGBASE")
	) ;_end of setq
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq a  (entget (car (entsel "\nВыбери круг...")))
      p  (cdr (assoc 10 a))
      r  (cdr (assoc 40 a))
      d  (+ r 3) ; 3-вылет за круг
      p1 (polar p pi d)
      p2 (polar p 0  d)
      p3 (polar p (* pi 0.5) d)
      p4 (polar p (* pi 1.5) d)
);setq
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Для Отключение привязок
      ;;Подавляем эхо
      (setvar "CMDECHO" 0)
      ;;Обнуляем режимы ORTO, SNAP, OSNAP
      (setvar "ORTHOMODE" 0)
      (setvar "SNAPMODE" 0)
      (setvar "OSMODE" 0)
      (setvar "AUTOSNAP" 0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(command "_line" p1 p2 "")
(command "_line" p3 p4 "")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Для Отключение привязок
      ;;Восстанавливаем состояния режимов ORTO, SNAP, OSNAP, ANGBASE
      (setvar "ORTHOMODE" old_ortho)
      (setvar "SNAPMODE" old_snap)
      (setvar "OSMODE" old_osnap)
      (setvar "AUTOSNAP" old_autosnap)
      (setvar "ANGBASE" old_angbase)
      ;;Включаем эхо
      (setvar "CMDECHO" 1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
);defun

[Nike]

Добавь в конце программы (c:Ось_Трубы) и сойдет..

[Profan]

А просто Enter нажать после завершения работы программы?

[mamuk]

можно и зациклить с помощью while

[ShaggyDoc]

можно и зациклить с помощью while

И это единственно правильный совет. А уж "просто Enter" - это для того, чтобы еще раз цикл повторить. Или для штатных команд.

[Profan]

Автор темs упоминает просто повтор, а не многократный повтор. Читать разучились?

[maratovich]

Сообщение от mamuk можно и зациклить с помощью while

СПАСИБО !!!!
Заработало как надо.
Сделал так
(while
(setq a (entget (car (entsel "\nВыбери круг...")))
........
......


);_ end of while;;;;;;;;;;;;Конец повтора команды
);defun
;;усё


Вопрос в догонку - смотрел примеры обработчиков ошибок но никак не получается ловить ошибку если не попал по кругу :
Выбери круг...; ошибка: неверный тип аргумента: lentityp nil
P.S. С лиспом столкнулся впервые (пишу на vb6).

[Дима_]

Сообщение от maratovich Выбери круг...; ошибка: неверный тип аргумента: lentityp nil

Проверяй что возращает (entsel), а не (entget (car (entsel)))

[ShaggyDoc]

но никак не получается ловить ошибку если не попал по кругу

Да, это распространенная ситуация. Для надежной работы с учетом "промазал" нужна специальная функция с обработкой ERRNO.

Код:

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

 (defun _ru-get-entsel-no-error (message / ent)
  ;; (_ru-get-entsel-no-error "Выбери объект, но не промахнись!")
  (setvar "errno" 0)
  (while
    (and
      (not (setq ent (entsel (strcat "\n" message)))) 
      (equal 7 (getvar "errno"))
      ;;Ошибка указания при выборе
    ) 
     (setvar "errno" 0)
  ) 
  (cond
    ((equal (getvar "errno") 52)
     ;; пустой ответ
     nil
    )
    (t
     (list (car ent) (trans (cadr ent) 1 0))
    )
  ) 
)

Да и это надо ещё оборачивать дополнительными функциями (допустимость прерывания по ESC, допустимость выбора объекта на блокированном слое, дополнительные ключевые слова).

[maratovich]

Спасибо за подсказки !
Буду изучать.... думать....

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

Если приглашение "ехало-болело", можно и так сделать:

Код:

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

 (if (= (type (setq ent (vl-catch-all-apply '(lambda() (ssname (ssget "_.+:S:E:L" '((0 . "CIRCLE"))) 0))))) 'ename)
; Здесь чего-то делаем
);_ end of if