Bred

merci (gile) ... (encore !!!) ... je sentais qu'en vla c'était possible.... mais je ne faisais que le sentir !!! ...

Salut, Quelqu'un connaitrait-il une variable pour connaitre le nombre de plans ouvert en même temps dans Autocad ??? merci

Donc on recommence les merci : Concernant le message d'erreur, je pense qu'il faut que je m'y penche un peu plus, parceque je pensais que c'était ces messages qui faisait enclenché la routine de gestion d'erreurs (restauration variable et autre...) et que l'on créé donc dans le lisp principal une gestion des erreurs "perso" qui remplaçait celle d'autocad par défaut (d'où mon (setq Sauv_EXerror *error* *error* Gestion_erreur) ... je pense que je n'ai pas dû comprendre ... Par contre pour la restauration du SCU, j'avais fait ce que tu proposes, mais comme je dois avoir un souci dans ma routine de gestion d'erreur principal, il ne me prenais pas à tout les coups le (command "scu" "_del" "scu_init"), ce qui me créé une erreur si je relançais le lisp, vu que lorsque je fait un (command "_ucs" "_save" "scu_init"), il me le refuse vu que "scu_init" existe déjà ... mais je pense que lorsque j'aurais mis au point (et vraiment compris) la remarque précedente, ce problème ne se poseras plus... merci en tout cas... je fairais suivre mes progrés ...

... je ne savais pas que l'on pouvais appeler la dernières commandes par menu contextuel... perso j'utilise le click droit en "valider", ce qui rappel la dernière commande, ou si je veux rappeler une ancienne frappe, j'utilise la "flèche haute" (si INPUTHISTORYMODE à 2 ... d'office à 15 depuis la 2006 (y'a un sujet la dessus je crois)...

Ha!... c'est sûr que vu comme ça c'est "sympa" : enregistrer et modifier dans la même étape permet de se "reposer" sur la routine ... je n'y avais pas penser, et c'est exactement le genre de "simplification" qui m'interesse... [surligneur] merci n°1[/surligneur] En effet je n'avais pas retourner les valeurs des variables si réussi (vu que je testais les erreurs, j'avais fait abstraction du programme réussi... pas trés malin de ma part...) ... [surligneur] merci n°2[/surligneur] et maintenant 2 soucis suplémentaires : Je ne suis pas tranquiliser dans mon choix de "message d'erreur" ... j'ai essayé de le faire fonctionner pour un escape ou un quit (lisp), mais j'ai un doute sur la manière dont la gestion d'erreur réagis en cas d'erreur de "données de programmes" (une erreur du lisp)... ... De plus je n'arrive pas à mettre la main sur une variable me permettant d'enregistrer le SCU actif (si il est modifié pendant le lisp) ... j'ai testé avec des enregistrement de SCU, mais ma gestion d'erreur ne le prend pas en compte ... merci merci...

Je "rebondis" sur le sujet : Qui trouves une utilité à la saisie dynamique ??? ... moi, perso, je prefère voir ce que je tape sur la ligne de commande, plutôt que "chercher" ou est le pointeur pour vérifier ce que je tape ... ... non ??? ...

Salut, En essayant de comprendre le fonctionnement des gestions d'erreurs, et en essayant d'en simplifier l'utilisation, je suis arrivé à ça, et j'aurais aimé que vous me donniez votre avis avant de continuer dans mes test ... (je sais que des routines sont proposés dans ce site pour la gestion d'erreur (par exemple celle de (gile)), mais j'avais commencé à bosser dessus avant et ça me permet d'aprendre...) ;;; Routine de Sauvegarde des variables à sauver (defun Sauv-var (listevar / num list1) (setq list_var_sauv nil num 0) (repeat (length listevar) (setq list1 (list (cons (nth (+ 0 num) listevar)(getvar (nth (+ 0 num) listevar))))) (setq num (+ num 1)) (setq list_var_sauv (append list_var_sauv list1)) ) ) ;;; Routine Gestion d'un message d'erreur (defun Gestion_erreur (msg) (if (or (= msg "Fonction annulée") (= msg "Function cancelled") (= msg "quitter / sortir abandon") (= msg "quit / exit abort")) (progn (setq num 0) (repeat (length list_var_sauv) (setvar (car (nth num list_var_sauv))(cdr (nth num list_var_sauv))) (setq num (+ num 1)))) ) (setq *error* Sauv_EXerror) ) ;;; DANS PROGRAMME -- (defun c:EXEMPLE () (setq Sauv_EXerror *error* *error* Gestion_erreur) (Sauv-var '("orthomode" "cmdecho" "pickfirst" "zoomfactor" "AFLAGS")) (...PROGRAMME...) (setq *error* Sauv_EXerror) ) ... la liste de variable c'est n'importe quoi pour les tests ... merci d'avance.

Salut, Personnellement, j'utilise l'Editeur VL d'Autocad que je trouve trés simple et trés bien ...

Salut, Comme le dit bonuscad, le test n'a pas l'air d'être trés fiable en fait, car j'ai chaque fois des valeurs différentes... mais avec une majorité de temps minimum en division... :exclam: Je vais donc être obligé de faire face à mes responsabilité en perdant la face devant mon collègue... tant pis pour moi... :mad2: ... snif ! ...

Salut à tous, suite à une discussion avec un collègue qui m'affirmait qu'en programmation il est préférable de diviser par 2 que de multiplier par 0.5, j'ai fait un petit test grâce à la routine "chronomètre" de (gile) (merci à lui encore)... donc : (defun get-utime () (* 86400 (getvar "tdusrtimer")) ) (defun c:testm () (setq t0 (get-utime)) (setq a 2) (repeat 1000000 (setq b (* a 0.5))) (setq t1 (get-utime)) (princ (strcat "\n; Temps: " (rtos (- t1 t0)) " sec")) (princ) ) (defun c:testd () (setq t0 (get-utime)) (setq a 2) (repeat 1000000 (setq b (/ a 2))) (setq t1 (get-utime)) (princ (strcat "\n; Temps: " (rtos (- t1 t0)) " sec")) (princ) ) He bien, faites le test : pour testm (multiplier) : 1.71 sec. pour testd (diviser) : 2.35 sec .... Donc, en fait il vaut mieux multiplier par 0.5 que diviser par 2 ...

merci.

Salut, La variable "TDUSRTIMER" représente quoi ? (l'aide n'est pas trés clair la dessus...) merci

Rien à voir... va voir là : http:// http://www.langue-fr.net/index/A/au_temps-autant.htm intérréssant, hein ???

merci (gile)... c'est bon à savoir (et je pense que j'ai dû déjà le rencontrer, et je me suis énervé parceque ça ne marchait pas...)

Merci à vous deux pour vos explication. bonuscad : je comprend le fonctionnement de donner une tolérance, mais ce n'est que pour l'affichage en ligne de commande, non ?, parceque personnelement, plus je suis "juste" dans mes variables, mieux je me sens, et donc avoir un variable avec une multitude de chiffre après la virgule me permet d'être on ne peu plus juste dans les données rentrés (ici ma hauteur...) Tramber : ça faisais longtemp que tu ne t'étais plus occupé de répondre à mes souci... ça fait plaisir !!! J'ai testé ta routine, et elle me permet trés bien de comprendre mon interrogation précedente, et je ne connaissais pas la "valeur de retour"... ça me plait bien ... merci

Salut eturlin à dit : ??? ... là je ne crois pas : si tu as des solides 3D à une hauteur Z différente, que tu te met en vue de dessus, et que tu fais un déplacer de extremité à extrémité, les objets s'accroche... (à l'extrémité attrapé prés) ... à moins que mon AutoCAD sois configuré pour travailler comme ça, mais je ne vois pas comment...

Super, merci, les premiers test semble fonctionner ... par contre ton "fuzz" m'echappe ... l'aide en parle en anglais et perso je suis assez mal pourvu en langues... ça à l'air d'un argument de niveau d'aproximation ou je n'ai vraiment rien compris ??? De plus, dans ton lisp le h à la fin m'échappe ... ou alors c'est un raccourci de (print h) ??? merci encore ...

... eh ben non !!! ... merci mais ça ne me va pas : getdist me permet de rentrer une distance clavier OU 2 points ... et je veux garder ces possibilités (surtout de pouvoir rentrer une distance clavier) ... Mais au cas ou la distance est calculé grâce au choix de 2points, je veux récupérer le dernier point cliquer pour le traiter ...

Bonjour, Je n'arrive pas à récupérer le dernier point cliquer après la demande de getdist (si on donne la distance en cliquant s'entend) : (setq H (getdist "\n Hauteur :)) (setq pt (getvar "LASTPOINT")) ... ne marche pas ... et je ne vois pas pourquoi .... merci

... bizarre... si tu accroches en visualisation 2D 2 solides, tu devrais les trouver en contact... D'experience, le mode d'accrochage le plus efficace est "extremité", mais ceci ne répond pas à ta question... Arrives-tu à les accrocher en visualisation 3D ???

Salut. C'est pas formidable comme solution, et t'as dû déjà y penser, mais tu n'as qu'à changer d'échelle ....

... ça m'a fait bien rigoler ça !!!

Merci Concernant la distance donnée au clavier, j'ai trouvé l'astuce : je met l'origine au point de base. (defun c:cx ( / sel sauv-sel pA e_next) (princ "\nObjets à copier répétitivement dans le sens des X") (setq sel (ssget)) (setvar "CMDECHO" 0) (setq sauv-sel (entlast)) (initget 1) (setq pA (getpoint "\nSpécifiez le point de base : ")) (while pA (command "_ucs" "_o" pA) (setq pA (list 0 0 0)) (command "_.copy" sel "" pA ".yz" "@" pause) (if (equal pA (getvar "LASTPOINT")) (setq pA nil) (progn (setq pA (list (car (getvar "LASTPOINT")) (cadr pA) (caddr pA)) sel (ssadd)) (while (setq e_next (entnext sauv-sel)) (setq sel (ssadd e_next sel) sauv-sel e_next) ) ) ) ) (command "_.u") (setvar "CMDECHO" 1) (prin1) ) ... par contre il ne repere pas le sens du curseur pour les + ou -, mais ça me va comme ça. Concernant ta correction, je vais revoir ça... encore merci pour tout.

... après quelque test j'ai un petit souci avec l'entrée au clavier d'une distance au lieu d'un point, mais il doit y avoir une solution ... Par contre je ne comprend pas la commande "entnext" (aide en anglais... malheur à moi) si quelqu'un pourrait m'éclaircir ... merci

... ça n'est pas une voie, c'est un (une) Autoroute !!! C'est exactement ça... en mieux !!! je vais décortiquer ton code avec plaisir! merci à tous en tout cas !!!