• AMD
  • Участник
  • На форуме с 2 февраля 2012г.
  • Сообщений: 84
  • Спасибо: 2

Тема: Визуальный стиль в текущем окне просмотра.

Всем доброго времени суток!

Знатоки, нужна Ваша помощь.

Подскажите, пожалуйста, как на Lisp программно получить визуальный стиль, установленный для текущего активного документа.

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

Заранее благодарю.

С уважением,
Андрей

Ответ от AMD (Причина редактирования: Добавлен код)

  • AMD
  • Участник
  • На форуме с 2 февраля 2012г.
  • Сообщений: 84
  • Спасибо: 2

Re: Визуальный стиль в текущем окне просмотра.

Благодаря информации, выложенной на форуме Александром Ривилис и fixo проблема закрыта. Спасибо коллеги.

  (setq obj (vlax-get-acad-object))
  (setq vp  (vla-get-ActiveViewport (vla-get-ActiveDocument obj)))
 
  (setq  Handle (vla-get-handle vp))

  ;; Текущий визуальный стиль пространства модели
  (setq current_visual_styler (cdr (assoc 2 (entget (cdr (assoc 348 (entget (handent Handle))))))))