Nux

Bonjour, Effectivement, je débute en lisp. Pour la question du réseau le modifier comme ceux ci : (setq Rtyp (getint "Select. reseau 1:CFO 2:Cfa 3:EP 4:EU")) (cond ((= Rtyp 1) (command "-calque" "ch" "CFO" "")) ((= Rtyp 2) (command "-calque" "ch" "Cfa" "")) ((= Rtyp 3) (command "-calque" "ch" "EP" "")) ((= Rtyp 4) (command "-calque" "ch" "EU" "")) ((< Rtyp 4) ("Entrez une valeur entre 1 et 4)) ) Je sais pas si il existe une sorte de goto en lisp pour permettre de revenir au début de la question si la valeur entrée n'est pas comprise en 1 et 4. Concernant les calques j’utilise le lisp avec un gabarit, le programme ne peut donc marcher qu'avec mon gabarit, sauf si on créer les calques avant de lancer la commande. Pour la reconnaissance de la commande "polylign", je me demandais, j'ai développé ce lisp avec les commandes en français, mais si je veut le lancer sur une version d'autocad en anglais ou en espagnol, existe t-il un moyen de rendre ce lisp "universel" ? Je visiterais ton site avec plaisir. :)

Bonjour, oui je suis désolé j'avais pas joint le code. le voici : (defun c:testz() (setq ini(getvar "osmode")) (setvar "osmode" 0) (setq Rtyp (getint "Select. reseau 1:CFO 2:Cfa 3:EP 4:EU")) (cond ((= Rtyp 1) (command "-calque" "ch" "CFO" "")) ((= Rtyp 2) (command "-calque" "ch" "Cfa" "")) ((= Rtyp 3) (command "-calque" "ch" "EP" "")) ((= Rtyp 4) (command "-calque" "ch" "EU" "")) ) (setq P1 (getpoint " Premier point")) (command "polylign" P1 (while P1 (setq P1(getpoint " Nouveau point ou appuyer sur entrer pour finir")) (command P1) )) (command "aire" "o" "d") (setq lrsx (getvar "perimeter")) (setq lrsx (rtos lrsx 2 2)) (setq ptexte (getpoint " insérer la longeur du reseau \n")) (command "-texte" ptexte 0.5 "" lrsx) (command "-calque" "ch" "0" "") (setvar "osmode" ini) ) J'ai modifié la valeur de luprec à 4 mais rien n'y a fait. j'ai finalement utilisé RTOS comme Didier me l'avez conseillé. Cela marche à merveille. Merci beaucoup pour votre aide

Bonjour, J'ai créer un lisp me permettant de tracer des polylignes et d'inscrire leur surface ou leur longueur dans un bloc avec attribut. Le programme est fonctionnel, mais le nombre de chiffres après la virgule déborde en dehors du bloc. J'ai fait quelques recherches, mais les résultats ne correspondent pas tout à fait à mon problème. J'ai regardé dans la fenêtre "unités" d'autocad, fait des car/cdr en lisp pour essayer de supprimer les chiffres en trop, mais je n'ai pas réussi. Pourriez vous m'aider ? En vous remerciant par avance.