Damdamdéo

tu pose la question avec la variable Niv_sup (setq Niv_sup (getreal "\n donner le Niv de l'arase sup semelle (m): ")) Il est très difficile de prendre un programme d'une personne pour l'adapter ensuite comme les variables sont propres au programmeur. J'ai fait également un bout de programme dans le même principe. OU le deuxième niveau est calculer par rapport au 1er Niv. ;;;;;calcul des niveau semelle;;;;; ;(setq accrochage (getvar "osmode")) ;(setvar "osmode" 0) (setvar "ATTREQ" 1) (setvar "ATTDIA" 0) (setvar "DIMZIN" 1) (setq pt20 (polar pt08 (/ pi) 50)) ; défini le point haut du Niv (setq pt21 (polar pt01 (/ pi) 50)) ; défini le point bas du Niv (setq pt22 (polar pt20 (/ pi ) 42)) (setq pt23 (polar pt21 (/ pi) 42)) (command "inserer" "Niv" pt20 1 1 0 long "") ; inserer bloc (command "inserer" "Niv" pt21 1 1 0 long "") (setq Pttext_Niv_sup (polar pt22 (/ pi 2) 18)) ; défini le point du text (setq Niv (rtos Niv_sup 2 2)) ; réatribue les données de la variable Niv_sup à Niv; itoa permet de retransrire la valeur entière du réel (setq texte_Niv_sup (strcat Niv)) ; défini le texte au point (command "couleur" "5") ; changer couleur (command "texte" Pttext_Niv_sup 8 0 texte_Niv_sup) ; lance la command texte (command "couleur" "DuCalque") ; revient calque initiale (setq long_delta_arase (* (distance pt08 pt01) 0.01)) ; définition automatique du Niv inf. semelle (setq Niv_inf (- Niv_sup long_delta_arase)) (setq Pttext_Niv_inf (polar pt23 (/ pi 2) 18)) ;(setq Nivbis (rtos Niv_inf 2 0)) (setq Nivbis (rtos Niv_inf 2 2)) (setq texte_Niv_inf (strcat Nivbis)) (command "couleur" "5") (command "texte" Pttext_Niv_inf 8 0 texte_Niv_inf) (command "couleur" "DuCalque") jète y un coup d'œil.