[solo123]

Надо создать анимацию: раздвигается дверь.

Вобщем сам процесс анимации я буду осуществлять в проге GIF animator, но для этой проги мне нужны исходные bmp файлы котырые я получаю, экспортируя из акада каждый DWG файл рисунка, тоесть каждый кадр я экспортирую в bmp и далее собираю их в GIF animator-е в анимацию.Сложность заключается в том, что этим надо очень долго и упорно заниматься. Нарисовать для меня программно раздвижную дверь не проблема. Но как программно сохранить каждый кадр после перемещения двери хотябы в dwg формате? Буду очень благодарен за помощь, в решении этой проблемы.

[BoogeyMan]

полотно (движущуюся часть двери) раскопировать на разные слои под разными углами открывания
и включать их поочередно
(но как это сделать програмно и в Автокад я незнаю)

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

Проще тогда уж программно через Rotate менять вхождение полотна и формировать выходные файлы.

[hwd]

а почему это не делать в специализированном софте, например в 3D Max? Как-то у народа в последнее время обострилось желание использовать AutoCAD не по назначению...

[BoogeyMan]

3Д Макс еще изучить надо
а перед этим еще достать дистрибутив
русификатор

а тут программа в которой ты каждый день работаешь

[Oliver_88]

Код:

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

 (defun test ( / *active_document* acad_obj l1 l2 util selset_p_doc x)
  (vl-load-com)
  (setq
    *active_document* (vla-get-ActiveDocument
			(setq acad_obj
			       (vlax-get-acad-object)
			      )
			)
    )
  (setq model_p_doc (vla-get-ModelSpace *active_document*))
  (setq util (vla-get-Utility *active_document*))
  (vla-AddLine
    model_p_doc
    (vlax-3d-point '(-50.0 0.0 0.0))
    (vlax-3d-point '(50.0 0.0 0.0))
    )
  (setq l1
	 (vla-AddLine
	   model_p_doc
	   (vlax-3d-point '(0.0 0.0 0.0))
	   (vlax-3d-point '(0.0 50.0 0.0))
	   )
	)
  (setq l2
	 (vla-AddLine
	   model_p_doc
	   (vlax-3d-point '(0.0 0.0 0.0))
	   (vlax-3d-point '(0.0 50.0 0.0))
	   )
	)
  (if
    (vl-catch-all-error-p
      (setq selset_p_doc
	     (vl-catch-all-apply
	       'vla-Add
	       (list
		 (vla-get-SelectionSets *active_document*) "1"
		 )
	       )
	    )
      )
    (setq selset_p_doc (vla-Item (vla-get-SelectionSets *active_document*) "1"))
    )
  (setq x 5)
  (repeat 10
	(vla-Move
	  l1
	  (vlax-3d-point '(0.0 0.0 0.0))
	  (vla-PolarPoint util
	    (vlax-3d-point '(0.0 0.0 0.0))
	    0 5)
	  )
	(vla-Move
	  l2
	  (vlax-3d-point '(0.0 0.0 0.0))
	  (vla-PolarPoint util
	    (vlax-3d-point '(0.0 0.0 0.0))
	    pi 5)
	  )
;;;	(vla-SaveAs *active_document* (strcat "E:\\doc\\анимация"
;;;					      (vl-princ-to-string (setq x (+ 5 x)))
;;;					      )
;;;	  acNative
;;;	  )
	(vla-ZoomExtents acad_obj)
	(vla-Clear selset_p_doc)
	(vla-Select selset_p_doc acSelectionSetAll nil nil)
	(vla-Export
	  *active_document*
	  (strcat "E:\\doc\\анимация"
		  (vl-princ-to-string (setq x (+ 5 x)))
		  )
	  "bmp"
	  ;"wmf"
	  selset_p_doc
	  )
	)
      )

[solo123]

Спасибо всем! Сразу поясню дверь раздвижная применяю move,
далее ближе к проблеме: вот к примеру применил я эту функцию к моему виртуальному полотну, и оно сместилось на одну единицу, далее мне нужно чтобы этот кадр(файл) сохранился вкакой нибудь папке, а если его ещё и можно программно экпортироватиь в формат bmp, то по моему, можно без проблем делать анимацию того с чем ты работаешь в акаде и выгружать свои работы в инет с наименьшим весом файлов, ну а количество кадров наверное надо применить reperat?

AutoCad 2004, изучаю и применяю функции Active X пользуюсь DXF кодами c ObjectARX незнаком.

[BoogeyMan]

BMP это не наименьший вес кадров
есть же бесплатные програмы для создания видео с экрана

[solo123]

Файлы в формате bmp нужны только для работы в проге Gif Animator, тоесть из этих файлов мы сотавляем поочерёдно кадры анимации, а на выходе анимацию можно сохранить и в формате GIF, а они получаются довольно лёгкие. Если у Вас есть предложения о использовании какой нибудь другой программы с удовольствием выслушаю!

[BoogeyMan]

))) наверное Вы правы

[solo123]

Огромное спасибо BoogeyMan! Это именно то, что надо, после вашего редактирования всё заработало!

[BoogeyMan]

я вроде ничего такого не сказал

[solo123]

Извиняюсь, спасибо конечно же Oliver_88!

[BoogeyMan]

вот так значить
а BoogeyMan пошел на Х..
да )))

[proektant-minsk]

Мне необходимо сделать примерно то же что solo123, НО... Меня такое решение задачи не устраивает, т.к 1)низкое разрешение картинок, 2) на картинках отображается цвет фона 3) нельзя регулировать разрешение данных файликов на выходе. Можно ли данный набор растровых изображений получить путем печати (_plot) в файл, используя расширенные настройки доступные при такой печати. Или сформулирую вопрос иначе: есть ли функция в ActiveX которая позволяет осуществлять печать фрагмента чертежа программно на внешнее устройство или в файл (в нашем случае в файл), Может эту задачу можно решить при помощи функции command (у меня не получилось). Очень давно бьюсь над этой задачей, пока бесрезультатно . Если кто поможет - буду оч. благодарен

p.s. http://www.youtube.com/watch?v=w0lRdyXwTPE
кому интересно, для чего я это спрашиваю))) пришлось делать печать в файл более 200 раз((( автоматизировать бы....

[Дима_]

Сообщение от proektant-minsk есть ли функция в ActiveX которая позволяет осуществлять печать фрагмента чертежа

А, для начала, справку ActiveX посмотреть совсем никак?

[proektant-minsk]

Дима_, смотрел, но не нашел

[Дима_]

Объект Plot

[proektant-minsk]

ась?

[Дима_]

Так и написали бы что и справкой пользоваться не умеете: