[AlexZh]

Здравствуйте!

Подскажите, как доработать программу, чтоб была возможность выхода через "Выход" или правую кнопку мыши (соответственно nil на выходе) и на курсоре висело приглашение

Код:

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

 (defun _1z_choice_obj (obj lay invitation / return_obj)
;;;выбор объекта по условиям "тип примитива" "слой"
;;; например (_1z_change_obj "INSERT" "1Z_APS_EQUIPMENT*" "\nВыберите
;;; приемное устройство или [Выход]
;;; <Выход>:")
  (while
    (progn
      (setvar "errno" 0)
      (initget "Выход")
      (princ invitation)
      (setq return_obj
	     (entsel) ;_ конец entsel
      ) ;_ конец setq
      (cond
	((= 7 (getvar 'errno))
	 (princ "\nНичего не выбрано! Пробуй снова.")
	)
	((or
	   (or (null return_obj) (equal (type return_obj) 'str))
	   (and
	     (equal (cdr (assoc 0 (entget (car return_obj)))) obj)
	     (wcmatch (strcase (cdr (assoc 8 (entget (car return_obj)))))
		      lay
	     )		      ; _
			      ; конец
			      ; wcmatch
	   ) ;_ конец and
	 ) ;_ конец and
	 nil
	)
	(t (alert "Попробуй еще раз!") t)
      ) ;_ конец cond
    ) ;_ конец cond
  ) ;_ конец progn
  (setq ent_point (cdr return_obj))
  (car return_obj)
)

[VVA]

Код:

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

;;; lay - маска слоя для wcmatch (Слой1* Слой1,Слой2,#Lay* и т.п.)
;;; initstr - строка для initget
;;; promptstr - строка приглашения
;;; ВОЗВРАЩАЕТ  - имя объекта (ename) при удачном выборе или nil
;;; В случае выбора объекта точка выбора сохраняется в переменной LASTPOINT
;;; Пример использования
;;;(_1z_choice_obj "INSERT" "1Z_APS_EQUIPMENT*" "Выход" "\nВыберите приемное устройство или [Выход] <Выход>:")

  (while
    (progn
      (setvar "errno" 0)
      (initget initstr)
      (setq return_obj
	     (entsel promptstr)
      ) ;_ конец setq
      (cond
	((= 7 (getvar 'errno))
	 (princ "\nНичего не выбрано! Пробуй снова.")
	)
	((or
	   (or (null return_obj) (equal (type return_obj) 'str))
	   (and
	     (equal (cdr (assoc 0 (entget (car return_obj)))) obj)
	     (wcmatch (strcase (cdr (assoc 8 (entget (car return_obj)))))
		      lay
	     ) ;_ конец wcmatch
	   ) ;_ конец and
	 ) ;_ конец or
	 nil
	)
	(t (alert "Попробуй еще раз!") t)
      ) ;_ конец cond
    ) ;_ конец progn
  ) ;_ конец while
  (if (and return_obj (listp return_obj)) ;_Что-то выбрали
    (progn
      (setvar "LASTPOINT" (cadr return_obj)) ;_сохраняем точку выбора в LASTPOINT
      (car return_obj)
    ) ;_ конец progn
  ) ;_ конец if
) ;_ конец defun

[AlexZh]

То, что надо!

Код:

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

 (defun _1z_choice_obj (obj lay promptstr / return_obj)
;;;выбор объекта по условиям "тип примитива" "слой"
;;; например (_1z_change_obj "INSERT" "1Z_APS_EQUIPMENT*" "\nВыберите
;;; приемное устройство или [Выход]
;;; <Выход>:")
;;; lay - маска слоя для wcmatch (Слой1* Слой1,Слой2,#Lay* и т.п.)
;;; initstr - строка для initget
;;; promptstr - строка приглашения
;;; ВОЗВРАЩАЕТ  - имя объекта (ename) при удачном выборе или nil
;;; В случае выбора объекта точка выбора сохраняется в переменной
;;; LASTPOINT
;;; Пример использования
;;; (_1z_choice_obj "INSERT" "1Z_APS_EQUIPMENT*" "Выход" "\nВыберите
;;; приемное устройство или [Выход]
;;; <Выход>:")
  (while
    (progn
      (setvar "errno" 0)
      (initget "Выход")
      (setq return_obj (entsel promptstr)) ;_ конец setq
      (cond
	((= 7 (getvar 'errno))
	 (princ "\nНичего не выбрано! Пробуй снова.")
	)
	((or
	   (or (null return_obj) (equal (type return_obj) 'str))
	   (and
	     (equal (cdr (assoc 0 (entget (car return_obj)))) obj)
	     (wcmatch (strcase (cdr (assoc 8 (entget (car return_obj)))))
		      lay
	     ) ;_ конец wcmatch
	   ) ;_ конец and
	 ) ;_ конец or
	 nil
	)
	(t (alert "Попробуй еще раз!") t)
      ) ;_ конец cond
    ) ;_ конец progn
  ) ;_ конец while
  (if (and return_obj (listp return_obj)) ;_Что-то выбрали
    (progn (setvar "LASTPOINT" (cadr return_obj)) ; _сохраняем точку
						  ; выбора в
						  ; LASTPOINT
	   (car return_obj)
    ) ;_ конец progn
  ) ;_ конец if
  (setq ent_point (cdr return_obj))
  (car return_obj)
)