[prajdziswet]

Добрый день, в принципе вопрос написан в заколовке.
Подскажите пожалуства, как мне получить список СПДС рамок (spdsFormat) делаю так:
(ssget "X" '((0 . "spdsFormat"))) в ответ получаю nil, что я делаю не так и как мне получить спдс рамки содержащие в чертеже
Заранее благодарю за подсказку.

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

http://forum.dwg.ru/showthread.php?t=24951
http://forum.dwg.ru/showthread.php?t=27273

[prajdziswet]

Спасибо,ознакомлюсь и попробую

[AndruxaZ]

Я делал так на основе кода Алексей из этой темы http://forum.dwg.ru/showthread.php?t=24951

Код:

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

 (setq selset (ssget))
        (setq
           selset (vl-remove-if-not
                    (function (lambda (x)
				(cdr (assoc 0 (entget x))) '("spdsFormat")
				) ;_ end of lambda
                              ) ;_ end of function
                    (_dwgru-conv-pickset-to-list selset)
		    ) ;_ end of vl-remove-if-not
           ) ;_ end of setq

Функцию (_dwgru-conv-pickset-to-list selset) взять по той же ссылке

[prajdziswet]

может не так хорошо (но проще), а насчет производительности и не думал,сделал простым перебором:

Код:

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

 
(setq nabor (ssget "X"))

(if (null nabor)

  (progn
    (princ "\nНе составлен список. "); сообщение об отсутствии
    (princ); тихий выход
  ); конец progn

  (progn
    (setq i -1 len (sslength nabor))
    (repeat len
      (setq i (1+ i))
; Выбор следующего примитива и получение его списка
      (setq list1 (entget (ssname nabor i)))
      (if (= "spdsFormat" (cdr (assoc 0 list1))) (princ "\nyes\n");или что надо
	)

      );;конец repeat
   );конец progn

);;конец if

п.с Большая благодарность и за ваши примеры , спасибо еще раз...

[gomer]

разве фильтры ssget не работают с объектами СПДС?

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

prajdziswet, твой код не будет работать в русском AutoCAD
gomer, фильтры ssget не обрабатывают имена объектов СПДС из-за разницы регистров (смесь прописных и строчных букв) в типе объекта.

[AndruxaZ]

Кулик Алексей aka kpblc, начиная с версии 8.0.1317, появилась воможность обработки фильтрами ssget. Тип объекта сделал полностью прописными буквами

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

AndruxaZ, хорошо, уточняю: "не обрабатывал" на момент написания кода из #2 и #4

[prajdziswet]

gomer, как Александр сказал фильтры ssget на СПДС не обрабатываюет
Александр Кулик:"prajdziswet, твой код не будет работать в русском AutoCAD" - Я на русском его и тестил, удивительно почему то как "Х" так и "_Х" обрабатываются оба (версия автокада на работе 2010 рус).
пс ну проверку языка автокада можно сделать без проблем, спасибо

[prajdziswet]

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

prajdziswet, версия русская или русифицированная? В официальных локализциях конструкция (ssget "X") не срабатывает - выдает ошибку ключевого слова.