Points de vue 3D avec le pavé numérique

[(gile)]

Le sujet a déjà été abordé ici ou là et des réponses avaient été données avec les raccourcis claviers ou en LISP.

Mais la lecture de ce sujet m'a donné envie d'écrire une routine plus concise.

 

10 nouvelles commandes sont créées taper :

0 puis Enter -> bas

1 puis Enter -> isométrique sud ouest

2 puis Enter -> avant

3 puis Enter -> isométrique sud est

4 puis Enter -> gauche

5 puis Enter -> haut

6 puis Enter -> droite

7 puis Enter -> isométrique nord ouest

8 puis Enter -> arrière

9 puis Enter -> isométrique nord est

 

(mapcar
 '(lambda (f v)
    (eval (list 'defun
	 f
	 nil
	 (list 'command "_.view" v)
	 '(princ)
   )
    )
  )
 '(c:0 c:1 c:2 c:3 c:4 c:5 c:6 c:7 c:8 c:9)
 '("_bottom"	"_swiso"    "_front"	"_seiso"    "_left"
   "_top"	"_right"    "_nwiso"	"_back"	    "_neiso"
  )
) 

[lili2006]

Bonsoir à toutes et tous,

 

Heu, et comment peut-on tester ?

 

Merci d'avance.

[(gile)]

Heu, et comment peut-on tester ?

 

Tu charges le LISP puis tu tapes 3 puis Entrée pour la vue isométrique SE, 5 puis Entrée pour la vue de dessus etc...

[lili2006]

Bonjour à toutes et tous,

 

C'est génial ce truc, moi qui bosse la 3D en ce moment, cet outil va pas mal m'aider.

 

Merci encore (gile).