[Torino]

Как с использованием ENTSEL различить пустой выбор от нажатия ENTER?
Либо с использованием не ENTSEL, а какой-нибудь другой функции?

По вопросу

http://www.kurganobl.ru/cad/book.jsp...=507&tn=main#b

Более широко по выбору примитивов

http://www.kurganobl.ru/cad/book.jsp...=499&tn=main#b

[Torino]

Спасибо, именно то, что нужно!
Я так понял это части какой-то книги?
Не подскажете, как она называется?

[Torino]

Название нашел.
Пошел покупать

[kos]

Сообщение от Torino Название нашел. Пошел покупать

Рановато. Если я не проспал, то она еще не вышла...

[Torino]

Точно, не вышла, и выйдет тиражем всего 3000 экз...

[V.Khomyakov]

Ребята, ссылки не работают.
Обновите ссылки плиз.
Или, кто знает, подскажите здесь, в теме.
Заранее благодарю.

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

Попробуй посмотреть значение системной переменной ERRNO

[V.Khomyakov]

Ага, то что надо!
А я два дня мучился, уже надежду терять начал
Спасибо!

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

С другой стороны, какая разница, как "не получен" примитив? У меня обычно используется конструкция наподобие

Код:

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

 (defun getent (msg / res)
  (if (not msg)
    (setq msg "Выберите примитив <Отмена> : ")
    ) ;_ end of if
  (if (not (vl-catch-all-error-p
             (setq res (vl-catch-all-apply
                         (function
                           (lambda ()
                             (entsel (strcat "\n" (vl-string-left-trim "\n" msg)))
                             ) ;_ 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
    res
    ) ;_ end of if
  ) ;_ end of defun

Пока хватало...

[Krieger]

По примерам состряпал такое:

Код:

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

 ;|Функция Kr_entsel
*** Морозов С.В. aka Krieger ***
Еденичный выбор объекта, замена функции entsel
Возвращает entity name выбранного примитива или nil, точку указки запоминает в переменной LASTPOINT
Параметры:
promt - предложение выбрать объект (string)
filter - фильтр объектов для выбора вида '("LINE" "LWPOLYLINE")
entlist - список примитивов которые не надо выбирать (либо список entity name, либо PICKSET)

Примеры:
(Kr_entsel "\nВыберите объекты" '("LINE" "LWPOLYLINE") nil)
(Kr_entsel "\nВыберите объекты" nil nil)
(setq aa nil) (Kr_entsel "\nВыберите объекты" '("LINE" "LWPOLYLINE") (while (setq a (car (entsel))) (setq aa (append aa (list a)))))
(Kr_entsel "\nВыберите объекты" '("LINE" "LWPOLYLINE") (ssget))

|;

(defun Kr_entsel (promt filter entlist / key n newentlist ent_point promt)
  
  (setq key T n 0 newentlist nil)
  (if (eq (type entlist) 'PICKSET)
    (progn
    	(while (setq a (ssname entlist n)) (setq newentlist (append newentlist (list a)) n (1+ n)))
    	(setq entlist newentlist)
    );progn
   );if
    (while key
    	(if (or (setq ent_point (entsel promt)) (= (getvar "ERRNO") 7))
	  	(if (or (eq (type ent_point) 'LIST) (not ent_point))
		  (if ent_point
		    (if (member (setq ent (car ent_point)) entlist)
		      (princ "\nПримитив уже выбран")
		      (if filter
			      (if (not (member (cdr (assoc 0 (entget ent))) filter))
				(progn (setq str "\nНе верный выбор, выберите: ")
				  (princ (substr (setq str (foreach n filter (setq str (strcat str n ", ")))) 1 (- (strlen str) 2)))
				);progn
				(setq key nil)
			      );if
				(setq key nil)
			);if
		    );if
		    (setq key T)
		  );if
	    	(setq key nil)
	    );if
	  (setq key nil)
      	);if
     );while
  (if (eq (type ent_point) 'LIST)
    (progn (setvar "LASTPOINT" (cadr ent_point)) ent)
    ent_point
  );if
);defun

[VVA]

еще пару ссылок
_ru-get-ent-default, _ru-get-entsel-no-erro, ru-get-entsel, ru-get-entsel-by-type, ru-ssentget-by-type - здесь
_tdg-get-object-byselect - здесь

[V.Khomyakov]

С другой стороны, какая разница, как "не получен" примитив?

Дело в том, что мне необходимо было в цикле, предоставить пользователю возможность,
набрать примитивы одиночным указанием, с вариантами завершения выбора:
ESC - отказ от набранных объектов и завершение, ENTER - подтверждение набора и продолжение.
Плюс фильтр объектов и защита от промазывания.
Для этого и пришлось изобретать свой entsel.
С вашей помощью получилось
За примеры и ссылки спасибо. Полезно расширить кругозор.

[Олег (jr.)]

Сообщение от V.Khomyakov За примеры и ссылки спасибо. Полезно расширить кругозор.

И тебе за пример спасибо

[Елпанов Евгений]

а я, обычно, использую ssget примерно так:

Код:

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

 (prompt "\n Выберите линию")
(setq s(ssget "_:S:E" '((0 . "line"))))

при необходимости, можно играться с аргументами внутри ssget и получать набор примитивов или примитив.
Так же, если необходимо, можно получить точку указанную на экране, как в функции entsel...

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

Елпанов Евгений, забыл точку и плюс, кажется...

[Елпанов Евгений]

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

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

В вертикальных решениях (имею в виду, конечно, локализованные версии) иногда строка вида (ssget "_:S:E") вываливала ошибку. Почему - не знаю, лично я принял это как данность и с тех пор как-то привык уже ставить точку и плюс