LISP programme pour calculer une aire "help"

Fermé

jp - 24 avril 2012 à 19:07
jp - 26 avril 2012 à 13:33

Bonjour,
Je cherche à créer un programme me permettant de calculer une surface
mais j'ai un bug
j'ai une boucle sans fin
je ne fais que renseigné le point pt0
j'aimerai que lorsque j'ai fini de renseigné les points taper "Fin" ou " F"
pour ensuite passe à

(command "-contour" ptext "")
(command "aire" "o" "@")
(setq index (strcat "S="(rtod (getvar "aera") 2 2) "m²"))
(command "texte" ptext 0.5 "" index "")

(defun c:ZoneStock()
(setvar "osmode" 0)
(Prompt "\nCliquer le contour de l'aire de stockage")
(setq pt0(getpoint "\nDonner le 1er point:"))
(command "polylign" pt0 "la" 0 0)
(terpri)(setq rep "F"); on saute une ligne
(while (or ( = rep "F") ( = rep "FIN"))
(setq pt (getpoint "\nCliquer le contour de la zone(Return pour FIN): "))
(command pt)
)
(setq ptext (getpoint "\nSpécifier un point intérieur:"))
(command "-contour" ptext "")
(command "aire" "o" "@")
(setq index (strcat "S="(rtod (getvar "aera") 2 2) "m²"))
(command "texte" ptext 0.5 "" index "")

)

A voir également:

LISP programme pour calculer une aire "help"
Calculer une moyenne sur excel - Guide
Programme demarrage windows 10 - Guide
Programme démarrage windows 10 - Guide
Comment calculer une note sur 20 ✓ - Forum Bureautique
Virginie organise un rallye avec 30 équipes. elle veut créer un code pour désigner chaque équipe. elle a commencé à la main, mais elle voudrait le faire calculer à l'aide d'une formule. proposez une formule comportant une seule fonction et à recopier vers le bas dans la colonne a du fichier à télécharger. quelle formule sera en a9 ? ✓ - Forum Programmation

1 réponse

Réponse 1 / 1

Yoda
24 avril 2012 à 20:10

Bonjour,

Corrections avec quelques modifs

(defun c:ZoneStock() 
(setvar "osmode" 0) 
(Prompt "\nCliquer le contour de l'aire de stockage") 
(setq pt0(getpoint "\nDonner le 1er point:")) 
(command "polylign" pt0 "la" 0 0) 
(terpri)(setq rep "F"); on saute une ligne 
(while (= rep "F")
   (setq pt (getpoint pt0 "\nCliquer le contour de la zone(Return pour FIN): ")) 
   (command pt)
   (setq pt0 pt)
   (if (= pt nil) (setq rep "X")) 
)
(command "pedit" "@" "c" "") 
(setq ptext (getpoint "\nSpécifier un point intérieur:")) 
;(command "-contour" ptext "") 
(command "aire" "o" "@") 
(setq index (strcat "S="(rtos (getvar "area") 2 2) "m²")) 
(command "texte" ptext 0.5 "" index) 
)

A+ ;)

jp
26 avril 2012 à 13:33

Merci impec

Discussions similaires

programme qui n'affiche pas le mot secret

Convertir une note sur 20 .

exo pix

Pourquoi Program files (x86) et Programmes?

TV LG affiche le carré non programmé

Discussions similaires

Newsletters