[Mazai]

Здраствуйте.
У меня вопрос - можно ли одним запросом с помощью команды "SSGET" сформировать набор, в котором одновременно отбирались бы примитивы типа "LINE" и "LWPOLYLINE". Или в этой команде отбор примитивов возможен только по одному типу? Если это так, то как ещё можно это сделать? (как сформировать два набора, потом их объеденить и отсортировать - я знаю - получается много лишних действий)

[Александр Ривилис]

Код:

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

 
(ssget "_X" '((0 . "LINE,LWPOLYLINE")))

[Mazai]

Спасибо!

[mmax]

Когдато давно я уже задавал этот вопрос и мне ответили , но не могу найти сейчас.
Там есть фильтры с кодом -4, если не ошибаюсь, под которым идут логические OR NOT AND. Забыл как их формировать. Справка AutoCAD 2008 RUS пишет, что данный раздел отсутствует.
Если у кого в справке есть этот раздел скиньте пожалуйста сюда.
Или хотябы напишите как правильно формируется открывающий и закрывающий список.
Нужно срочно.
Заранее благодарен.

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

Лови:

[Donhuan]

Logical Grouping of Filter Tests

You can also test groups by creating nested Boolean expressions that use the logical grouping operators shown in the following table:

Grouping operators for selection set filter lists

The grouping operators are specified by –4 groups, like the relational operators. They are paired and must be balanced correctly in the filter list or the ssget call will fail. An example of grouping operators in a filter list follows:

(ssget "X"

’(
(-4 . "<OR")
(-4 . "<AND")
(0 . "CIRCLE")
(40 . 1.0)
(-4 . "AND>")
(-4 . "<AND")
(0 . "LINE")
(8 . "ABC")
(-4 . "AND>")
(-4 . "OR>")
)
)
This code selects all circles with a radius of 1.0 plus all lines on layer "ABC". The grouping operators are not case-sensitive; for example, you can specify "and>", "<or", instead of "AND>", "<OR".

Grouping operators are not allowed within the –3 group. Multiple application names specified in a –3 group use an implied AND operator. If you want to test for extended data using other grouping operators, specify separate –3 groups and group them as desired. To select all circles having extended data for either application "APP1" or "APP2" but not both, enter the following:

(ssget "X"
’((0 . "CIRCLE")
(-4 . "<XOR")
(-3 ("APP1"))
(-3 ("APP2"))
(-4 . "XOR>")
)
)
You can simplify the coding of frequently used grouping operators by setting them equal to a symbol. The previous example could be rewritten as follows (notice that in this example you must explicitly quote each list):

(setq <xor ’(-4 . "<XOR")
xor> ’(-4 . "XOR>") )
(ssget "X"
(list
’(0 . "CIRCLE")
<xor
’(-3 ("APP1"))
’(-3 ("APP2"))
xor>
)
)
As you can see, this method may not be sensible for short pieces of code but can be beneficial in larger applications.

[mmax]

Спасибо.
Может вопрос уже не по теме, но почему у меня отсутствуют элементы справки, жму ссылки внизу а там вот такое:

[ShaggyDoc]

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

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

Скорее всего, это глюк локализации.

[skkkk]

Помогите, пожалуйста, разобраться.
У Полещука в книге "AutoLISP и Visual LISP в среде AutoCAD" написано:

(ssget '(125.4 58.1)) создает набор из всех примитивов, проходящих через точку (125.4 58.1)

В приложенном файле через точку (0.0 0.0) проходит ТРИ примитива "LWPOLYLINE", но

Код:

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

(sslength (ssget '(0.0 0.0)))

возвращает "1".
Что не так?

[Олег (jr.)]

Пробуй такой вариант

Код:

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

(setq pt (list 0 0 0) fuzz 0.001); <-- set epsilon to your suit,eg: 0.000001, etc.
(setq ss (ssget	"x"
		(list (cons -4 "<or")
		      (cons -4 ">,>,>")
		      (cons 10
			    (mapcar '+ (list fuzz fuzz fuzz) pt))
		      (cons -4 "<,<,<")
		      (cons 10
			    (mapcar '+ (list fuzz fuzz fuzz) pt))
		      (cons -4 "or>"))))

[skkkk]

Олег (jr.), спасибо, сработало. Это ж как надо начать думать, чтоб до такого додуматься?
Интересно, почему не работает вариант Полещука?

[Олег (jr.)]

Сообщение от skkkk Это ж как надо начать думать, чтоб до такого додуматься

Я не думаю мне нечем

[Do$]

Сообщение от skkkk Интересно, почему не работает вариант Полещука?

http://forum.dwg.ru/showpost.php?p=460622&postcount=10

[skkkk]

Олег (jr.), а как в твоем варианте выбрать ТОЛЬКО полилинии, проходящие через точку pt?
Do$, не пойму, причем тут погрешность и числа с плавающей запятой? В варианте Полещука выбирается тот примитив, который является самым новым в порядке прорисовки, т.е. самый "верхний". Если его убрать за объекты, выбирается другой примитив, проходящий через эту точку.

[CB]

Код:

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

(sslength (ssget "_C" pt pt))

Ну а дальше из набора выбирай полилинии

[Do$]

Сообщение от skkkk Do$, не пойму, причем тут погрешность и числа с плавающей запятой?

Я предположил, что из-за этого не выбирается. Получается, что оказался не прав.

[Александр Ривилис]

Сообщение от CB Код: [Выделить все] (sslength (ssget "_C" pt pt)) Ну а дальше из набора выбирай полилинии

Ну тогда уж (хотя это всё извращение):

Код:

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

 (setq delta 1e-4) ;; устанавливаем некую погрешность
(ssget "_C" (mapcar '- pt (list delta delta delta)) (mapcar '+ pt (list delta delta delta)) '(0 . "*POLYLINE"))

И точка должна быть видна на экране.

[Олег (jr.)]

Сообщение от skkkk Олег (jr.), а как в твоем варианте выбрать ТОЛЬКО полилинии, проходящие через точку pt?

Так должно выбирать что нужно

Код:

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

(setq pt (list 0 0 0) fuzz 0.001); <-- set epsilon to your suit,eg 0.000001 etc
(setq ss (ssget	"_X"
		(list (cons -4 "<and")
		      (cons 0 "lwpolyline")
		      (cons -4 "<or")
		      (cons -4 ">,>,>")
		      (cons 10
			    (mapcar '- (list fuzz fuzz fuzz) pt))
		      (cons -4 "<,<,<")
		      (cons 10
			    (mapcar '+ (list fuzz fuzz fuzz) pt))
		      (cons -4 "or>")
		      (cons -4 "and>"))))

[Александр Ривилис]

Сообщение от Олег (jr.) Так должно выбирать что нужно

Не должно. Так в лучшем случае будет выбирать если точка рядом с вершиной полилинии. Это если не считать ошибку в знаках у mapcar.