Aller au contenu

Messages recommandés

Posté(e)

Salut,

Y aurait-t'il quelqu'un qui ce serait déjà penché sur la création d'une caméra en v-lisp (ou par entmake) ?

Attention!

"CAMERA" version 2007 : avec délimitations, etc.... !

 

merci d'avance.

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Invité ingoenius
Posté(e)

je sais pas en Vlisp, mais en autolisp j'avais fait celui ci il y a quelque temps peut etre il te serà utile??

 

(defun C:cams ()

(setq Cam1 (getpoint "\nPosition camera? "))
(setq CamZ (getreal "\nHauteur du sol? "))
(setq Lens (getreal "\nTaille Optique mm? "))

(setq Camx (car Cam1))
(setq Camy (cadr Cam1))
(setq CAM_pos(list Camx Camy CamZ))  

(setq Cible1 (getpoint "\nCible? "))
(setq CibZ (getreal "\nHauteur du sol cible? "))

(setq Cibx (car Cible1))
(setq Ciby (cadr Cible1))
(setq Cible_pos(list Cibx Ciby CibZ))  

(command "iconescu" "IN" "" )
(command "_.dview" "_all" "" "_points" cible_pos CAM_pos "_distance" ""  "Z" Lens "" )
(command "_view" "sa" "vista_camera");salva la vista col nome   
)

;----------------------------------------------------------
;---da usare dopo il comndo cams per modificare l'ottica della telecamera---------------------
;---a utiliser apres la commande cams pour modifier ka taille del'optique ---------------------

(defun C:lens ()

(setq Lens (getreal "\nTaille Optique mm? "))



(command "iconescu" "IN" "" )
(command "_.dview" "_all" "" "_points" "" "" "_distance" ""  "Z" Lens "" )
(command "_view" "sa" "vista_camera");salva la vista col nome   
)

Posté(e)

Merci !

... mais c'ets justement pour éviter de le faire en autolisp....

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité