Patrick_35

Ca me parait bien compliqué par un script, mais bon.... Tu peux expliquer le fond de ta pensée ? @+

Merci Zebulon_, c'est super Je constate juste une chose ou deux qui pourraient manquer. C'est la gestion des listes déroulantes, l'affichage d'un bmp par exemple ou encore la gestion des ascenseurs Et une autre question se pose. A ce niveau, ne serait-il pas plus intéressant de passer directement au vba plutôt que "bidouiller" avec le vlisp et les variables user* @+

Salut Patrick Je pense que ça devrait te convenir, mais il y a juste une chose que je n'arrive pour l'instant, pas à faire. C'est lors du changement du style, interrompre la commande qui suit ou le menu contextuel. @+ (defun Clic_Droit(Rea Pt / Chs DimSt Doc Sel Sty) (if (setq Sel (ssget (car Pt))) ; récupère les coordonnées du clic droit (un peu comme grread) et donc l'entité (progn (setq Sel (entget (ssname Sel 0))) (if (eq (cdr (assoc 0 Sel)) "DIMENSION") ; Si c'est une cote (progn (setq Doc (vla-get-activedocument (vlax-get-acad-object)) Sty (vla-get-dimstyles Doc)) ; Style de cote actif (if (not (eq (vla-get-name (vla-get-activedimstyle Doc)) (cdr (assoc 3 Sel)))) ; Si styles de cotes differentes (progn (vlax-for DimSt Sty ; recherche la table de style de cote (if (eq (vla-get-name DimSt) (cdr (assoc 3 Sel))) (setq Chs DimSt) ) ) (if ChS (progn (vla-put-activedimstyle Doc Chs) ; rendre le style de cote courant (princ (strcat "\nLe style de cote " (cdr (assoc 3 Sel)) " à été rendu courant.")) ) ) ) ) ) ) ) ) (princ) ) (defun creation_reacteur (/ i j n) (vl-load-com) (if (vlr-reactors :vlr-mouse-reactor) ; si déjà un réacteur dans :vlr-mouse-reactor (progn (setq n 1) (while (setq i (nth n (car (vlr-reactors :vlr-mouse-reactor)))) ; recherche si la fonction Clic_Droit est déjà pointé par un réacteur du type :vlr-mouse-reactor (if (eq (cdr (car (vlr-reactions i))) 'CLIC_DROIT) (setq j i) ) (setq n (1+ n)) ) (if j (vlr-remove j) ; Réacteur déjà présent, il est supprimé ) ) ) (setq mrea_cld (vlr-mouse-reactor nil '((:vlr-beginRightClick . Clic_Droit)))) ; création du réacteur (princ "\nClic droit pour style de cote à activer ACTIF.") (princ) ) (if (not mrea_cld) (creation_reacteur) ) (princ) [Edité le 20/9/2005 par Patrick_35]

Salut [->NOUVEAU PLAN] [FORMAT A0]^c^c_new "c:/bibliotheque/prototype A0" @+

Et au vu des élevages de porc dans la région bretagne, on pourrait se servir du méthane ;) ps : Le chouchenne, c'est surtout pour les touristes @+

On n'a pas souvent l'occasion, en ces temps agités, de se poser les vraies questions. Et pourtant..... POURQUOI tu veux avoir une pizza à ta maison plus vite qu'une ambulance ? POURQUOI il y a un stationnement pour handicapés en face des patinoires ? POURQUOI les gens commandent un double cheeseburger, des grosses frites et un coke light? POURQUOI nous achetons des saucisses à hot dog en paquet de 10 et des pains à hot dog en paquet de 8 ? Par ailleurs, vous êtes-vous jamais demandé... POURQUOI les femmes ne peuvent se mettre du mascara la bouche fermée ? POURQUOI le mot "abréviation" est si long ? POURQUOI pour arrêter Windows on doit cliquer sur Démarrer ? POURQUOI le jus de citron est fait de saveurs artificielles et le liquide à vaisselle est fait de vrais citrons ? POURQUOI il n'y a pas de nourriture pour chat à saveur de souris ? POURQUOI la nourriture pour chien est "nouvelle avec un goût amélioré": qui l'a testé ? POURQUOI ils stérilisent l'aiguille qui sert à l'euthanasie ? Vous connaissez ces boîtes noires indestructibles dans les avions : POURQUOI est-ce qu'ils ne fabriquent pas l'avion au complet dans ce matériau ? Si voler est si sécuritaire, POURQUOI l'aéroport s'appelle le "terminal" ? Et toujours... POURQUOI est-ce qu'on appuie plus fort sur les touches de la télécommande quand les piles sont presque à plat ? POURQUOI est-ce qu'on lave nos serviettes de bain : est-ce qu'on n'est pas sensés être propres quand on s'essuie avec ? POURQUOI les pilotes kamikazes portent-ils un casque ? Quand on étrangle un Schtroumpf, il devient de quelle couleur ? Comment les panneaux " DÉFENSE DE MARCHER SUR LA PELOUSE " arrivent-ils au milieu de celle-ci ? Est-ce que les analphabètes ont du plaisir à manger un bouillon aux nouilles en forme de lettres ? Quand l'homme a découvert que la vache donnait du lait, que cherchait-il exactement à faire à ce moment-là ? Si un mot dans le dictionnaire est mal écrit, comment s'en apercevra-t-on ? POURQUOI ce couillon de Noé n'a-t-il pas écrasé les deux moustiques ? Est-ce que les ouvriers de chez Lipton ont aussi une pause café ? POURQUOI les moutons ne rétrécissent pas quand il pleut ? POURQUOI "séparés" s'écrit-il en un mot, alors que "tous ensemble" s'écrit en deux mots séparés ? Je veux acheter un boomerang neuf : comment puis-je me débarrasser de l'ancien ? POURQUOI les établissements ouverts 24 heures sur 24 et 7 jours sur 7 ont-ils des serrures et des verrous ?

Ce n'est donc pas une erreur sur le findfile Je sais qu'il est possible de faire des points d'arrêts ainsi qu'ajouter ders espions avec l'éditeur _vlide mais pour débugger, je reste sur ma vieille méthode. J'ajoute aux points "stratégiques" du prog des (alert "1"), (alert "2"),,,,,(alert "10), etc... et je vérifie le bon déroulement jusqu'à l’endroit où ça plante et comme mes "alert" son incrémentées, je sais que c’est par exemple entre le point 7 et 8 @+

Salut Je ne peux qu'aller dans le sens de (gile) et de zebulon_. En international, les routines fonctionneront quelle que soit la version d'autocad et sa langue. Les traducteurs d'Autodesk ont la mauvaise habitude de changer certaines options de certaines commandes. Par exemple dans ce sujet., et il y en a encore plein d'autres. Donc, si tu fais des scripts ou des lisps et que tu veux que ça fonctionne pour les futurs versions d'autocad sans devoir y retoucher, utilise le langage international. @+

Salut Tu as la variable ATTMODE, au cas où Sinon, je t'ai fait ce lisp que tu peux adapter @+ (defun c:attvis(/ att bl n) (princ "\nSélectionnez un bloc de référence pour rendre tous ses attributs \nVisible/Non constant/Sans vérification et non prédéfini.") (if (setq bl (ssget "_+.:E:s" '((0 . "INSERT")))) (progn (setq bl (entget (ssname bl 0))) (if (/= (logand (cdr (assoc 70 (tblsearch "block" (cdr (assoc 2 bl))))) 4) 4) (if (cdr (assoc 66 bl)) (progn (setq bl (ssget "_x" (list (cons 0 "INSERT") (assoc 2 bl))) n 0) (while (ssname bl n) (setq att (entget (ssname bl n))) (while (/= (cdr (assoc 0 att)) "SEQEND") (if (= (cdr (assoc 0 att)) "ATTRIB") (progn (setq att (subst (cons 70 0) (assoc 70 att) att)) (entmod att) (entupd (cdr (assoc -1 att))) ) ) (setq att (entget (entnext (cdr (assoc -1 att))))) ) (setq n (1+ n)) ) (princ (strcat "\nModification de " (itoa n) " bloc(s).")) ) (princ "\nCe bloc ne contient pas d'attributs.") ) (princ "\nCe bloc est un xref.") ) ) ) (princ) )

Bonjour Moi non plus, je ne vois pas :casstet: L'erreur se produit soit sur le findfile ou le setq Tu peux toujours essayer, juste pour voir (if (findfile "c:\\autospeed.txt") (alert "OUI")(alert "NON") ) ;_ Fin de if Ou encore cette solution par exemple (if (vl-file-size "c:\\autospeed.txt") (alert "OUI")(alert "NON") ) ;_ Fin de if @+

Justement, apparement QBColor est un tableau qui attend un nombre. Ma question c'est quand tu lances ton InputBox, la valeur retournée dans la variable Question est-elle numérique ou alphanumérique et si c'est le cas, il faudrait alors la convertir @+

Salut Je ne suis pas un pro de vba, loin de là, mais j'ai une interrogation Ton InputBox te retourne-t-il une valeur du type string et la couleur que tu souhaites appliquer ne serait-elle pas du type integer ou long ? @+

Salut Un exemple pour 600 lignes au lieu des 400 par défaut (vl-load-com) (vla-put-HistoryLines (vla-get-display (vla-get-preferences (vlax-get-acad-object))) 600) @+

Et le même pour EP @+ (defun fondEP(couleur) (vl-load-com) (setq OLE_COLOR_LIST '(0 255 65535 65280 16776960 16711680 16711935 16777215 8421504 12632256 255 8421631 166 5460902 128 4210816 76 2500172 38 1250086 16639 8429567 10662 5466278 8320 4214912 4940 2502732 2598 1251366 33023 8437759 21414 5471398 16512 4219008 9804 2505036 4902 1252646 49151 8445951 31910 5476774 24704 4223104 14668 2507596 7462 1253670 65535 8454143 42662 5482150 32896 4227200 19532 2509900 9766 1254950 65471 8454111 42620 5482129 32864 4227184 19513 2509891 9757 1254945 65408 8454079 42579 5482108 32832 4227168 19494 2509881 9747 1254941 65344 8454047 42537 5482088 32800 4227152 19475 2509872 9738 1254936 65280 8454016 42496 5482067 32768 4227136 19456 2509862 9728 1254931 4259584 10485632 2729472 6858323 2129920 5275712 1264640 3165222 665088 1582611 8453888 12582784 5481984 8169043 4227072 6324288 2509824 3755046 1254912 1910291 12582656 14679936 8168960 9545299 6324224 7372864 3755008 4410406 1910272 2172435 16776960 16777088 10921472 10921555 8421376 8421440 5000192 5000230 2500096 2500115 16760576 16768896 10910720 10916179 8413184 8417344 4995328 4997926 2497792 2498835 16744448 16760704 10900224 10910803 8404992 8413248 4990464 4995366 2495232 2497811 16728064 16752512 10889472 10905683 8396800 8409152 4985600 4993062 2492928 2496531 16711680 16744576 10878976 10900307 8388608 8405056 4980736 4990502 2490368 2495251 16711744 16744607 10879017 10900328 8388640 8405072 4980755 4990512 2490378 2495256 16711808 16744639 10879059 10900348 8388672 8405088 4980774 4990521 2490387 2495261 16711871 16744671 10879100 10900369 8388704 8405104 4980793 4990531 2490397 2495265 16711935 16744703 10879142 10900390 8388736 8405120 4980812 4990540 2490406 2495270 12517631 14647551 8126630 9524134 6291584 7356544 3735628 4400716 1900582 2167590 8388863 12550399 5439654 8147878 4194432 6307968 2490444 3745356 1245222 1905446 4194559 10453247 2687142 6837158 2097280 5259392 1245260 3155532 655398 1577766 5526612 5987163 10000536 12303291 14540253 16777215 ) ) (vla-put-GraphicsWinLayoutBackgrndColor (vla-get-display (vla-get-preferences (vlax-get-acad-object))) (nth Couleur OLE_COLOR_LIST)) ) [Edité le 18/8/2005 par Patrick_35]

Salut Je me suis inspiré de celui-ci Il faut d'abord charger le lisp, puis ensuite, dans un bouton par exemple ^C^C(fondEO 1) pour le rouge ^C^C(fondEO 3) pour le vert @+ (defun fondEO(couleur) (vl-load-com) (setq OLE_COLOR_LIST '(0 255 65535 65280 16776960 16711680 16711935 16777215 8421504 12632256 255 8421631 166 5460902 128 4210816 76 2500172 38 1250086 16639 8429567 10662 5466278 8320 4214912 4940 2502732 2598 1251366 33023 8437759 21414 5471398 16512 4219008 9804 2505036 4902 1252646 49151 8445951 31910 5476774 24704 4223104 14668 2507596 7462 1253670 65535 8454143 42662 5482150 32896 4227200 19532 2509900 9766 1254950 65471 8454111 42620 5482129 32864 4227184 19513 2509891 9757 1254945 65408 8454079 42579 5482108 32832 4227168 19494 2509881 9747 1254941 65344 8454047 42537 5482088 32800 4227152 19475 2509872 9738 1254936 65280 8454016 42496 5482067 32768 4227136 19456 2509862 9728 1254931 4259584 10485632 2729472 6858323 2129920 5275712 1264640 3165222 665088 1582611 8453888 12582784 5481984 8169043 4227072 6324288 2509824 3755046 1254912 1910291 12582656 14679936 8168960 9545299 6324224 7372864 3755008 4410406 1910272 2172435 16776960 16777088 10921472 10921555 8421376 8421440 5000192 5000230 2500096 2500115 16760576 16768896 10910720 10916179 8413184 8417344 4995328 4997926 2497792 2498835 16744448 16760704 10900224 10910803 8404992 8413248 4990464 4995366 2495232 2497811 16728064 16752512 10889472 10905683 8396800 8409152 4985600 4993062 2492928 2496531 16711680 16744576 10878976 10900307 8388608 8405056 4980736 4990502 2490368 2495251 16711744 16744607 10879017 10900328 8388640 8405072 4980755 4990512 2490378 2495256 16711808 16744639 10879059 10900348 8388672 8405088 4980774 4990521 2490387 2495261 16711871 16744671 10879100 10900369 8388704 8405104 4980793 4990531 2490397 2495265 16711935 16744703 10879142 10900390 8388736 8405120 4980812 4990540 2490406 2495270 12517631 14647551 8126630 9524134 6291584 7356544 3735628 4400716 1900582 2167590 8388863 12550399 5439654 8147878 4194432 6307968 2490444 3745356 1245222 1905446 4194559 10453247 2687142 6837158 2097280 5259392 1245260 3155532 655398 1577766 5526612 5987163 10000536 12303291 14540253 16777215 ) ) (vla-put-GraphicsWinModelBackgrndColor (vla-get-display (vla-get-preferences (vlax-get-acad-object))) (nth Couleur OLE_COLOR_LIST)) ) Ps : je viens de voir que je viens de me faire grille par Bonus, mais bon, je le poste quand même car il permet de choisir sa couleur [Edité le 18/8/2005 par Patrick_35]

Oli553 il ne faut pas toujours dire amen au client, c'est du temps d'études et je pense qu'une bonne explication vaut plusieurs calculs ;) Si d'un autre coté, c'est précisé au CCTP et que c'est vendu, pourquoi pas mais je ne l'ai jamais encore vu @+

J'avais bien compris et c'est pour cela que je donne plusieurs fabricants Quant à l'intérêt de faire des calculs sous autocad, je ne le vois pas spécialement, mais ça dépend à quel niveau on travaille (BET ou installateur) En général, on fait des calculs sur deux ou trois pièces significatives afin de vérifier que ce qui nous est demandé correspond bien et après, on extrapole J'avais fait un lisp pour faire des calculs d'éclairement sous autocad pour justement sortir du carcan des constructeurs et je me suis aperçu que ceux des fabricants étaient beaucoup plus précis (calculs par points, en indirect, en mélangeant différents appareils, des pièces non rectangulaires, courbes photométriques,etc…) que ce que j’avais pu faire @+

Oui, c'est très bien, mais pas au niveau de la portabilité du lisp J'avais aussi oublié de préciser qu'avec le visual lisp, on peut réaliser aussi des réacteurs. @+

Bonjour, Ou encore chez Iguzzini, chez Mazda, chez Philips éclairage et chez Thorn europhane Bon, je ne vais quand même pas donner tous les fournisseurs ;) @+ [Edité le 18/8/2005 par Patrick_35]

Oui, enfin c’est quand même relativement limité et pas très ergonomique. Pour parler chinois, rien de mieux qu’une macro incluant du lisp avec du diesel. Vba est très bien pour dialoguer avec d’autres applications et faire interagir autocad avec excel par exemple. Le lisp est le mieux placé pour se servir des commandes d’autocad et manier les entités (le code dxf en clair) Le visual lisp, c’est du vba à la sauce lisp. Pas très toujours facile à utiliser et le cheminement de la logique est parfois tortueux. On retrouve toutes les fonctionnalités du vba (ou presque), mais c’est pauvre du coté des boites de dialogues et beaucoup moins intuitif à réaliser qu’avec le vba. @+

le \ représente une pause, c'est ce qui permet de demander le point d'insertion de la légende pour continuer dans la suite des commandes Je viens de voir que la macro que je t'ai indiqué correspond pour un dwg, pour un xls, c'est plutôt ^C^C_filedia;0;_lg;;o;\_filedia;1; @+

Salut Via une GED. C'est très souvent liée avec la qualité @+

Hello, Gile, tu le trouveras ici Oli553, tu peux aussi faire ^C^C_filedia;0;_lg;;\o;_filedia;1; @+

Salut Ca existe déjà en téléchargement sur Cadxp ici @+

Ce qui revient à un (nentsel) :exclam: En attendant d'aller plus loin, j'ai trouvé ça @+