Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Инверсия выбора

Инверсия выбора

Ответ
Поиск в этой теме
Непрочитано 08.02.2012, 15:28 #1
Инверсия выбора
makusik
 
Конструктор
 
Казань
Регистрация: 02.09.2009
Сообщений: 102

Доброго времени суток всем. Проблема такая: необходима команда, с помощью которой отменялся бы выбор ранее выделенных элементов и выделялись все остальные элементы на экране.
__________________
makusik
Просмотров: 4992
 
Непрочитано 08.02.2012, 16:06
1 | #2
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Здесь смотрел? Как осуществить инверсию выбранных объектов?
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 08.02.2012, 16:43
1 | #3
Дима_

Продуман
 
Регистрация: 22.02.2007
Питер
Сообщений: 2,840


Offtop: чуток размялся
Код:
[Выделить все]
 (vl-load-com)
(defun c:inverse()
  ((lambda (all ss)
     (if ss (foreach ent
                     (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
                     (ssdel ent all)))
     (sssetfirst nil all))
   (ssget "_a")
   (cadr (ssgetfirst))))
__________________
Когда в руках молоток все вокруг кажется гвоздями.
Дима_ вне форума  
 
Автор темы   Непрочитано 08.02.2012, 16:46
#4
makusik

Конструктор
 
Регистрация: 02.09.2009
Казань
Сообщений: 102


VVA - Подходит. Спасибо.

Дима_ - ваша команда не срабатывает.
__________________
makusik

Последний раз редактировалось makusik, 08.02.2012 в 16:53.
makusik вне форума  
 
Непрочитано 08.02.2012, 17:07
#5
Дима_

Продуман
 
Регистрация: 22.02.2007
Питер
Сообщений: 2,840


Цитата:
Сообщение от makusik Посмотреть сообщение
Дима_ - ваша команда не срабатывает.
А Вы случаем не с номерами строк скопировали - надо копировать через соответствующий "всплывающий" значок в правом углу "окна" кода.
__________________
Когда в руках молоток все вокруг кажется гвоздями.
Дима_ вне форума  
 
Автор темы   Непрочитано 09.02.2012, 08:29
#6
makusik

Конструктор
 
Регистрация: 02.09.2009
Казань
Сообщений: 102


Дима_ - да, так и есть. Все в порядке. Спасибо.
__________________
makusik
makusik вне форума  
 
Непрочитано 01.04.2012, 17:23
#7
roaa

ОПС
 
Регистрация: 29.03.2012
Kazakhstan
Сообщений: 128


Код:
[Выделить все]
 (defun c:si (/ existss allss revss)
  (defun subtractionss( / e1)
  (while (and existss (> (sslength existss) 0))
    (ssdel (setq e1 (ssname existss 0)) allss)
    (ssdel e1 existss))
  (if (zerop (sslength allss)) nil allss))
  (setq existss (ssget))
  (setq allss (ssget "_A"))
  (if (and allss (setq revss (subtractionss)))
    (progn
      (command "_.Select" revss "")
      (princ "\nИнверсия объектов выполнена.\n")
      (princ (sslength revss))
      (princ " объектов добавлены в текущий (previous) набор (_p).")
      );progn
    (princ "\nИнверсия объектов не выполнена"));if
    (command "_.Select" "_p" "")
    (sssetfirst nil (ssget "_p"))
    (princ))
(princ "\nНаберите SI")
можно и так
roaa вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Инверсия выбора

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Настройка выбора в автокаде Koksohimik AutoCAD 7 24.01.2011 12:43
FILTER / фильтр BM60 Справочник команд 0 08.07.2008 15:35
Таблица выбора в динамических блоках Лелик Динамические блоки 3 23.10.2007 10:14
После выбора объектов в панеле \"Свойства\" написа Леха Кучерявый AutoCAD 8 29.03.2007 13:29
Рамка выбора объектов и USC. vn AutoCAD 12 21.10.2006 18:41