• kb_nn
  • Восстановленный участник
  • На форуме с 30 сентября 2004г.
  • Сообщений: 32
  • Спасибо: 0

Тема: Как выделить текущий объект?

слушайте.
например у меня на форме есть список из всех объектов выбранного чертежа.
и хотелось бы, чтобы выбранный в данный момент объект на форме был выделен на чертеже.

  • Sigma
  • Восстановленный участник
  • На форуме с 1 июня 2004г.
  • Сообщений: 62
  • Спасибо: 0

Re: Как выделить текущий объект?

Что значит "список из всех объектов"?
Каждый объект имеет множество свойств (и методов тоже), причем для объектов различных классов эти множества различны. И что же перечисляется в этом списке?
А ввобще-то объек выделяется примерно так:
1. Описываем переменные
    Dim Objs(0 To 0) As AcadEntity
    Dim Ss As AcadSelectionSet
2. Объект, выделенный в форме, идентифицируем на чертеже и заносим в Objs. Скажем, если объект находится в пространстве модели и имеет номер NUM, то
Set Objs(0) = ThisDrawing.ModelSpace.Item(...)
(

  • Sigma
  • Восстановленный участник
  • На форуме с 1 июня 2004г.
  • Сообщений: 62
  • Спасибо: 0

Re: Как выделить текущий объект?

ПРОМАХНУЛСЯ smile (не ту клавишу нажал)
Каждый объект имеет множество свойств (и методов тоже), причем для объектов различных классов эти множества различны. И что же перечисляется в этом списке?
А ввобще-то объек выделяется примерно так:
1. Описываем переменные
Dim Objs(0 To 0) As AcadEntity
Dim Ss As AcadSelectionSet
2. Объект, выделенный в форме, идентифицируем на чертеже и заносим в Objs. Скажем, если объект находится в пространстве модели и имеет номер NUM, то
   Set Objs(0) = ThisDrawing.ModelSpace.Item(NUM)
3. Наконец, выделяем объект на чертеже:
    Ss.AddItems ssobjs
    Ss.Highlight = True

  • kb_nn
  • Восстановленный участник
  • На форуме с 30 сентября 2004г.
  • Сообщений: 32
  • Спасибо: 0

Re: Как выделить текущий объект?

Ss.Highlight = True- не работает. выдает ошибку.
работает
Ss.Highlight(True)
но при этом объект становится каким-то пунктирным.
хотелось бы, чтобы он был именно выделен, как будто по нему щелкнули мышкой.

  • Sigma
  • Восстановленный участник
  • На форуме с 1 июня 2004г.
  • Сообщений: 62
  • Спасибо: 0

Re: Как выделить текущий объект?

Точно не помню, но, по-моему, способ выделения задается где-то в опциях. Может быть, и изнутри тоже можно (на VBA)

  • kb_nn
  • Восстановленный участник
  • На форуме с 30 сентября 2004г.
  • Сообщений: 32
  • Спасибо: 0

Re: Как выделить текущий объект?

нужно именно изнутри

  • kb_nn
  • Восстановленный участник
  • На форуме с 30 сентября 2004г.
  • Сообщений: 32
  • Спасибо: 0

Re: Как выделить текущий объект?

неужели никто не знает?

  • AASer
  • Восстановленный участник
  • На форуме с 19 апреля 2004г.
  • Сообщений: 41
  • Спасибо: 0

Re: Как выделить текущий объект?

подскажите чего нибудь. А то 4 месяца уже немогу закончить подъпрограмму. Как уперся в невозможность выполнить действие над объектом, которого нет в его свойствах, так и все!.

  • cadhelp
  • Восстановленный участник
  • На форуме с 24 февраля 2004г.
  • Сообщений: 231
  • Спасибо: 0

Re: Как выделить текущий объект?

Dim ss As AcadSelectionSet
Me.Hide
Set ss = ThisDrawing.ActiveSelectionSet
ss.SelectOnScreen
ss.Highlight True
ThisDrawing.SendCommand "(sssetfirst (ssget ""_P"") ) "
Me.Show

  • Rex
  • Восстановленный участник
  • На форуме с 11 августа 2005г.
  • Сообщений: 25
  • Спасибо: 0

Re: Как выделить текущий объект?

К сожалению это делает только вид того, как будто объекты выделены. На самом же деле, когда предпринимается попытка воспользоваться этим выделением и передвинуть примитивы командой "move" в "модели", то функция перемещения объектов запрашивает новый выбор объектов :(