[ProPeller]

Собственно по теме, подскажите пожалуйста метод аналогичный функции выбора ручек у набора, а то я что-то совсем никак не могу найти

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

Ничего не понял. Чем штатная sssetfirst не устраивает? Посмотри в справке - у нее 2 параметра. В зависимости от передаваемых параметров и вид будет разным.

[ProPeller]

Сообщение от Кулик Алексей aka kpblc Ничего не понял. Чем штатная sssetfirst не устраивает? Посмотри в справке - у нее 2 параметра. В зависимости от передаваемых параметров и вид будет разным.

Наверное я не очень доступно вопрос изложил. SSSETFIRST работает с наборами созданными при помощи SSGET, а в моем случае выбор представляет из себя результат метода VLA-SELECT (VLA-SELECTONSCREEN и т.д.) и на выходе получается, например #<VLA-OBJECT IAcadSelectionSet 000000003282a718> . Вот я и пытаюсь узнать метод или какой другой способ выделения объектов именно из такого вида набора.
Надеюсь так понятно.

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

Стоп. Работа вообще из-под AutoCAD или из-под стороннего приложения?

[ProPeller]

Из под AutoCAD

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

Поскольку прозвучало "lisp", преобразовывай vla-набор в обычный pickset и подсвечивай его.

[ProPeller]

В общем я так и предполагал, что придется преобразовывать. Хотел отделаться "малой кровью" так сказать. Тогда вопрос следующий: как правильно выполнить преобразование? vlax-vla-object->ename в данном случае не помогает.

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

Код не проверял.

Код:

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

 (defun ssetfirst-vla (vla-selection / ss)

  (defun fun_conv-vla-to-list (value / res)
    (cond
      ((listp value)
       (mapcar (function fun_conv-vla-to-list) value)
       )
      ((= (type value) 'variant)
       (fun_conv-vla-to-list (vlax-variant-value value))
       )
      ((= (type value) 'safearray)
       (if (>= (vlax-safearray-get-u-bound value 1) 0)
         (fun_conv-vla-to-list (vlax-safearray->list value))
         ) ;_ end of if
       )
      ((and (member (type value) (list 'ename 'str 'vla-object))
            (= (type value) 'vla-object)
            (vlax-property-available-p (fun_conv-ent-to-vla value) 'count)
            ) ;_ end of and
       (vlax-for sub value
         (setq res (cons sub res))
         ) ;_ end of vlax-for
       )
      (t value)
      ) ;_ end of cond
    ) ;_ end of defun

  (setq ss (ssadd))
  (foreach ent (mapcar (function vlax-vla-object->ename)
                       (fun_conv-ent-to-vla vla-selection)
                       ) ;_ end of mapcar
    (ssadd ent ss)
    ) ;_ end of setq
  (sssetfirst ss ss)
  ) ;_ end of defun