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

Тема: Подсветка объектов чертежа из программы

Здравствуйте!
Помогите, кто сможет.
Есть selectionSet, созданный в программе. Очень хочется, чтобы соотвествующие объекты чертежа подсветились, как при наезде на них мышкой. Свойство highlight не катит, потому что оно, во-первых, input-only, а во вторых, подсвечивает объекты штрихом, который почти не видно на толстых линиях.
Спасибо.

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

Re: Подсветка объектов чертежа из программы

> masha
Поищите на форуме. Я не даю конкретой ссылки, т.к. тема обсуждалась не раз...

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

Re: Подсветка объектов чертежа из программы

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

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

Re: Подсветка объектов чертежа из программы

Вот кое-что, что удалось вспомнить...
https://www.caduser.ru/forum/topic22798.html
https://www.caduser.ru/forum/topic22906.html

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

Re: Подсветка объектов чертежа из программы

Чего-то у меня не получилось, если действовать согласно ссылкам. И вообще, я решила не мучиться и подсвечивать Grips-ами. В общем, заработал следующий частично списанный кусок:
ThisDrawing.SendCommand "(setq ss (ssadd))" + vbCr
For Each obj In ThisDrawing.SelectionSets.Item("sel_set_highlight")
    v = obj.Handle
    ThisDrawing.SendCommand "(ssadd (handent """ + v + """) ss)" + vbCr
Next
ThisDrawing.SelectionSets.Item("sel_set_highlight").highlight (True)
ThisDrawing.SendCommand "(sssetfirst nil ss)" + vbCr 'highLight by Grips
ThisDrawing.Regen acAllViewports
Спасибо за идейную поддержку!

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Подсветка объектов чертежа из программы

Замени ради интересу

ThisDrawing.SendCommand "(sssetfirst nil ss)" + vbCr 'highLight by Grips

на

ThisDrawing.SendCommand "(sssetfirst ss ss)" + vbCr 'highLight by Grips

Оно?

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

Re: Подсветка объектов чертежа из программы

Заменила. А что должно было произойти? Кажется, ничего не изменилось...

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Подсветка объектов чертежа из программы

Ручки должны были появиться по идее.

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

Re: Подсветка объектов чертежа из программы

Так они и так были, по команде
ThisDrawing.SendCommand "(sssetfirst nil ss)" + vbCr

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Подсветка объектов чертежа из программы

(sssetfirst) - лисповая команда, принимает в качестве аргументов 2 набора объектов. Один подсвечивается пунктиром, другой - ручками. Кто из них кто, я не помню.

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

Re: Подсветка объектов чертежа из программы

Ну, раз ss подсветился ручками, значит, второй ручками подсвечиваетя. :) А вместо первого у меня была команда
ThisDrawing.SelectionSets.Item("sel_set_highlight").highlight (True)