Aller au contenu

Mon premier lisp (et petit mal au crane)


Messages recommandés

Posté(e)

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

Posté(e)

Une astuce (parmi d'autres) :

 

(/(fix(* 100.0 15.235646464))100.0)

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Posté(e)

Merci Tramber pour ta réponse

Mais 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

Posté(e)

(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

 

./__\.
(.°=°.)
Posté(e)

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

Posté(e)

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

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 compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité