[Raznouh]

Здравствуйте.
Например,такой код:

Код:

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

 (defun c:cr ()
(setq a (entsel "Select circle:"))
(if (=(cdr(assoc 0(entget( car a)))) "CIRCLE")
(command "_circle" (cdr(assoc 10(entget( car a)))) (- (cdr(assoc 40(entget( car a)))) 1) "")
(????????????)
  ))

Хотелось бы ,чтоб если указанный объект оказался не окружностью,вернуться к выполнению функции entsel,и так далее пока не выберу окружность или не нажму Enter,чтобы выйти.Как это реализовать - не знаю.Подскажите кто может.

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

Вариант 1: запрашивать не примитив, а набор, который потом и преобразовывать

Код:

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

 (defun tt1 (/ ss ent)
  (if (and (not (vl-catch-all-error-p
                  (setq ss (vl-catch-all-apply
                             (function
                               (lambda ()
                                 (ssget "_+.:S:E:L" '((0 . "CIRCLE")))
                                 ) ;_ end of lambda
                               ) ;_ end of function
                             ) ;_ end of vl-catch-all-apply
                        ) ;_ end of setq
                  ) ;_ end of vl-catch-all-error-p
                ) ;_ end of not
           ss
           ) ;_ end of and
    (progn
      (setq ent (ssname ss 0))
      ;; ...
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

Вариант 2: входить в "бесконечный" цикл, из которого можно выйти только через Esc.

Код:

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

 (defun tt2 (/ ent f)
  (while (and (not f)
              (not
                (vl-catch-all-error-p
                  (setq ent (vl-catch-all-apply (function (lambda () (car (entsel "\nSelect circle <Cancel> : "))))))
                  ) ;_ end of vl-catch-all-error-p
                ) ;_ end of not
              ) ;_ end of and
    (if (/= (cdr (assoc 0 (entget ent))) "CIRCLE")
      (princ "\nSelected entity is not circle!")
      (setq f t)
      ) ;_ end of if
    ) ;_ end of while
  (if f
    (progn
      (princ "\nOK")
          ;...
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

Лично я предпочитаю первый вариант как более гибкий

[Дима_]

строка 5 вместо (?????????) - (c:cr)

[Raznouh]

Дима_,красиво.Но не годится если например до

Код:

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

 (setq a (entsel "Select circle:"))
(if (=(cdr(assoc 0(entget( car a)))) "CIRCLE")
(command "_circle" (cdr(assoc 10(entget( car a)))) (- (cdr(assoc 40(entget( car a)))) 1) "")
(????????????))

есть какая то часть кода - какие то построения геометрические ,вычисления и тп.

----- добавлено через ~14 мин. -----
Еще наверно так можно тожеЖ

Код:

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

  (defun c:cr ()
(function (lambda (q) ((setq a (entsel "\n Select circle:"))))
(terpri)
(if (=(cdr(assoc 0(entget( car a)))) "CIRCLE")
(command "_circle" (cdr(assoc 10(entget( car a)))) (- (cdr(assoc 40(entget( car a)))) 1) "")
(apply q))
  )

----- добавлено через ~29 мин. -----
Но почему то строчка не пропускается - "Select circle:Select circle:Select circle".Не пойму почему.

[Дима_]

У Вас пример с нечетным количеством скобок - то есть не рабочий - но налицо непонимание основных принципов лисп взаимодействия функций - ничего попытайтесь сами еще - не будет получаться спросите. Этот пример личше просто начните писать заново - там полная каша - например q во второй и 6 строке у Вас никак не связанны - то есть в 6 Вы в лучшем случае ничего не вызываете (в худшем, то что записанно в q до этого).
По поводу не годится - для этого надо именновать необходимую часть кода с нужной точки.

[Raznouh]

Дима_,спасибо.Поковыряюсь.Но как не странно,этот код в акаде работает

[Дима_]

Этот в акад даже не загрузиться - не хватает скобки

[Raznouh]

точно .попутал я что то. сорри.

[skkkk]

Сообщение от Дима_ пример с нечетным количеством скобок - то есть не рабочий

Сообщение от Raznouh Но как не странно,этот код в акаде работает

Сообщение от Raznouh точно .попутал я что то

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

Сообщение от Raznouh Но почему то строчка не пропускается - "Select circle:Select circle:Select circle".

Потому и не пропускалась. В коде появились символы "\n", но в сеанс они не загрузились.

[Raznouh]

По поводу не годится - для этого надо именновать необходимую часть кода с нужной точки.

Дима_,а Вы не могли бы на примере показать как это делается?Только ,желательно,на таком,чтоб было понятно человеку который всего месяц назад autolisp начал изучать.

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

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

[Дима_]

Могу

Код:

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

 (defun c:cr()
  ;(здесь делаете свои "одноразовые" построения)
  ((lambda (get-circle); "загружаем" get-circle
     ((lambda (lst);получаем DXF список круга и создаем новый с диаметром - 1
        (entmakex (list '(0 . "circle") (assoc 10 lst) (cons 40 (1- (cdr (assoc 40 lst)))))))
      (get-circle)))
    (lambda ();get-circle функция циклически повторяет выбор пока не выберешь круг - возращает DXF список
      ((lambda (ent); смотрим выбор
         (if (and ent; если выбор сделан
                 (= "CIRCLE" (cdr (assoc 0 (entget (car ent)))))) ; и это круг
             (entget (car ent)); возращаем список
             (get-circle))); или по новой
        (entsel "\nВыберите круг: ")))))

[Raznouh]

Дима_,спасибо.Только он не работает.Или я что то не так понял.

[Дима_]

Ну по крайней мере у меня точно работает - пробуйте еще раз. Если "не работает" - пишите лог ком.строки

[Raznouh]

Ну по крайней мере у меня точно работает - пробуйте еще раз. Если "не работает" - пишите лог ком.строки

; warning: local variable used as function: GET-CIRCLE

[Дима_]

Сообщение от Raznouh ; warning: local variable used as function: GET-CIRCLE

Это где Вы такое увидели - лог ком. строки выполнения надо.

[Raznouh]

Дима_,вот тут

Нажмите для просмотра

http://plasmon.rghost.ru/51718734/image.png
----- добавлено через ~1 мин. -----


----- добавлено через ~3 мин. -----
Увидев это я в акад грузить не стал,а сейчас загрузил - работает.Это предупреждение - нормально?

[Дима_]

Сообщение от Raznouh .Это предупреждение - нормально?

Вопрос риторический... По мне так нормально.

[skkkk]

Offtop: Так-тааак... Кажется, Дима_ заподозрен в дискредитации VLIDE в пользу Notepad++

[Дима_]

Я уже не раз писал - vlide не использую (для чего-то быстрого - notepad++, для побольше - редактор racket'a).

[Raznouh]

Сообщение от Дима_ Я уже не раз писал - vlide не использую (для чего-то быстрого - notepad++, для побольше - редактор racket'a).

Дима_,если уж Вы пользуетесь notepad++ ,можно поинтересоваться :где можно найти файл xml с ключевыми словами языка AutoLISP (для подсветки функций в редакторе)?Я вчера нашел один,но в нем не отмечены некоторые ф-ции activex.Или же,можно этот самый файл как то выудить из акадовского VLIDE ?Тоже пытался,но безуспешно, наощупь ,не зная директории и имени файла.