[квинт]

Подскажите чайнику!!!!!

[favorite]

Анимировать, это как?

[Огурец]

Наверно реанимировать, но больной скорее жив, чем мертв.

[`LX]

Могу предложить слежующий способ. Рисуете то что вам надо - 2D или 3D. В 3D можно наложить текстуры и более менее прилично отрендерить. После того как получили нужную картинку, делаете скриншот. Сохраняете его в отдельную папку. Для скриншотов используйте программу типа SnagIt - через буфер обмена будет коряво. После этого меняете картинку. делаете как в мультипликации следующий кадр - отрисовываете то, что будет через 1/25 секунды. Если надо перерендериваете. Получили картинку - сделали еще один скриншот. Так до того момента, пока не получите скриншоты всех нужных сцен. После этого ищете прогу, которая соединяет набор картинок в последовательность и записывает эту последовательность как фильм. Чуть не забыл - при снятии скриншотов называйте файлы цифрами в порядке возрастания. Тогда программа будет знать в какой последовательности ставить скриншоты друг за другом при создании фильма. Получили видео - в виртуал дубе или аналоге накладываем музыку. Вуаля - готова анимация из Автокада.

[квинт]

А что такое mechanical dynamics или dynamic designer?

[Алексей Викторович]

В 2007 есть какая-то функция, которая делает съемку. Где-то рядом с рендером.

[Миттрич]

Ещё в 10-ке была возможность построения т.н. 2слайдов" и запуск их просмотра с возможностью изменять временные интервалы отображения каждого. Знать то знаю, что было но не пользовался ни разу. И даже несмогу подсказать - умерла эта возможность в новых версиях или нет...

[квинт]

Сообщение от Миттрич Ещё в 10-ке была возможность построения т.н. 2слайдов" и запуск их просмотра с возможностью изменять временные интервалы отображения каждого. Знать то знаю, что было но не пользовался ни разу. И даже несмогу подсказать - умерла эта возможность в новых версиях или нет...

А что такое mechanical dynamics или dynamic designer?

[Алексей Викторович]

Сообщение от квинт А что такое mechanical dynamics или dynamic designer?

Это я 1 такой тупой, не могу никак врубиться ни что это, ни имеет ли это отношение к теме? Тогда мне тоже наверно будет интересно послушать.

[Алексей Викторович]

Сообщение от квинт А что такое mechanical dynamics или dynamic designer?

Это я 1 такой тупой, не могу никак врубиться ни что это, ни имеет ли это отношение к теме? Тогда мне тоже наверно будет интересно послушать.

[квинт]

Сообщение от Алексей Викторович Сообщение от квинт А что такое mechanical dynamics или dynamic designer? Это я 1 такой тупой, не могу никак врубиться ни что это, ни имеет ли это отношение к теме? Тогда мне тоже наверно будет интересно послушать.

Одесса Моделирование динамики работы механизмов может выполняться в системе Dynamic Designer (Mechanical Dynamics)стеме Dynamic Designer (Mechanical Dynamics)

[Profan]

А вот посмотрите тут:
http://niiits.ulsu.ru/portal/data/86

[квинт]

Сообщение от Profan А вот посмотрите тут: http://niiits.ulsu.ru/portal/data/86

Кент спасибо!!!!!

[Огурец]

Сообщение от Profan А вот посмотрите тут: http://niiits.ulsu.ru/portal/data/86

Действительно, очень интересно. А кто пробовал?

[квинт]

сам очень хочу попробовать.Еще есть вот здесь:http://cad.com.ru/Post/mail.php

[Серёга - Bilder]

Озадачился вот чем:
сделал модель объекта нашего в 2007-ом акаде. Поизвращался с анимацией (сделал типа облёт всего сооружения и прочее), но не хватает живости. Очень хочется чтобы при движении камеры происходило и в кадре движение: чтоб "работали" механизмы не хитрые например. Так вот, как это сделать? И можно ли это сделать в автокаде?

Метод "слайдов" пришёл в голову, но как мне кажется - опупеешь пока сделаешь ролик секунд на 20...

Ссылка из поста 12 не открывается, из поста 15 - шлёт на страничку заказа бандероли :roll:

[mmax]

Сообщение от квинт как анимировать Автокад ?

Код:

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

(defun deg->rad (angdeg / )
  (* (/ pi 180) angdeg)
  )

(princ "\nВыберите маленькую шестерню : ")
(setq obj1 (vlax-ename->vla-object(car (entsel))))
(setq 1po (getpoint "\nУкажите центр маленькой шестерни : "))

(princ "\nВыберите большую шестерню : ")
(setq obj2 (vlax-ename->vla-object(car (entsel))))
(setq 2po (getpoint "\nУкажите центр большой шестерни : "))


(while (progn
	 (vla-rotate obj1 (vlax-3d-point 1po) (deg->rad 2.0))
	 (vla-rotate obj2 (vlax-3d-point 2po) (deg->rad -1.0))
	 t)(princ))

Файл с шестернями прилагается.
[ATTACH]1165688429.rar[/ATTACH]

[Серёга - Bilder]

:shock: ДА ТЫ КОЛДУН mmax!!!

Чесна пионерска - не ожидал что всё так просто!!!!!!!

Жаль что не в Москве - а то бы я тебя пивом отблагодарил на очередной встрече! - выручил! спасибо!

[mmax]

>>Серёга - Bilder

Не ожидал что моя идея комуто понравится -- выкладывал как шутку.
Да и не стоит обольщаться. В ЛИСПе хотя и есть все методы соответствующие командам редактирования(вращение, перемещение, зеркало) и с первого взгляда кажется, что на их основе можно написать хороший сценарий для анимации, но это будет не так легко как кажется.

Поробуйте сделать так чтобы шестерни вращались Постоянно, а вокруг происходилибы НЕпостоянные действия, хотябы одно действие. Тут вам придется помучиться.

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

Не каждый компьютер выдержит кучу длинных циклов. Можно получить сисний экран итд.

О подводных камнях можно говорить бесконечно.

[Серёга - Bilder]

Да, ужестолкнулся с этими заморочками :roll: Попробую что-нибудь изобрести... хотя что-то смутно пока всё это представляю

[mmax]

Только не стоит отчаиваться. Безвыходных ситуаций не бывает.

Для выполнения посторонних действий нужно использовать такую конструкцию:

Код:

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

(setq k T)
(setq i 0)
(setq j 0)

(while k 
(progn
  (вращение шестерней)
   (setq i (1+ i))
     (if
(and (> i 1000) (< i 1500)) (двигаем посторонний предмет) (или princ))
;на какомто этапе вращения предмет будет передвигаться и
;остановится
    (setq j (1+ j))  
     (if (> j 1000000) (setq k nil) (princ));остановка цикла
T
);progn
);while

И главное не забыть, что перемещение должно производиться на малые расстояния, тк цикл все время повторяется.

[mmax]

Получилось, оказалось не все так сложно

Код:

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

(defun c:poehali ()

(setq sh1point (list 0.0 0.0 0.0))
(setq sh2point (list 1285.8870 0.0 0.0))

(setq sh1obj
       (nth 0 (ename-or-vla-ssget-lst-samocad nil (ssget "_X" (list (cons 8 "Слой1")(cons 0 "3Dsolid"))) T)) ;библиотечная
)

(setq sh2obj
       (nth 0 (ename-or-vla-ssget-lst-samocad nil (ssget "_X" (list (cons 8 "Слой2")(cons 0 "3Dsolid")) ) T));библиотечная
)

(setq obj
       (nth 0 (ename-or-vla-ssget-lst-samocad nil (ssget "_X" (list (cons 8 "Слой3")(cons 0 "3Dsolid")) ) T));библиотечная
)

;функция вращения шестерней

(defun rotsh (angSh1 angSh2)
    (vla-rotate sh1obj (vlax-3d-point sh1point) (deg->rad-samocad angSh1);библиотечная
)
    (vla-rotate sh2obj (vlax-3d-point sh2point) (deg->rad-samocad angSh2);библиотечная
)

  )
;;;(rotsh 2.0 -1.0)

;Функция перемещения призмы
;Заслуживает стать библиотечной

(defun movepr (basepo endpo vla_obj)
  (vla-move vla_obj (vlax-3d-point basepo) (vlax-3d-point endpo))
  (princ)
  )


;начальные значения счетчиков
(setq i t)
(setq k 0)
(setq j 0)
(setq m 0)

(while i
  (progn
    (rotsh 2.0 -1.0)
    (setq k (1+ k))
    (if
      (and (> k 360) (< k 460))
      (movepr (list 0.0 0.0 0.0) (list 0.0 (setq j (+ 0.5 j)) 0.0) obj) ;t
      (princ);nil
      );if

    (if
      (and (> k 700) (< k 800))
      (movepr (list 0.0 0.0 0.0)(list (setq m (+ 0.5 m)) 0.0 0.0) obj) ;t
      (princ);nil
      );if
    (if (> k 1000)
      (setq i nil)
      (princ))
    t
    );progn
  );while

  (princ "\nПриехали")
  (princ)
  )

Нарисовал над шестернями призму.

Сценарий:
Шестерни вращаются втечении всего цикла
призма стоит
Через некоторое время призма поехала вдоль оси Y
Постояла немного и поехала вдоль оси Х
постояла немного
Шестерни остановились
Конец.

У меня объекты определяются автоматически, но я не уверен что они будут определяться у других.

Также применяются две моих бибилиотечных функции, их надо загрузить из FAS-файла, который лежит в архиве.
также в архиве находится DWG-файл для вышеуказанной программы.

Вобщем все дело в правильном оформлении счетчиков.

Не рекомендую использовать (command), хотя она здесь больше напрашивается. Долго объяснять почему, но вас будут преследовать непонятные ошибки.
[ATTACH]1165862224.rar[/ATTACH]

[Серёга - Bilder]

Чесна слова - шамаство какое-то :P
Нет никакого свободного времени сейчас разобраться во всём этом премудром, так же как и закончить начатое... Надеюсь в новогодние "каникулы" добью это дело...

Очень интересные перспективы рисуются однако... :twisted:

[mmax]

Ну вот со сценариями анимации разобрались, вот только использовать их можно только в автокаде.
хотя я слышал что есть программы снимающие фильмы с экрана.

[Серёга - Bilder]

"Фильм с экрана" - это просто...

А ты 2007-ой не пробовал? там же есть возможность по заданным маршрутам облёта виртуальной камерой - монтировать видеоролик (с отрендереными материалами и освещением). Только медленоооо...... :roll:

[mmax]

Будет сложно во время вращения шестерней облетать их камерой.
Дело в том что во время выполнения(вращения) нельзя выполнять каких либо действий, от простого щелчка мышью может все зависнуть или просто не будет никаких реакций.

Такчто камеру придется вставлять в программу-анимацию. а так как эта самая камера элемент новый и никем не изученный, всмысле операции с этой камерой из лиспа........

2007 у меня нет, жду когда появится руссская локализация :roll: (не путать с русификатором для english-версии)
Когда появится вот тогда и узнаем что за объект такой vla-IAcadКамера, какие методы к нему применимы итп. и забабахаем такую презентацию......... .

[eklmneka]

Товарищи, столько лет прошло... получилось ли у кого-нибудь заставить двигаться элементы в презентации?