zebulon_

Moi qui pensait tout purger avec la commande purger. Perdu... C'est pénible, mais je vais faire qqes wbloc pour au moins "nettoyer" mes blocs Merci Amicalement Zebulon_

Bonjour, Voilà le problème : J'ai travaillé pendant un temps, chez mon employeur précédent, sur une version autocad Autodesk Architectural Desktop 2004, sans en exploiter les objets AEC. Maintenant j'ai une version 2007 de base et, quand j'ouvre un fichier ou que j'insère un bloc qui a été fabriqué avec Autodesk Architectural Desktop, autocad me charge toute la tripotée de modules AEC : alors que dans le fichier il n'y a aucun objet AEC. J'ai beau purger dans tous les sens, je n'arrive pas à me défaire de ces loading inutiles. Le seul moyen que j'ai trouvé est de recréer un nouveau fichier avec wbloc. Un peu lourd comme solution :casstet: Si quelqu'un a une idée ? Amicalement Zebulon_

Cela ne marche pas parce que la commande CONTOUR n'arrive pas à créer une polyligne mais une région, alors ça bug la suite. (defun c:delim () (setq I (entsel "\nSélectionner une image tramée :")) (if I (progn (setq J (entget (car I))) (setq TYPENT (cdr (assoc 0 J))) (if (= TYPENT "IMAGE") (progn (setq E (car (entsel "\nSaisir une polyligne : "))) (if E (progn (setq A (entget E)) (setq LL (length A)) (setq LSOM nil) (repeat LL (setq ELEM (car A)) (setq A (cdr A)) (if (= (car ELEM) 10) (setq LSOM (append LSOM (list (trans (cdr ELEM) 0 1)))) ) ) (command "_DELIMIMAGE" i "_N" "_P") (foreach SOM LSOM (command "_non" SOM) ) (command "") (command "_erase" e "") ) ) ) ) ) ) ) Là il faut saisir une polyligne existante. La commande CONTOUR n'est plus utilisée. Amicalement Zebulon_

Tu traces une ellipse en espace papier, puis dans la commande FMULT tu choisis l'option OBjet et tu sélectionnes l'ellipse. En faisant 2 polylignes fermées : une qui suit ce que tu souhaites détourer, une autre à peine au delà du cadre de l'image. Tu crées une hachure solide entre ces 2 polylignes tu mets ces 2 contours et cette hachure sur la couleur 255,255,255. En mettant du blanc par dessus ce que tu veux cacher, ça devrait marcher ? Amicalement Zebulon_

Peut être en utilisant (command "_insert" nom_bloc "_non" PTINS "1" "1" "0" valeur_attribut) Amicalement Zebulon_

Bonjour, Je trouve également que la commande delimimage serait plus complète si on avait la possibilité de choisir un point d'inondation ou une entité pour définir le contour. Un peu comme la commande xdelim (qui permet de délimiter des xrefs) où on a la possibilité de sélectionner une polyligne existante. (ça marche plus ou moins bien, mais l'idée est la bonne...) En plus, dans la version 2004 (et précédentes), quand on sélectionne l'image à délimiter, elle change automatiquement d'ordre d'affichage pour se mettre en premier plan. Du coup, on ne voit plus les objets qui pourraient servir à délimiter... :casstet: Avec la 2007, ça à l'air mieux à ce niveau. J'ai fait un lisp il y a qqes temps qui permet de cliquer un point dont se sert la commande CONTOUR pour créer un contour en s'appuyant sur des objets existants. Ensuite le lisp prend les sommets de la polyligne créée pour les injecter dans la commande delimimage. Je n'ai pas été plus loin et quand il y a des parties courbes dans la polyligne, le lisp ne prend en compte que la corde. (defun c:delim () (setq I (entsel "\nSélectionner une image tramée :")) (if I (progn (setq J (entget (car I))) (setq TYPENT (cdr (assoc 0 J))) (if (= TYPENT "IMAGE") (progn (setq PTemp (getpoint "\nPoint intérieur : ")) ;; (setq E (bpoly PTemp)) (command "_-boundary" PTemp "") (setq e (entlast)) (if E (progn (setq A (entget E)) (setq LL (length A)) (setq LSOM nil) (repeat LL (setq ELEM (car A)) (setq A (cdr A)) (if (= (car ELEM) 10) (setq LSOM (append LSOM (list (trans (cdr ELEM) 0 1)))) ) ) (command "_DELIMIMAGE" i "_N" "_P") (foreach SOM LSOM (command SOM) ) (command "") (command "_erase" e "") ) ) ) ) ) ) ) Amicalement Zebulon_

Regarde ici http://www.cadxp.com/sujetXForum-13402.htm en adaptant le lisp avec la fonction vla-get-textstyles, ça doit pouvoir marcher Amicalement Zebulon_

Pas du tout hors sujet. Simplement un peu redondant puisque ce que tu indiques revient à modifier les variables insunits, insunitsdefsource et insunitsdeftarget. Amicalement Zebulon_

J'ai testé et effectivement ça marche bizarrement. J'ai l'impression qu'en changeant simplement INSUNITS dans le fichier BLOC, ça n'est pas pris en compte. Du coup, j'ai recréé le bloc avec WBLOC en spécifiant l'unité voulue et là, ça à l'air de mieux marcher. Alors, ou bien j'ai loupé un épisode ou bien il y a effectivement un bug. Amicalement Zebulon_

Bonjour, Je ne pense pas que ce soit un bug, puisque tu nous dis que : Dans ce cas, il faut veiller aux valeurs contenues dans INSUNITSDEFTARGET et INSUNITSDEFSOURCE Essaye de définir des insunits autres que 0 dans tes fichiers et réessaye. Ou alors, si tu ne veux pas te prendre la tête avec des unités, il faut mettre les 3 variables à 0. Amicalement Zebulon_

Bis pour le merci Je me suis intéressé aux xdata en regardant http://www.afralisp.net/lispa/lisp21.htm où l'on retrouve ses petits en fonction de leur position dans la liste xdata. Ce qui est intéressant dans ta bibliothèque de fonctions (qui ont été faites avec une version 12 ?), c'est l'ajout d'une clé qui permet beaucoup plus de souplesse dans la gestion de la liste xdata, même si elle est un peu plus longue. En conséquence, cela ressemble aux fonctions vlisp (vlax-ldata-put dict key data [private]) (vlax-ldata-get dict key [default-data] [private]) etc... J'ai lu quelque part qu'il était préférable d'utiliser les xdata plutôt que les ldata parce que les ldata mettent la zizanie dans les fichiers dwg. Réalité ou légende ??? http://www.faqs.org/faqs/CAD/autolisp-faq/part1/ Amicalement Zebulon_ [Edité le 29/1/2007 par zebulon_]

Avec autocad j'ai débuté avec la version 12. J'ai commencé la CAO en... 1987 sur un logiciel qui n'existe même plus, pour passer ensuite sur microstation 3, puis 4, puis 5 (si ma mémoire est bonne). Un jour, mon patron de l'époque m'a dit : microstation c'est terminé, maintenant tu utiliseras autocad (parce que nos clients voulaient du dwg et que les exports de microstation vers le dwg étaient catastrophiques). Tu aurais dû m'entendre à l'époque : "Ouais, mais sous microstation blablabla.... microstation c'est mieux... il y avait tel truc qui marchait super bien... avec autocad, les boutons de la souris n'ont pas les mêmes significations...... autocad 12 c'est de la daube..." J'étais au bord de la crise de nerfs. J'en viens à la conclusion : on aime ce qu'on connait, la nouveauté nous fait peur et nous déstabilise. Normal, quand il faut produire avec un outils qu'on ne connait pas ou trop peu. Finalement, je m'y suis fait à autocad. Et maintenant, s'il fallait revenir à microstation, tu m'entendrais râler dans l'autre sens avec les mêmes arguments. :). Et s'il fallait revenir à la version 12 ou la 14 (des versions de référence, ce qu'on ne peut pas dire de la version 13...), il me manquerait quelques fonctionnalités bien sympathiques (ouvrir plusieurs fichiers dans une session, les présentations multiples, lier les vues et les scu... et j'en oublie, sans parler des nouveautés 3D de la 2007). Il faut vivre avec son temps, mais il est vrai qu'on est pas obligé de l'aimer. Amicalement Zebulon_

Effectivement, s'il te faut "10.00" et pas "10.0", il faut d'abord arrondir le chiffre comme l'indique Bonuscad avant de faire la conversion en texte avec un (rtos x 2 2), x ayant été au préalable arrondi à 10 Mais c'est quand même une vacherie, cette variable DIMZIN. Qui pourrait penser d'emblée qu'une variable de cotation puisse influer sur le fonctionnement d'une commande lisp ? Amicalement Zebulon_

bonjour, donc avec un (setvar "dimzin" 0) rtos ne sucre plus les 0 de fin. (setvar "dimzin" 0) (setq x 9.98) (rtos x 2 1) te donnera "10.0" Amicalement Zebulon_

Bonjour, La commande balayage (ou _sweep) ferait-elle l'affaire ? Amicalement Zebulon_

Bonjour, Pareil que Bonuscad Amicalement Zebulon_

C'est top :) ce que sait faire design center, on saura le faire en vlisp par l'intermédiaire de (ouvrir_dessin_dbx ...) C'est quand même plus élégant que de faire des insertions de blocs, comme je faisais dans l'exemple ci-dessus Amicalement Zebulon_

Bonjour, Cela devrait répondre à la question que je posais ici http://www.cadxp.com/sujetXForum-7941.htm Enfin je pense, je n'ai pas encore essayé. C'est un peu comme ça que fonctionne le Design center, je suppose ? Merci pour tes recherches fondamentales qui font toujours avancer le schimili..., le schilimi... Amicalement Zebulon_

comme souvent ;) Mais pour ma part, l'idée s'était de me frotter un peu aux activex. Je ne pense pas, comme le craint Tramber, faire causer mes lisp à tout vas, sauf pour le côté "gadget". La synthèse vocale étant surtout indiquée pour les personnes mal-voyantes. Mais malheureusement pour eux la CAO/DAO contient essentiellement des objets graphiques et très peu de textes. Donc il ne doit pas y avoir beaucoup de personnes mal-voyantes qui utilisent autocad ? Amicalement Zebulon_

Salut Tramber, Pour faire taire, tu débranches les hauts-parleurs. Sinon, tu peux aussi enlever la carte son, si elle n'est pas intégrée à la carte mère. C'est radical mais efficace. :) Amicalement Zebulon_

J'en ai d'autres, mais ils sont de toi ...;) Disons que je commence à gratouiller côté activex et je m'y perd un peu je dois le reconnaitre Amicalement Zebulon_

Bonjour, tu nous décris avec le plus de précision possible ce que tu veux ou ce que tu cherches dans un nouveau sujet de ce forum et on regarde ce qu'on a en magasin amicalement zebulon_

http://msdn2.microsoft.com/en-gb/library/ms723602.aspx il y a la méthode speekstream qui doit permettre d'ouvrir, voire créer, des fichier wav et qui pourrait remplacer doswav amicalement Zebulon_

Super, Boris. La voix de la très française Véronique est beaucoup plus sympathique que celle de l'oncle Microsoft Sam Trop fort ce zebulon.fr Amicalement Zebulon_

L'utilité de ce genre de chose : les personnes mal voyantes. (defun speak (str) (setq spi (vlax-create-object "Sapi.SpVoice")) (vlax-method-applicable-p spi "Speak") (vlax-invoke-method spi "Speak" str 0) ) j'ai tenté quelque chose en lisp, mais cela parle avec un accent anglais. Je ne sais pas comment faire causer français à mon autocad. Il m'est aussi arrivé d'utiliser le fonction dos_wav fournie par doslib. amicalement Zebulon_