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

Тема: Как сделать выделение обьекта при наведение на него курсора?

Нужна помощь! Как сделать так чтобы на чертеже при простом наведении на объект чертежа, без кликанья объект менял цвет или подсвечивался!?

  • Откуда: Москва
  • На форуме с 2 июля 2004г.
  • Сообщений: 2,538
  • Спасибо: 10

Re: Как сделать выделение обьекта при наведение на него курсора?

Примерно так:

(while (and (setq gr (grread 5)) (= (car gr) 5))
  (if ent (redraw ent 4) )
  (if (and (setq pt (osnap (cadr gr) "_nea"))
           (setq ent (ssget pt ))
           (setq ent (ssname ent 0))
      ) ;_  and
   (redraw ent 3)
  ) ;_  if
 )

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

Re: Как сделать выделение обьекта при наведение на него курсора?

Спасибочки! Сейчас попробую!

  • Откуда: Москва
  • На форуме с 2 июля 2004г.
  • Сообщений: 2,538
  • Спасибо: 10

Re: Как сделать выделение обьекта при наведение на него курсора?

> Arsentey
Ну как, получилось?

  • masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

Re: Как сделать выделение обьекта при наведение на него курсора?

Люди добрые, а как аналогичная штука будет на VBA выглядеть? Правда, у меня задача немножко другая: из программы надо подсветить некоторые объекты. Спасибо.

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Как сделать выделение обьекта при наведение на него курсора?

> masha
Поищите на форуме. Обсуждалось это и не раз...