[WhiteShark]

Товарищи! Можно ли как то просто объединить 2 ранее созданных selection set'a в один? Ну кроме как перебора элементов одного и другого и занесения их в новый набор?

[Boxa]

О наименовании топиков данной ветви форума. или Вы думаете тут телепаты?

[WhiteShark]

Виноват-с. Имелось ввиду как это сделать на LISP.
И вопрос вдогонку как получить active selection set без activex и, если это невозможно, как преобразовать vla-указатель на active selection set в обычный selection set?

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

1. Тему переименуй.
2. Переведи, как ты собираешься работать с vla-указателями без ActiveX.

[WhiteShark]

1. не могу найти как переименовать тему
2. как раз хочется заиметь active selection set без помощи activeX

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

Сообщение от WhiteShark не могу найти как переименовать тему

Как переименовать тему?

Сообщение от WhiteShark как раз хочется заиметь active selection set без помощи activeX

Соль без соли?

[Do$]

Товарищи! Можно ли как то просто объединить 2 ранее созданных selection set'a в один? Ну кроме как перебора элементов одного и другого и занесения их в новый набор?

Я именно так и делал. Другого способа не нашел.

Сообщение от WhiteShark 2. как раз хочется заиметь active selection set без помощи activeX

Может, имеется в виду Implied selection set? Тогда (ssget "_I").

[WhiteShark]

Кулик Алексей aka kpblc, не затруднит тебя переименовать тему как модератора? на моем IEx64 расширенный режим не работает к сожалению
Do$, кажется, то что надо ) Смысл в том, что моя функция получает в качестве аргумента то, что уже выбрано.

[skkkk]

Тот редкий случай, когда не нашел ответа на dwg.ru. Может, плохо искал... но однако, нашел на буржуйском форуме Autodesk Community http://forums.autodesk.com/t5/Visual...s/td-p/2338945 три варианта решения объединения двух наборов. Тестировал довольно бегло, второй вариант чуть подправил, дабы отвечал он заявленному описанию.

Код:

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

 ;;; Функция объединяет два набора.
;;; Аргументы s1 и s2 должны быть наборами и не nil. Проверок нет.
;;; Возвращает набор, объединяющий два входящих, 
;;; исключая повторяющиеся объекты.
;;; http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/how-to-join-two-selection-sets/td-p/2338945
;;; Код в теме по ссылке выше, в посте №2. 
;;; Автор поста: chatsupa
(defun ssjoin (s1 s2)
    (command "_select" s1 s2 "")
    (ssget "_p")
)

Код:

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

 ;;; Функция объединяет два набора.
;;; Добавляет первый набор во второй.
;;; Аргументы - наборы sset1 и sset2 или nil.
;;; Если оба аргумента - наборы,
;;; возвращается второй набор,
;;; дополненный объектами первого набора,
;;; исключая повторяющиеся объекты.
;;; Если первый аргумент не набор или nil,
;;; возвращается второй набор.
;;; Если второй аргумент не набор или nil - 
;;; возращается nil.
;;; Если оба аргумента не наборы или nil,
;;; возвращается nil
;;; http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/how-to-join-two-selection-sets/td-p/2338945
;;; Подправленный код из темы по ссылке выше, в посте №6. 
;;; Автор поста: wkiernan
;;; Изменения skkkk (изначально код не отвечал описанию)
(defun add_sset1_to_sset2 (sset1 sset2 / scount )
    (if (or (null sset1)(/= (type sset1)(quote pickset)))
        (if (and sset2 (= (type sset2)(quote pickset)))
            sset2
            nil
        )
        (if (or (null sset2)(/= (type sset2)(quote pickset)))
            nil
            (progn
                (setq scount (sslength sset))
                (while (> scount 0)
                    (ssadd (ssname sset1 (setq scount (1- scount))) sset2)
                )
            )
        )
    )
)

Код:

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

 ;;; Функция объединяет два набора.
;;; Добавляет оба набора в новый набор.
;;; Аргументы - наборы sset1 и sset2 или nil.
;;; Возвращает созданный набор, 
;;; объединяющий два входящих набора, 
;;; исключая повторяющиеся объекты.
;;; Если один из аргументов nil, то возвращается 
;;; новый набор, совпадающий со входящим.
;;; Если оба аргумента nil, то возвращается пустой набор.
;;; http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/how-to-join-two-selection-sets/td-p/2338945
;;; Код в теме по ссылке выше, в посте №6. 
;;; Автор поста: wkiernan

(defun sset1_plus_sset2 (sset1 sset2 / sset3 )
    (setq sset3 (ssadd))
    (if (= (type sset1)(quote pickset))
        (setq scount (sslength sset1))
        (setq scount 0)
    )
    (while (> scount 0)
        (ssadd (ssname sset1 (setq scount (1- scount))) sset3)
    )
    (if (= (type sset2)(quote pickset))
    (setq scount (sslength sset2))
    (setq scount 0)
    )
    (while (> scount 0)
    (ssadd (ssname sset2 (setq scount (1- scount))) sset3)
    )
    sset3
)

[gomer]

лучше использовать cond и repeat а проверять достаточно sslength

[skkkk]

Сообщение от gomer лучше использовать cond и repeat а проверять достаточно sslength

Offtop: Хотелось не слишком уж сильно запускать руки в чужие творения