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

Тема: Координаты растрового изображения

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

  • fixo
  • Восстановленный участник
  • На форуме с 3 июля 2008г.
  • Сообщений: 217
  • Спасибо: 0

Re: Координаты растрового изображения

> Maxim
Есть лисп для прямоугольных растров, надеюсь,
идея понятна, переделай на VBA

(defun C:test()
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (setq acsp (vla-get-modelspace adoc))
  (setq ent (entsel "\nSelect an image: "))
  (setq pickpt (trans (cadr ent) 0 1)
    image (vlax-ename->vla-object (car ent)))
  (setq pt (trans (vlax-get image 'Origin) 0 1)
       wid(vlax-get image 'ImageWidth)
    hgt (vlax-get image 'ImageHeight  )
            )
(setq pt_list
       (list pt
       (list (+ (car pt) wid)(cadr pt) 0.0)
       (list (+ (car pt) wid)(+ (cadr pt) hgt) 0.0)
       (list (car pt)(+ (cadr pt) hgt) 0.0)))
    (print pt_list)
    (princ)
    )

~'J'~

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

Re: Координаты растрового изображения

Я не знаком с лиспом. Объясни идею по русски. Не ужели в VBA нет функции возвращающей координату растрового изображения?

  • fixo
  • Восстановленный участник
  • На форуме с 3 июля 2008г.
  • Сообщений: 217
  • Спасибо: 0

Re: Координаты растрового изображения

> Maxim
Получи ссылку на растр, затем
получи следующие его свойства:
-Origin
-ImageWidth
-ImageHeight
координаты прямоугольника отсюда уже
вычислить будет просто
~'J'~

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

Re: Координаты растрового изображения

Спасибо получилось. Мне нужно было изменить свойство orign для перемещения растрового рисунка.

  • fixo
  • Восстановленный участник
  • На форуме с 3 июля 2008г.
  • Сообщений: 217
  • Спасибо: 0

Re: Координаты растрового изображения

> Maxim
Для остального сообщества был бы полезен
пример , если не возражаешь, у меня реально нет
времени, я бы накропал чего по теме...
~'J'~