EmarceL

Bonjour, je fais des petites routines lisp depuis quelques temps deja, mais "à l'ancienne" et je vois bien que je vais pas tarder à etre déborder car je ne comprends pas grand chose au (VL truc. Est ce que quelqu'un pourrait me transcrire ce petit lisp ci-dessous afin que je commence à mettre les mains dedans. D'avance merci. ;; ========================= ISO: creer une vue iso d'un plan =================================;; ;; Iso (Eric MARCEL @ TECKNING) ;; Création d'une vue iso à partir des éléments sélectionnés. (defun c:ISO (/ angi nombloc);;entites pdb ang angi nombloc pdi ) (princ "\n VUE EN PLAN ----> VUE ISO") (setvar "cmdecho" 0) (if a (setq a a) (setq a 0)) (if b (setq b B) (setq b 0)) (if c (setq c c) (setq c 0)) (if d (setq d d) (setq d 0)) (command "-purger" "b" "DVN" "N") (setq entites (ssget)) (setq pdb (getpoint "\nPoint d'insertion: ")) (setq pdi(strcat(rtos(car pdb)) "," (rtos(cadr pdb)))) (setq ang (getstring "\nPoint de vue iso [sO] [NO] [NE] [sE]: ")) (cond ((= ang "SO") (setq angi 45.0 a (1+ a) i a)) ((= ang "so") (setq angi 45.0 a (1+ a) i a)) ((= ang "NO") (setq angi 135.0 b (1+ B) i B)) ((= ang "no") (setq angi 135.0 b (1+ B) i B)) ((= ang "NE") (setq angi 225.0 c (1+ c) i c)) ((= ang "ne") (setq angi 225.0 c (1+ c) i c)) ((= ang "SE") (setq angi 315.0 d (1+ d) i d)) ((= ang "se") (setq angi 315.0 d (1+ d) i d)) ) (princ) (if ( = ang "") (setq ang "SE" d (1+ d) i d angi 315.0 ) ) (command "_copy" entites "" pdi "@") (command "-bloc" "DVN" pdi entites "") (command "-inserer" "DVN" pdi "1" "1" angi) (command "decompos" "D" ) (command "-purger" "b" "DVN" "N") (command "-bloc" "DVN" pdi "p" "") (command "-inserer" "DVN" pause "1" "0.5774" "0") (setq nombloc (strcat "Iso_"(strcat (strcase ang )"-"(itoa i)))) (while (tblsearch "BLOCK" nombloc ) (progn (setq i (1+ i)) (setq nombloc (strcat "Iso_"(strcat (strcase ang )"-"(itoa i)))) ) () ) (command "-renommer" "b" "DVN" nombloc) (prompt (strcat "bloc " nombloc " créé ! © TECKNING")) (princ) ) ;; =====================================================================================