bseb67

Re, Alt-tab fonctionne les quelques fractions de secondes avant qu'autocad se remette au premier plan. En fait je pense que ce n'est pas possible :( , pourtant sur excel lorsque je lance une de mes macros sur un fichier assez gros, à aucun moment excel se met au premier plan, malgré l'ouverture de boite de dialogue pour la saisie de données.

Salut kallain! Le plus simple pour moi, se serai : 1 - créer ton calque pour les textes "moncalquepourtext" 2 - outils-> sélection rapide: dessin entier, texte ou multtext, sur le calque "moncalque" 3 - maintenant que tous les textes sont pris clic droit proriétés et tu choisis comme calque "moncalquepourtext"

Salut! Ludwig: je dispose d'un écran de libre à coter de moi :cool: , donc je vais essayer. mais je ne sais pas si ca va résoudre mon problème Didier: j'ai déjà essayer de réduire ma fenêtre autocad pour qu'elle ne prenne que la moitié de l'écran. mais ca ne marche pas, je fait autre chose, puis la fenêtre autocad reprend la main, et donc si je tape du texte, celui-ci ne s'écrira pas dans la fenêtre sur laquelle je travaille.

Salut à tous! ne voulant pas créer un post dans chaque forum autocadxxxx, je met ici ma question: Étant lispeur, je lance régulièrement mes fonctions pour tester, là ça va, mais le truc qui me gène et m'énerve beaucoup, c'est que je ne peux rien faire d'autre, car autocad reprend toujours la main pour être au premier plan. Si je passe dans une autre fenêtre, celle-ci est recouverte immédiatement par celle d'autocad. :mad: alors, existe-t-il une astuce dans autocad pour ca, ou faut-il attendre la 2032 pour que se soit intégré? Merci.

Re, Déjà il y a une parenthèse en trop: (setq suffix (1+ suffix) boclayname (strcat (vl-filename-base (getvar "DWGNAME")) "_" (itoa suffix)"_A" BOC_FOR1 ) ) Ensuite, le setq ne fonctionne que si suffix est un réel ou un entier et que BOC_FOR1 soit un string. Chez moi ca marche

Salut bono! On a aussi souvent ce problème :mad:, voici des raisons que j'ai trouvé: ne pas être loin du point 0,0,0 et faire un copier (autocad bien-sûr) pas trop loin. Si tu veux t'éloigner, déplace par petit pas. Si tu veux le pivoter, donne le bon angle lors de l'insertion, pas de rotation après. Sur un projet, l'archi nous a pondu les bâtiments à 360.000Km du point 0,0,0. Là on peut vraiment dire qu'il était sur la lune, :cool:. On a eu que des ********* avec les fichiers. [Edité le 26/10/2008 par bseb67]

En fait t'as de la chance! Le lisp dont tu parles et de (Gile) http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=13114#pid51679 Et j'en avais fait une modif, mais hein, elle n'est pas forcément la plus optimale, je venais de découvrir les champs, et le lisp depuis 5 mois. ;;; CHP-OBJ -Gilles Chanteau- 16/12/06 -Version 2.0- ;;; Crée une ligne entre le champ et l'objet qui lui est lié. ;;; L'utilisateur peut choisir de conserver la ligne ou non. ;;; Fonctionne avec les champs contenus dans des tableaux ou des blocs. ; modif BLAES Sébastien 31/07/2007 (defun c:chp-obj (/ ent txt elst dic chp obj) (vl-load-com) (while (not (and (setq ent (nentsel "\nSélectionnez un champ: ")) (setq txt (car ent)) (setq elst (entget txt)) (member (cdr (assoc 0 elst)) '("MTEXT" "ATTRIB"))) ) (princ "\nAucun champ sélectionné.") ) ; while (if (and (setq dic (cdr (assoc 360 elst))) (setq dic (cdr (assoc 360 (entget dic)))) (setq chp (cdr (assoc 360 (entget dic)))) (= (cdr (assoc 0 (entget chp))) "FIELD") ) (progn (traite_champ chp ent elst) ) ; progn (princ "\nLe texte ne contient pas de champ.") ) ; if (princ) ) ; c:chp-obj (defun traite_champ( chp ent elst / lchp cpt lg obj pt nb360 fin) (setq lchp (entget chp)) ; on boucle sur chp, afin de trouver tous les champs (360) (setq cpt 0 lg (length lchp) nb360 0) ; on compte le nombre de 360 (while (< cpt lg) (if (= (car (nth cpt lchp)) 360) (setq nb360 (1+ nb360)) ) ; if (setq cpt (1+ cpt)) ) ; while (setq cpt 0) (if (> nb360 2) (setq nb360 1) ) ; if (while (and (< cpt lg) (= fin nil)) (if (= (car (nth cpt lchp)) 360) (progn (setq chp_tmp (cdr (nth cpt lchp))) (setq nb360 (1- nb360)) (if (= nb360 0) (setq fin t) ) ; if (if (assoc 360 (entget chp_tmp)) (traite_champ chp_tmp ent elst) (if (setq obj (cdr (assoc 331 (entget chp_tmp)))) (progn (entmake (list '(0 . "LINE") (cons 10 (if (< 2 (length ent)) (setq pt (mapcar '+ (cdr (assoc 10 (entget (car (last ent))))) (cdr (assoc 10 elst)) ) ) (setq pt (cdr (assoc 10 elst))) ) ; if ) ; cons (cons 11 (cdr (assoc 10 (entget obj)))) ) ) ; entmake (initget "Oui Non") (if (= "Non" (getkword "\nConserver la ligne ? [Oui/Non] < Non >: ")) (entdel (entlast)) ) ; if ) ; progn (princ "\nLe champ n'est pas lié à un objet.") ) ; if ) ; if ) ; progn ) ; if (setq cpt (1+ cpt)) ) ; while ) ; traite_champ ce code boucle pour tous les champs, enfin normalement ;)

salut thry0! Bon les champs, c'est un peu la bataille ;) , car tu peux créer des champs dans des champs à l'infini (et au délà!), non je rigole, je pense qu'autocad à une certaine limite. En tant que lispeur, j'ai mis un peu de temps à comprendre leur fonctionnement, car ils pointent vers l'oid d'un objet. L'oid est l'identifiant unique pour chaque objet. en lisp tu l'obtiens comme ca: (vlax-get (vlax-ename->vla-object (car(entsel))) 'ObjectID) Si personne n'a de lisp direct sous la main pour afficher une ligne pour tous les champs, je pense avoir le temps de le faire demain aprem après le boulot.

Salut scoAD! Il faut toujours faire attention aux string :cool: , càd aux chaines de caractères: "\\XXX\XXXX" sera traduite ainsi \XXXXXX, il faut soit doubler les \ soit mettre des / à la place: "\\\\XXX\\XXXX" ou "//XXX/XXXX"

Et bien ca y est, j'ai déjà accroché à ce petit jeu :)

Salut rebcao! Tu t'es mis au chinois :o ;) Je ne me souviens pas d'avoir ce genre de bug sur ma mep 2008 :casstet: . Sur ma mep c'est plutot des entités qui apparaissent à cotés de là où elles devraient être, et l'autre bug super fort: un dessinateur m'appel et me dit "si je fais annuler, il annule que les zoom, mais les objets restent sur le dessin" :o => "ferme autocad et relance" => ca marche de nouveau correctement :D . Ce n'est pas pour défendre autodesk, mais plus on ajoute de fonctions, d'options, plus ca bug.

salut! Il ne faut pas oublier qu'une partie des données de ton profil pointe dans la base de registre, et celle-ci peut être différente en fonction du pc. En plus, si vous utilisez des logins différents autocad pointera ailleurs aussi, car il se sert du login windows. De plus la bdr comporte une partie spécifique pour chaque compte sur le pc, que seulement chaque utilisateur peut modifier. Je ne sais pas si c'est clair, mais je pense que le problème vient de là.

Salut bastien! je ne suis pas sûr de comprendre :casstet: mais si tu veux retirer quelque chose d'un solide, moi j'utilise la soustraction command: _substract tu sélectionnes le solide à vider puis un solide de la forme d'excavation. J'oubliais, il faut bien-sur que les deux solides ont une partie communes ;) [Edité le 20/10/2008 par bseb67]

Salut! Bon travail (gile) :D , chez moi ca marche nickel sur ma mep2008 en full pour l'utilisation que l'on fait des filtres. Mais pour les sous-filtres ca ne marche pas. par contre il y aurai quelques points à modifier: - pouvoir exporter tous les filtres en une fois et donc les importer en une fois aussi - sauvegarder le chemin d'enregistrement plutot que de repartir sur "mes documents" - mettre le filtre lft en route pour les fichiers dans ImpFltr, au pire laisser un *.* et mettre un *.lft en plus en deuxième choix de filtre. Voilà.

Salut ludo07! Les blocs *U sur 2008-2009 ou *A sur 2006-2007 sont des blocs dynamiques. Quand tu créer un bloc dynamique, celui-ci à son nom d'origine. Mais si tu le modifies (propriétés dynamiques) comme il a changé de forme, autocad lui donne un nouveau nom Exemple t'as un bloc porte, une propriété dynamique sur la taille, si tu insères deux blocs portes, et que tu leur donne la même "taille", tu aura deux nouveaux blocs *Uxxx et *Uyyy. [Edité le 17/10/2008 par bseb67]

Camstudio c'est super :D moi j'ai fait des vidéos de démonstration pour les différentes fonctions (commandes) d'un lisp lorsque l'utilisateur lance le lisp, il y a des boutons pour les fonctions et à côté de chacun un autre bouton pour lancer médiaplayer avec la vidéo + un genre de timer pour tuer médiaplayer.

salut! C'est bizarre ton truc :casstet: , met plutot savetime à 2 ou 5, pour une sauvegarde auto toutes les 2 ou 5 min. Comme ca t'aura une sauvegarde ds mes doc\"login"\local settings\temp\nom du fichierxxxxx.sv$ ces fichiers sont des fois plus facilement récupérable que les fichiers dwg ou bak. Mais il doit y avoir un bug pour que sa le met en lecture seule.

Je sais que je plombe un peu le post, Mais oui, malheureusement ca rejoins des fois le niveau de l'allemand. ;) J'ai déjà essayer les produits buccaux et nasaux, ca diminue la puissance du bruit, mais de pas grand chose. malgré les bouchons, ma femme m'entend toujours. Selon médecin perte de poids suffirai (déjà 6 :) de perdu en 2 mois sur les 30 :( ), et selon orl amygdales bloquent le passage de l'air et idem dans le nez, l'air passe mal. orl :" vous verez, ca sera comme un moteur, plus d'air, plus performant! vous ronflerez moins si on opère et dégage tout, vous serez moins fatigué au réveil, moins essoufflé lors du sport et en plus vous perdrez du poids" :o Sinon, le c++ me manque un peu, ;) , cela fait 2 ans maintenant que je n'en ai plus fait. Malgré mes problèmes au début pour le lisp, le lisp je m'y sens bien :D et par ce que je le vaut bien.

Pour moi c'est des longues nuit de ronflements :cool: Mais ca s'améliore, vive les petits régimes ;) .

J'ai eu la joie et le bonheur d'essayer la 2009 classique, l'interface d'office 2007 me fait déjà ch... alors la retrouver sous autocad :mad: . Je me suis énervé avec les cui, puis je suis passé à des bench sur des plans tests, et bien tous mes lisps sont plus lents de 5 à 20% :o :mad: Et avec mon core 2 duo E6700, mes 4go de ram en dual, ma quadro FX3500 avec 512Mo de ram et mon XP SP3, c'était super lent + quelques plantages. Et pour info je ne suis pas le seul à dire que c'est pas top la 2009, car j'ai téléchargé inventor LT 2009, mais pas encore essayer, j'ai eu droit a un appel d'autodesk pour questionnaire. Et quand je lui ai dit que la 2009 "installé et le lendemain supprimée, car trop lourde, lente et buggue" la nana m'a dit: "vous n'êtes pas le seul, on a plusieurs retours négatifs". Donc je reste sur ma mep 2008, qui bug un peu plus que la 2007, mais ca va. La semaine dernière vlide ne marchait plus, réparation, toujours rien, ré-installation, :cool: ouf ca marche.

Re, En fait tu as changé ton code entre le moment où j'ai écris mon truc et celui ou tu l'avais déposé. Car il y avait un progn. Didier: je suis aussi plus pour des setvar, et pour deux raisons => la première est celle que tu donnes, à part si on met les commandes en anglais la seconde, un setvar est plus rapide qu'un command Depuis que j'ai eu le lien sur le lisp de bench, je m'en sers pour chacune de mes fonctions afin de voir les temps des différentes parties, et essayer de gagner du temps. Mes objectifs en programmation sont: arriver à faire ce que je veux ou ce que l'on me demande, une fois que c'est validé, essayer d'améliorer le code pour réduire le temps.

Le test est faux: (= BOCVAL1 "nil") => (= BOCVAL1 nil) et en plus tu as mis deux fois la même chose (Command "-CALQUE" "N" "$___FORMAT" "CH" "$___FORMAT" "") (Command "-CALQUE" "CH" "$___FORMAT" "") => (Command "-CALQUE" "N" "$___FORMAT" "") (Command "-CALQUE" "CH" "$___FORMAT" "") Comme ca, ca marche. ;) [Edité le 9/10/2008 par bseb67]

6 messages en presque 4ans :( , ca fait pas grand chose. Pour les calques, tu peux utiliser les fonctions tblnext et tblsearch, va voir dans l'aide, c'est très simple d'utilisation.

Cette ceinture vient de plusieurs choses: - un peu de blabla (j'ai de temps en temps les gènes de ma mère qui sortent :cool: ) - beaucoup de demandes (merci à (Gile), patrick_35 en particulier, et les autres boss) - de l'aide pour les autres, philosophie du site et la mienne aussi, tester, apprendre, tester, savoir faire puis transmettre. Cette astuce, vient d'un des dessinateur de la boite, il a aussi une 2008 comme moi, et avait remarqué que la liste grossissait et faisait ralentir tout.

=> ce sont des variables utilisateur dans le dessin.Il y en a 15 en tout: 5 variables pour les entiers useriX 5 variables pour les réels userrX 5 variables pour les string (cahine de caractères) usersX Exemple: Commande: users1 Entrez une nouvelle valeur pour USERS1, ou . pour aucune <"">: toto Commande: users1 Entrez une nouvelle valeur pour USERS1, ou . pour aucune <"toto">: Le problème de ces variables, c'est qu'elles peuvent être modifiées par un autre lisp. Les xdata, ca n'a rien de porno ;) , ceux sont des données que tu peux ajouter à des entités. Il faut d'abord déclarer un nom d'association pour les xdata. En fait c'est un nom d'application. Je ne pense pas avoir la faculté de te faire comprendre rapidement comment en faire :( , cela te permet de faire pas mal de chose, au-lieu d'utiliser des attributs sur un bloc, tu peux stocker des infos avec les xdata, comme ca un utilisateur normal ne les voit pas, mais en plus il ne saura pas te les modifier. pour avoir les xdata d'une entité, il faut faire un entget un peu différent: (setq ent (car (entsel))) (setq lent (entget ent '("*"))) exemple rapide => résultat de lent: ((-1 . ) (0 . "LINE") (5 . "8B0A2") (102 . "{ACAD_REACTORS") (330 . ) (330 . ) (102 . "}") (330 . ) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "TK-CVC") (100 . "AcDbLine") (10 -120.504 60.7194 0.0) (11 -120.504 62.5532 0.0) (210 0.0 0.0 1.0) (-3 ("Mon_APPLI" (1000 . "DEBIT") (1040 . 45.0))) ) la partie en gras, c'est des xdata. Mon_APPLI c'est le nom pour l'association. Pour les xdata, comme elles peuvent être mélangées, j'ai mis en place une règle simple: d'abord le nom de la valeur stockée puis sa valeur d'où le (1000 . "DEBIT") puis le (1040 . 45.0). Je ne veux pas en donner en plus, mieux vaudrai faire un topic pour ca.