[PDM]

На входе две координаты прямоугольной области в пространстве модели. Нужно уменьшить размер окна Autocad до размеров области. Масштаб изображения на экране монитора не должен изменятся. Монитор 1680х1050 точек. Окно за угол таскать уходит много времени, хотелось бы в одно нажатие клавиши. ACAD 2002, Win XP. Требуется только "ядро", а обычный lisp без "vla-" сам попробую победить.

[gomer]

На мониторе линейкой собираетесь измерять?

[PDM]

Это для вставки рисунков (много) из ACAD в другие приложения. Вместо линейки у меня кнопка М1:1.

[gomer]

зум экстентз и панель свойств тож ничего

[PDM]

Понятно, спасибо, но мне не нужен весь чертеж. Грубо говоря, тыкаю две точки на поле чертежа, нажимаю волшебную кнопку, и окно ACAD уменьшается до этих двух точек. Затем "Copy" и т. д. А еще грубее: как через lisp изменить размер окна ACAD? После этого можно Zoom, Window. Здесь, похоже, в реестр надо лезть т.к. размерами окон занимается Windows. А в реестр чистым лиспом не пробъешся, нужно через vla- наверное. Да я и так обхожусь уже несколько лет, но нудное это дело. А здесь у вас хорошие мастера по lisp, подумал, может кто знает. Спасибо.

[gomer]

Сообщение от PDM Грубо говоря, тыкаю две точки на поле чертежа, нажимаю волшебную кнопку, и окно ACAD уменьшается до этих двух точек. Затем "Copy" и т. д. А еще грубее: как через lisp изменить размер окна ACAD? После этого можно Zoom, Window. Здесь, похоже, в реестр надо лезть т.к. размерами окон занимается Windows. А в реестр чистым лиспом не пробъешся, нужно через vla- наверное. Да я и так обхожусь уже несколько лет, но нудное это дело.

Во-первых, ваша задумка - идея фикс, имхо...
Во-вторых, (vla-put-width (vlax-get-acad-object) 600) (это если окно не развернуто) должно, по-идее, работать (2002 автокад мне так и не удалось запустить ни разу) и не надо бояться vla
В третьих, возможно, оформление документов в самом автокаде окажется менее мучительно, чем казалось, попробуйте

[Кулик Алексей aka kpblc]

Проще уж размер отображаемой области менять...

[PDM]

gomer, буду пробовать (vla-put-width...) как время будет. Для использования vla для связи с др. приложениями нужно владеть Visual Basic for App как я понял из примеров Полещука. А я им не владею. Про оформление документов в самом автокаде бы чуть подробнее или ссылку. Word 2003, Mathcad 11. Спасибо.

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

[gomer]

Через COM из лиспа можно добраться и до ворда и до маткада, собственно как и наоборот, тут проблем нет

Сообщение от PDM Про оформление документов в самом автокаде бы чуть подробнее или ссылку.

Конечно автокад - не текстовый процессор, но текстовые документы при печати получаются ничуть не хуже, чем при печати из ворда
Ну и еще... что мешает печатать в файл изображения (jpg, png), настроив предварительно принтер

[Vov.Ka]

Код:

[Выделить все]

 (defun vk_GetPixelSize ()
    (/ (getvar "VIEWSIZE") (cadr (getvar "SCREENSIZE")))
)
(defun vk_GetMidPoint (p1 p2)
    (mapcar (function (lambda (e1 e2) (/ (+ e1 e2) 2.))) p1 p2)
)
(defun test (p1 p2 / adoc psize)
    (setq adoc	(vla-get-ActiveDocument (vlax-get-acad-object))
	  psize	(vk_GetPixelSize)
    )
    (mapcar (function (lambda (e1 e2 e3 e4)
			  (vlax-put-property
			      adoc
			      e3
			      (+ 1
				 (/ (abs (- e2 e1)) psize)
				 (- (vlax-get-property adoc e3) e4)
			      )
			  )
		      )
	    )
	    p1
	    p2
	    (list "WIDTH" "HEIGHT")
	    (getvar "SCREENSIZE")
    )
    (vla-ZoomCenter
	(vlax-get-acad-object)
	(vlax-3d-point (vk_GetMidPoint p1 p2))
	(getvar "VIEWSIZE")
    )
)
;|
(setq p1 (getpoint "\nCorner 1: ")
      p2 (getcorner p1 "\nCorner 2: ")
)
(test p1 p2)
|;

[PDM]

gomer, это трудоемко.

Vov.ka, все работает, окно по размеру картинки. Проблема решена, большое спасибо. С кодом попытаюсь разобраться когда будет время.