[evgm]

привет всем
есть SelectionSet который в цикле перебирается и что-то пропускается а что-то добавляется в другой SelectionSet
нужно бы после всего этого все что было выбрано подсветить
как это сделать?
заранее спасибо

[fixo]

На чистом VBA не существует таких методов
Можно попробовать обойти с помощью выражений
Lisp или с использованием сторонних библиотек

Попробуй так:

Код:

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

  Dim oSset As AcadSelectionSet
  Set oSset = ThisDrawing.PickfirstSelectionSet
  oSset.Clear
  oSset.SelectOnScreen 
  ThisDrawing.SendCommand "(sssetfirst nil (ssget " & Chr(34) & "_P" &  Chr(34) & ")) "

~'J'~

[evgm]

я согласен на sendcommand только акад говорит что не знает команды ssetfirst

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

sssetfirst - там три "s" впереди.

[evgm]

да согласен я опечатку допустил...
только
F2:
Command: sssetfirst
Unknown command "SSSETFIRST". Press F1 for help.
акад 2006 если что...

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

sssetfirst - лисповская функция и не зря заключается в скобки.
---
Добавлено:
<F2>

Код:

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

Command : (sssetfirst nil (ssget "_P"))

[evgm]

спасибо
я лиспа знал толко поверхностно и то это было в 98 году
а то что знал и то забыл
сама комманда работает при вводе в ком строке
но акад вылетает в фатал еррор при том же самом из кода VBA
буду копать код...