Bred

Salut, merci (gile) pour ta réponse merci Patrick_35 pour ta participation, mais tu ne dois pas faire la bonne manip.... Je suis obligé d'utiliser une gestion d'erreur dans mon lisp initial car je change des variables qui doivent être absolument remisent en l'état... sans parler du résultat....

Salut, J'ai un souci sur un type d'erreur que je n'arrive pas à gérer : une "saisie de la boucle d'arrêt clavier"... Voici un lisp test (le gestion d'erreur est inutile, et le lisp pas performant, mais c'est pour l'exemple....) (defun c:ttt (/ I SS) (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) ;Gestion d'erreur (defun err-ttt (msg) (if (or (= msg "Fonction annulée")(= msg "Function cancelled") (= msg "quitter / sortir abandon")(= msg "quit / exit abort")) (princ) (princ (strcat "\nErreur: " msg))) (princ "\n OK !!!") (setq *error* *error-Acad* *error-Acad* nil) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) (princ) ) ; Chargement Gestion d'erreur (setq *error-Acad* *error* *error* err-ttt) (setq ss (ssget)) (repeat (setq i (sslength ss)) (vla-put-color (vlax-ename->vla-object (ssname ss (setq i (1- i)))) 2) ) (setq *error* *error-Acad* *error-Acad* nil) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) (princ) ) ... Le but est de créer une erreur avant que la commande se termine, donc lancer le lisp en sélectionnant 4000 lignes par exemple.... Si vous faites un "Escape" avant la fin de la commande, la gestion d'erreur ne se lance pas, et donc elle n'est pas réinitialisé ! (taper "!*error* dans la ligne de commande après, vous devrez avoir ... étant "ma" gestion d'erreur... plus celle d'Acad !!!! ... Vous faites comment ???? merci ! [Edité le 8/2/2008 par Bred]

Salut, Depuis plusieurs semaine j'arrive que trés rarement à avoir CADxp... ce n'est que chez moi ???

Salut, et bienvenue ! Certainement tes hachures ont étéréalisé en Couleur RGB. Passe-les en ACI, le problème devrais se résoudre.

Salut, Tes points sont sous quelle forme ? (bloc avec ou sans attribut, texte, point seul, ...)

Salut, Pourquoi, plus simplement, ne pas te créer ta propre table de style de tracé, en changeant la couleur d'impression par couleur de calque ?

Salut, Peut-être Affichage habituel en Bi-Ecran ? La Boite de dialogue s'affiche sur l'autre écran...

Dans le même genre, mais le contraire (si je me rappel bien, de mémoire) :

Ben je suis désolé, je n'ai pas. Cela doit être spécifique au lt...

Salut, et bienvenue ! Je n'ai jamais eu de 2002 (2000 oui, 2004 oui...) Alors soit c'est un menu qui est apparu puis disparus après, soit j'ai mes Autocad qui me l'on toujours caché, ce menu !!!.... ;) Tu es sûr de ton vocabulaire ?

Salut, Je pense que ceci Ne peux fonctionner DANS une commande, car la commande est toujours active, donc ne valideras pas... Test ça : (defun C:COA (/ cot-B cot-esp) (while (not cot-B) (setq cot-B (car (entsel "\nSélectionnez la cote de base:"))) (if cot-B (if (not (equal (cdr (assoc 0 (entget cot-B))) "DIMENSION")) (setq cot-B nil)))) (prompt "\nSélectionnez les cotes à espacer:") (setq cot-esp (ssget '((0 . "DIMENSION")))) (vl-cmdf "_DIMSPACE" cot-B cot-esp "" "0") (princ) )

Ah ben tiens, c'est gratifiant : le grand Bonuscad qui cite un code que j'ai fait ! C'est vraiment agréable !!!... ;) En fait le lien que je donne dans mon message précedent est le code original (page 2, réponse 12) que j'avais fait pour mon chère pote Pieroka... Donc : Tu pourrais être plus explicite, afin que je le corrige... (si possible)...

Salut, trouvé là au sujet du SP2 de Civil 3D 2008 : ... va falloir attendre le SP2 de AutoCAD 08 ???

Tu es vraiment sous 2008 ??? :casstet: sinon rajoute en début de lisp (vl-load-com)

Salut, ton lien ne fonctionne pas. C'est de ce post dont tu parles ?

... ou un petit lisp : (defun c:lg-pol (/ LG SEL X) (setq lg 0) (while (not sel) (setq sel (ssget '((0 . "LWPOLYLINE")))) ) (repeat (setq x (sslength sel)) (setq lg (+ lg (vla-get-Length (vlax-ename->vla-object (ssname sel (setq x (1- x))))))) ) (alert (strcat "Longueur :" (rtos lg) " .")) (princ) ) [Edité le 9/1/2008 par Bred]

Salut, dans la commande "_area", tu as les options "Addition", puis "Objet".

Pour ta commande quelle est-elle en anglais? "_PLOTSTAMP"

Salut, Je pense que ce doit être la bannière dont tu parles (qui accepte les champs aussi) Commande : "banniere". Il faut que la case à cocher "Bannière de tracé sur" soit coché aussi dans la boite de dialogue d'impression.

Salut, Hu !... je ne l'ai pas testé mais ça me parait bien long !.... j'avais réalisé quelque chose pour ça ici .... Et il te permet de te créer ta propre liste...

Je m'en doute bien, mais je ne vois pas quoi donner comme lisp... car ce problème arrive presque à tous... et ceci fonctionnait bien jusqu'à une modif impossible à retrouver... Je pensais que ça : pourrais être un message d'erreur "parlant"...

Tu as un cube Tu veux y faire un perçage d'une forme quelconque sur l'une des faces verticales Tu te mets en SCU Dyn tu lance l'outil polyligne et tu t'approche de la face intéressés. Tu dessineras alors ta poly dans le bon sens.

Salut, ça arrive.... :mad: si tu fais une recherche dans ce forum j'ai déjà donné la réponse quelque part... Si tu as ce message, ferme ton plan avec la croix (en haut à droite). Tu auras un message qui te demanderas si tu veux enregistrer ou pas....

Salut, C'est ce qui est appellé "SCU Dynamique", activable ou non par le bouton "SCUD" dans la barre d'état. (ou variable UCSDETECT sur 0)

Salut, j'ai une erreur dans certains lisp depuis quelque temps que je n'avais pas avant, (et certainement dû à un code parrallèle) et je ne la comprends pas. Message d'erreur : merci de votre aide....