animation 3D sous 2004

[chrchat]

Voila, apres realisation de plan en 3d, je voudrais faire une petite animation genre deplacement de camera.

 

Que me conseiller vous car autocad ne gere pas les animations et mon besoin est assez urgent.

[thierryd]

tu peux faire un rendu de ton projet 3d dans un fichier image et recommencer autant de fois que nécessaire en utilisant 3d orbite à chaque fois

et ensuite utiliser movie maker sur windows xp pour assembler les images

 

en dehors de ça, je ne vois pas

 

[Eric]

bonjour

 

Pour faire de jolies rendus et des animations genre déplacement de caméra il y a Autodesk VIZ.

 

Bon c'est vrai cela demande un peu de pratique pour le maîtriser mais tu peux toujours demander un version d'essai à ton revendeur.

 

A plus

 

Eric

 

[Virgile_69]

Bonjour,

Il y a quelque mois je m'etais interresse aux animations 3D et pour commencer j'avais fait un sript qui permettait d'avoir l'objet en rendu qui tournait sur lui même puis j'assemblai les images bmp sous Radtools.

Probleme traitement hyper long 1image par degres de rotation 1 heures de traitement pour 10 secondes de vidéo mais elle est superbe.

 

[Tramber]

Un script, bouges pas, je cherche le lien.

[Tramber]

Voir ici.

 

C'est déjà ca.

[Virgile_69]

Bonjour

En réalité je couple le lisp au script c'est à dire que le programme ecrit un script pour chaque animation.Les images sont ici en JPG car en BMP cela rempli rapidement le disque dur.

puis je lance le script et je compile les images en fichier video

Pour l'animation avec les fichier image j'ai telecharge BINK sur www.radgametools.com

 

(defun c:VCvisio ()

(setq IniBlip (getvar "BLIPMODE"))

(setq IniOsmo (getvar "OSMODE"))

(setq ini_cmde (getvar "CMDECHO"))

(setq ini_ortho (getvar "ORTHOMODE"))

(setvar "OSMODE" 0)

(setvar "BLIPMODE" 0)

(setvar "CMDECHO" 0)

(setvar "ORTHOMODE" 0)

(setq VCVISIO_file nil)

(setq Lca (getreal "\n Entrez la distance de la cible: "))

(setq Hca (getreal "\n Entrez la hauteur de la camera: "))

(setq Lci (getpoint "\n Entrez la cible: "))

(setq XLci (rtos (car Lci) 2 0)

YLci (rtos (cadr Lci) 2 0)

ZLci (rtos (caddr Lci) 2 0)

)

(setq Lci (strcat XLci "," YLci "," ZLci))

(setq Hca (rtos Hca 2 0))

(setq i 1)

(setq file_path (getvar "DWGPREFIX"))

(setq file_name (vl-filename-base (getvar "DWGNAME")))

(setq data_file (strcat file_path file_name ".scr"))

(setq VCVISIO_file (open data_file "w"))

(write-line "OSMODE" VCVISIO_file)

(write-line "0" VCVISIO_file)

(write-line "FILEDIA" VCVISIO_file)

(write-line "0" VCVISIO_file)

(while (/= i (1+ 360))

(progn

(setq irad (/ (* i PI) 180))

(setq Xi (rtos (* Lca (cos irad)) 2 0))

(setq Yi (rtos (* Lca (sin irad)) 2 0))

(setq Pca (strcat Xi "," Yi "," Hca))

(setq chemin-BMP (strcat "c:\\Rendu-ACAD\\image_" (rtos (+ i 100) 2 0)))

(write-line "_camera" VCVISIO_file)

(write-line Pca VCVISIO_file)

(write-line Lci VCVISIO_file)

(write-line "_jpgout" VCVISIO_file)

(write-line chemin-BMP VCVISIO_file)

(write-line "_all" VCVISIO_file)

(write-line "" VCVISIO_file)

(setq i (1+ i))

)

)

(write-line "FILEDIA" VCVISIO_file)

(write-line "1" VCVISIO_file)

(close VCVISIO_file)

(setvar "FILEDIA" 1)

(setvar "CMDECHO" ini_cmde)

(setvar "ORTHOMODE" ini_ortho)

(if (or (= ini_osnap nil) (= ini_osnap 0))

(setvar "OSMODE" 5223)

(setvar "OSMODE" ini_osnap)

)

(setvar "BLIPMODE" IniBlip)

)

 

 

 

Ce qui serait bien de rajouter c'est a la fin du prog la commande pour lancer le script de suite.

 

[Martial]

Autodesk Architectural Desktop sait faire ça

pas trés bien d'accord , mais c'est toujours ça ! et puis dans l'urgence

 

Martial