Patrick_35

Quand je regarde la question, cela me fait penser qu’il faudrait plutôt chercher du coté des réacteurs comme avec la fonction vlr-mouse-reactor, et il y a un lisp fournit avec autocad dans les samples qui s’appelle Mouse reactor.lsp qui se sert de cette fonction (à titre d'exemple) @+

J'ai un lisp hyper compliqué qui permet de faire cela (valable aussi sur LT) 1) je trace un trait en couleur jaune et en type de ligne continuous 2) je fais une copie de ma ligne en @ (en clair sur lui-même) 3) je change les propriétés de ma copie en vert et avec le type de ligne cache 4) il ne reste plus qu'à jouer avec ltscale (de la ligne ou général) @+

C'est vrai que cet outil est super, mais tout le monde ne l'a pas. Quand Autodesk nous l'intégrera t-il ou améliora son DCL ? :casstet: Vlisp ou Vba http://www.clicksmilies.com/s0105/spezial/Fool/duel.gif Je pense que c'est selon la fibre de chacun, et je trouve que vlisp est plus adapté quand il s'agit de faire un dévelopement et de manipuler des objets d'Autocad. @+

C'est bien une réponse de célibataire @+

Pour entrer à l'ENA, il faut une licence au minimum L'année dernière pour le concours 2004, il y avait 1239 candidats pour 95 places et seulement 191 étaient admissibles Si avec ça se sont des idiots, on ne doit pas parler de la même chose Ils ne sont pas tous sortis de l'ENA comme Pierre Bérégovoy qui avait qu'un CAP d'ajusteur et un CAP de dessinateur industriel, ce qui ne l'a pas empêché d'être Premier ministre, même si la fin de son mandat s'est malheureusement mal terminé. Comme président François Mitterrand avait fait science-po et Georges Pompidou l'école normale supérieure (ENS). (VGE et Jacques Chirac, eux ont fait l'ENA) On vote pour eux Oui, mais on n'a pas trop le choix, et si on veux éviter un candidat trop évident, on tombe vite fait sur les extrèmes :( @+

Je suis d’accord avec toi Patrick, 20H ne m’arrange absolument pas, mais pour 19H, c’est très bien. (et ce n'est pas pour les infos) Se connectera qui voudra et à son heure. @+

Ils n’ont pas les mêmes échelles de valeurs que nous. Quand ils claquent 1500€ dans une soirée, ça ne leur fait pas peur. Comme d’avoir des chambres de 60/70m², alors que pour d’autres, c’est la surface de leur appartement Malheureusement, on a besoins de ce type d’initiative et de plus en plus. Je pense sincèrement que c’est une carence de l’état qui compte de plus en plus sur le bénévolat afin de ne pas creuser un peu plus le trou de la sécu Je ne dirai pas cela comme ça, mais en un peu plus subtil. Ce sont quand même pour la plupart des énarques et ils sont loin d’être bête. Pourquoi faire de la politique si ce n’est pour le pouvoir et l’argent (certains diront que c’est pour servir leur pays, mais ne sont-ils pas un peu naïf ?). Ils ne visent que leur propre intérêt et cherche pas tous les moyens à laisser une trace de leur passage dans l’histoire Et une pensée pour finir - La société est composée de deux grandes choses: ceux qui ont plus de dîners que d'appétit et ceux qui ont plus d'appétit que de dîners. @+

Ce n'est qu'une question d'habitude, après on n'y pense même plus Et oui, exact, et en diesel avec la fonction (xrefs,3) par exemple. Comme quoi, on ne pense pas à tout.. Pourquoi faire simple quand.... ;) @+

Peut être avec ce gratuiciel que nous a donné Laurent CAMPEDEL @+

Je suis comme bonus, il m’a fallut un certain temps avant de comprendre. Juste une remarque, tu fais un vlr-remove-all sur un type de réacteur et tu risques d'en supprimer un qui se sert du même type. Ne serait-il pas plus simple de faire un vlr-remove réacteur ? (par le biais d'un setq lors de la définition du vlr-miscellaneous-reactor) @+

Je lance VBA (alt+F11) Je lance l'explorateur d'objets (F2) Je filtre sur Autocad Je regarde depuis les classes, les membres dans AutoCAD.... Pour retrouver tes petits, tu ajoutes toujours AutoCAD devant le type d'entité que tu cherches. Par exemple pour un arc de cercle, c'est dans AcadArc, un bloc dans AcadBlock, dans le dessin dans AcadDocument, etc... @+

BonusCad C’est juste une boutade, plus on est de fous, plus on rit @+

Il existe la commande multiple @+

???? @+

Dans l'ordre d'arrivée Pour Kallain clic droit puis enregister la cible du lien sous ... Pour oli553 Ca à du planter une première fois et c'est ce qu'il affiche quand on relance. Il suffit de le relancer encore une fois mais ce n'est pas normal. Je corrige demain Tu fais ce que tu veux. Si tu décides de reporter les quantités, une valeur sera écrite dans la cellule, que ce soit vide ou non @+

BonusCad te propose une solution, et comme j’ai travaillé dessus (sans vouloir faire de concurrence ;) ) , voici la mienne Soit à partir de ton bloc $tampon$, tu ajoutes des attributs avec comme étiquette CHEMIN_XREF1, CHEMIN_XREF2, CHEMIN_XREF3, etc… depuis un autre bloc, mais toujours avec le même principe pour les étiquettes En surligné, je t’ai indiqué où modifier les noms Tu peux ajouter ce lisp à la suite du tien @+ (defun c:cxref(/ bloc_xref boucle ent fin_ent js liste_xref nom_xref texte_xref systime_xref) [surligneur] (setq nom_bloc "$TAMPON$") ; nom du bloc contenant les attributs [/surligneur] [surligneur] (setq nom_xref "DATE_TAMPON") ; nom de l'étiquette pour le chemin des xrefs [/surligneur] (setq js (ssget "x" (list (cons 0 "insert") (cons 2 nom_bloc)))) (if js (progn (setq bloc_xref (tblnext "block" t)) (while bloc_xref (if (= (logand (cdr (assoc 70 bloc_xref)) 4) 4) (progn (setq texte_xref (cdr (assoc 1 bloc_xref))) (if (not (vl-string-search ".DWG" (strcase texte_xref))) (setq texte_xref (findfile (strcat texte_xref ".dwg"))) (setq texte_xref (findfile texte_xref)) ) (setq systime_xref (vl-file-systime texte_xref)) (setq texte_xref (strcat texte_xref " " (itoa (nth 2 systime_xref)) "\\" (itoa (nth 1 systime_xref)) "\\" (itoa (nth 0 systime_xref)) " " (itoa (nth 4 systime_xref)) ":" (itoa (nth 5 systime_xref)))) (setq liste_xref (append liste_xref (list texte_xref))) ) ) (setq bloc_xref (tblnext "block")) ) (setq boucle 0) (while (ssname js boucle) (setq ent (ssname js boucle)) (while ent (setq ent (entget ent)) (if (and (= (cdr (assoc 0 ent)) "ATTRIB") (vl-string-search (strcase nom_xref) (strcase (cdr (assoc 2 ent))))) (progn (setq fin_ent (vl-string-subst "" (strcase nom_xref) (strcase (cdr (assoc 2 ent))))) (if fin_ent (if (not (zerop (atoi fin_ent))) (if (nth (1- (atoi fin_ent)) liste_xref) (progn (setq ent (subst (cons 1 (nth (1- (atoi fin_ent)) liste_xref)) (assoc 1 ent) ent)) (entmod ent) (entupd (cdr (assoc -1 ent))) ) ) ) ) ) ) (setq ent (entnext (cdr (assoc -1 ent)))) ) (setq boucle (1+ boucle)) ) ) (princ (strcat "\nLe bloc " nom_bloc " n'est pas dans le dessin")) ) (princ) )

Je regarde ça @+

C'est parce que chaque type d'entité ne possède par forcement un getboundingbox. Par exemple si la première entité du bloc est une ligne, le vla-getboundingbox fonctionne mais n'existe pas en réalité. Il prend les valeurs de startpoint et de endpoint @+

Je l’ai vu tourner sur une 2005 apparemment sans problème @+

C’est de prendre son temps et d’y aller pas à pas. Deux choses à ne pas oublier, c’est si on efface un élément lié au réacteur et ce que ça implique, et quand on réouvre son dessin, de les reconstruire (à moins que le réacteur soit un événementiel d’une commande) @+

Je pensais que tu maîtrisais un peu le lisp. Cette routine est là pour te servir d’exemple, t’indiquer où chercher et c’est à toi de l’adapter en fonction de tes besoins comme d’indiquer les xrefs dans des attributs d’un bloc par exemple. Si tu ne connais pas trop la manière de faire, on veut bien t’aider à condition que tu nous indique ce que tu requières ( pour rependre l’exemple, nom du bloc, étiquette des attributs, etc...) @+

alut Un truc vite fait dans ce style (setq a (tblnext "block" t)) (setq liste_xref nil) (while a (if (= (logand (cdr (assoc 70 a)) 4) 4) (progn (setq liste_xref (append liste_xref (list (cdr (assoc 1 a))))) (princ (strcat "\n\t\tXref trouvé ---> " (cdr (assoc 1 a)))) ) ) (setq a (tblnext "block")) ) (princ) Nb : une variable liste_xref est créée afin de contenir tous les xref @+

Tu ne risques pas de modifier ton menu vu que c'est un lisp et c'est justement pour éviter d'y toucher Tu remarqueras que tu peux personnaliser les boutons, les sous-menus à ta convenance Une astuce pour saisir rapidement tes listes. Des fichiers Bibles.NNN sont créés en fonction de tes menus. Il est possible des les éditer via le bloc-note par exemple et de saisir rapidement sa symbolique En premier, c'est la désignation et sur la ligne suivante, le nom du bloc avec son répertoire mais sans l'extension dwg, et ainsi de suite... C'est un peu de temps à passer au début, mais ensuite, que de gain Et encore une chose, avec ce lisp, ça me remplace la commande inserer Maintenant, menu, le lisp Bibles ou autres chose, chacun son choix ;) @+

Tu fais ce que tu veux. C'est un lisp qui est fait pour justement gérer toute ta symbolique. Tu t'organises comme tu veux et avec les symboles que tu souhaites. Télécharge-le et essai le un peu, d’autant plus que c’est un gratuiciel Encore une précision. Ma bibliothèque (pas loin de 1000 symboles) à été mise en place sous une version 12 et depuis, je m'en sers constamment. Récemment, un poste à été mis à jour avec une 2005 et bibles fonctionne toujours. Donc pas de prise de tête avec les menus, les clichés (qui sont gérés par bibles), etc... et aucun soucis d'évolution. Une copie dans le bon répertoire suffit. @+

Oui, par exemple avec _appload et il est possible de le charger à chaque nouvelle session de dessin, comme ça, les réacteurs sont toujours actifs. @+