Sylvain62

merci beaucoup pour ta reponce si rapide CA MARCHE :) :) :) cool !

bonjour, j'ai un pb ds l'inscription du resultat le calcul de la variable fe fonctionne bien mais j'ai un pb lors de la création de la chaine de caractère pour ecrire le resultat sur autocad ci-joint le programme merci d'avance S.SERGENT (defun c:fe () ;remise à zero des valiable (setq pti nil) (setq pti1 nil) (setq resul nil) (setq fe nil) (setq fe2 nil) (setq p1 nil) (setq p2 nil) (setq p3 nil) (setq p4 nil) (setq d nil) (setq d1 nil) (setq rep nil) (setq p nil) ;saisie des valiable et des coordonnés (setq fe1 (getdist "\n fe initial [cm] : ")) (setq pti (getpoint "\n cliquer le 1er point ")) (setq p1 (getpoint pti "\n point suivant ")) (setq d (distance pti p1)) (while (/= rep "") (initget "S F") (setq rep (getkword "\n : ")) (if (= rep "F") (setq rep "") ) (if (= rep "S") (progn (setq p2 p1) (setq p1 (getpoint p2 "\n point suivant ")) (setq d1 (distance p1 p2)) (setq d (+ d d1)) ) ) ) (setq p (getdist "\n valeur de la pente [%] : ")) (setq d (* d (/ p 100))) ;calcul du fe (setq fe (- fe1 d)) ;affiche fe (setq fe (abs fe)) (setq fe2 (itoa fe)) (setq pti1 (getpoint "\n point d'insertion du texte : ")) (setq resul (strcat "Fe= " fe2)) (command "_.text" "J" "BC" pti1 12 0 (princ resul)) ) :casstet:

bonjour a tous, j'ai realiser une barre outil avec des bouton commande faisabt apeller a des petit prg lisp mais je n'arrive pas à l'export sur un autre poste. j'ai un peu de mal avec autoCAD 2006 et l'interface utilisateur je vous remerciant par avance sincères salutations S.SERGENT dessinateur-projeteur en batiment