farfar974123 Posté(e) le 29 mai 2009 Posté(e) le 29 mai 2009 Bonjour a tous!! Depuis hier je me lance dans la création de mon premier lisp. Il s'agit d'un petit programme qui à pour but de récupérer l'altitude d'un point topo, lui soustraire une distance et d'afficher le résultat à l'écran dans un texte. Je suis arrivé à sa ( sa marche,mais sa casse pas trois pattes à un canard, mais c le premier...) : (defun c:test() (setq r(getpoint"\nchoisisser un point : ")) (setq z(caddr r)) (setq mes(getreal"\nhauteur mesurée : ")) (setq fe(- z mes)) (setq p(getpoint"\nPosition du texte ")) (command "texte" p 100 fe"") ) Pour l'instant mon soucis c kil m'écris le nombre avec 10 chiffres aprés la virgule et il ne m'en faudrait que deux. Merci de me donner un petit coup de pouce. A+ Imposer sa volonté aux autres, c'est force. Se l'imposer à soi-même, c'est force supérieure.Lao-Tseu
Tramber Posté(e) le 29 mai 2009 Posté(e) le 29 mai 2009 Une astuce (parmi d'autres) : (/(fix(* 100.0 15.235646464))100.0) Bureau d'études dessin. Spécialiste Escaliers Développement - Formation ./__\. (.°=°.)
farfar974123 Posté(e) le 29 mai 2009 Auteur Posté(e) le 29 mai 2009 Merci Tramber pour ta réponseMais je me rend compte que ce n' était pas le nombre de zero mon problème mais l'affichage de ma variable fe. Donc mon fichier corrigé : (defun c:test() (setq r(getpoint"\nchoisisser un point : ")) (setq z(caddr r)) (setq mes(getreal"\nhauteur mesurée : ")) (setq fe(- z mes)) (setq p(getpoint"\nPosition du texte ")) (command "texte" p 100 (rtos fe)"") (princ) ) Par contre à la fin du programme il me met un message du genre "Commande inconnue "TEST". Appuyez sur F1 pour obtenir de l'aide." Si quelqu'un peut m'expliquer pourquoi! Merci et A+ Imposer sa volonté aux autres, c'est force. Se l'imposer à soi-même, c'est force supérieure.Lao-Tseu
Tramber Posté(e) le 29 mai 2009 Posté(e) le 29 mai 2009 (command "texte" p 100 0 (rtos fe)) est correct. T'as oublié la rotation du texte Bureau d'études dessin. Spécialiste Escaliers Développement - Formation ./__\. (.°=°.)
bonuscad Posté(e) le 29 mai 2009 Posté(e) le 29 mai 2009 Par contre à la fin du programme il me met un message du genre "Commande inconnue "TEST". (command "texte" p 100 (rtos fe)"")Le "" est en trop en fin de ligne. Il fait un retour chariot et relance la dernière commande (ici TEST) Une remarque qui peut avoir son importance: Ta ligne commande et valable que si ton style de texte a une hauteur fixe. Si la hauteur est libre la commande n'est plus appropriée. Choisissez un travail que vous aimez et vous n'aurez pas à travailler un seul jour de votre vie. - Confucius
farfar974123 Posté(e) le 29 mai 2009 Auteur Posté(e) le 29 mai 2009 Merci à vous deux. La remarque de bonuscad est pertinente. Je vais essayer de l'intégrer dans la version 1.1 de mon petio.La prochaine étape est d'y ajouter un cadre et une flèche de rabattement, plus quelques autres infos. . Mais bon j'y vais pas à pas. En tout cas merci de vos réponses. et vive CADXP !!! ;) Imposer sa volonté aux autres, c'est force. Se l'imposer à soi-même, c'est force supérieure.Lao-Tseu
Messages recommandés
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 compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant