[loginovskiy]

Я выбираю объекты (примитивы) и выполняю некоторые действия с ними в цикле.
При этом, если при выборе промахиваюсь, то остаюсь в цикле и продолжаю до тех пор пока
не выберу или не нажму Esc. Но хочется завершать не по Esc а нажатием правой кнопки.
Но в этом случае получаю nil как и при промахе. Нужно как то различать пустой выбор от нажати правой кнопки.
Можно конечно через reactor, но уверен что это делается проще. HELP плиз.

[gomer]

Покажите ваш загадочный код, тогда можно будет что-то посоветовать

[Лиспер]

Возможно, поможет ERRNO

[loginovskiy]

Ни какого загадочного кода, он прост и даже м.б. с точки зрения хороших программистов примитивен, не ругайте пж-лста
(DEFUN FLIP ( / i) ;;ôóíêöèÿ ïåðåñòðîéêè äèàãîíàëè ÷åòûðåõóãîëüíèêà
(vl-load-com)

(setq ent nil)
(While (= ent nil);;ïîêà íå áóäåò âûáðàíà
(setq ent (entsel "\nÂûáåðè äèàãîíàëü: "))
)

(if (/= ent nil) (progn ;;âûáðàòü ðàìêîé ÷òî áû âûáðàëèñü âñå - èõ ì.á. 1, 2 ëèáî áîëüøå ïðè îøèáêå â ÄÅËÎÍÅ
(RAMKA (cadr ent) 2);;ðàèêó âûáîðà
(setq nab (ssget "_C" vu nu '((0 . "3dface"))))
(if (/= nab nil) (progn
(setq kol_3df (sslength nab))
(cond
((= kol_3df 1) (progn (Alert "Çäåñü íåò âòîðîãî òðåóãîëüíèêà!!!") (EXIT)))
((> kol_3df 2) (progn (Alert "Çäåñü òðåóãîëüíèêîâ áîëüøå 2-õ, î÷åâèäíî îøèáêà â òðèàíãóëÿöèè") (EXIT)))
((= kol_3df 2) (SEL=>LIST))
)
));;if (progn
(print sp_3df);;ñïèñîê âñåõ âûáðàííûõ 3df <èìÿ . êîîðäèíàòû>

(log_FLIP);;

));;(if (/= ent nil)
)
;;==============================================================

[Do$]

Вы хоть читайте, что выкладываете.

[Олег (jr.)]

Сообщение от loginovskiy Я выбираю объекты (примитивы) и выполняю некоторые действия с ними в цикле. При этом, если при выборе промахиваюсь, то остаюсь в цикле и продолжаю до тех пор пока не выберу или не нажму Esc. Но хочется завершать не по Esc а нажатием правой кнопки. Но в этом случае получаю nil как и при промахе. Нужно как то различать пустой выбор от нажати правой кнопки. Можно конечно через reactor, но уверен что это делается проще. HELP плиз.

Возьми за основу, два примера

Код:

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

;;;Copyright (c)2005 - Marc'Antonio Alessi, Italy - All rights reserved
; http://xoomer.virgilio.it/alessi

(defun ALE_EntSelFilter (PrmStr FltLst / FlgSlt EntNam)
  (setvar "ERRNO" 0)
  (princ "\n_ ")
  (prompt (setq PrmStr (strcat "\n" PrmStr ": ")))
  (if
    (while (not FlgSlt)
      (if (setq EntNam (ssget "_:E:S" FltLst))
(not (setq FlgSlt T))
(if (= 52 (getvar "ERRNO"))
  (setq FlgSlt T)
  (alert
   ;; (strcat "\nUd no entendio lo que le pedi, pruebe de nuevo!"    PrmStr )

   (strcat "\nYou did not understood what I ask for , try it again!"   PrmStr)
    )
  ) ;_if
) ;_if
      ) ;_while
     (not (princ "\nFunction cancelled. "))
     (ssname EntNam 0)
     ) ;_if
  ) ;_defun
;;Пример вызова:
;;(ALE_EntSelFilter "Seleccione la poly del terreno" '((0 .
"POLYLINE") (100 . "AcDb3dPolyline")))

;;=============================================;;


;;SMadsen as posted: Tue Apr 05, 2005 3:46 am
(while 
  (not 
    (progn 
      (setvar "errno" 0)                ; must pre set the errno to 0 
      (setq ename (vl-catch-all-apply 'entsel '("\nSelect Object: "))) 
      (cond 
        ((vl-catch-all-error-p ename) 
         (prompt "\nEscape was pressed") 
         T 
        ) 
        ((= (getvar "errno") 52) 
         (prompt "\nEnter Key Pressed, Good Bye. ") 
         T 
        ) 
        ((null ename) 
         (prompt "\nNothing selected. ") ; returns nil 
        ) 
        ((= (cdr (assoc 0 (entget (car ename)))) "ARC") 
         (prompt "\nObject is an Arc, Try again.") 
        ) 
        ((= (cdr (assoc 0 (entget (car ename)))) "LINE") 
         (prompt "\nObject is a Line, Try again.") 
        ) 
        ((vl-string-search "TEXT" 
                           (cdr (assoc 0 (entget (car ename)))) 
         ) 
         ;;  text or Mtext or Rtext 
         (prompt "\nObject is text, Try again.") 
        ) 
        (T 
         ;;   no match 
         (prompt "\nYou got something else, Good Bye. ") 
         T                              ; allow exit from loop 
        ) 
      ) 
    ) 
  ) 
)

~'o'~

[gomer]

Сообщение от Лиспер Возможно, поможет ERRNO

поможет,

Код:

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

 (while (and (null (setq ent (entsel)))
	    (= 7
	       (getvar 'ERRNO)
	    )

       )
  (alert "\nПромазал!")

)