bryce

Bonjour, Pour info, le DWFx peut s'ouvrir directement avec Internet Explorer (si version assez récente), pas besoin de faire installer Design Review au destinataire. ;)

(defun c:CPAL (/ acdoc layers *error* lay slay ss obj i) ; Copie les objets sélectionnés dans tous les calques. (vl-load-com) ; chargement des extensions Visual Lisp ; on stocke dans la variable layers la liste des calques du dessin (setq layers (vla-get-layers (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object)))) ) ; on redéfinit la fonction *error*, qui est appelée en cas d'erreur du programme. ; Elle est aussi appelée volontairement à la fin du programme pour "faire le ménage". (defun *error* (msg) (and msg (or (member (strcase msg) '("FUNCTION CANCELLED" "QUIT / EXIT ABORT" "FONCTION ANNULEE" "QUITTER / SORTIR ABANDON")) (princ (strcat "\nErreur : " msg)) ) ) (vla-endundomark acdoc) ; on ferme la dernière marque d'annulation (princ) ) ; fin de la redéfinition de *error* (vla-startundomark acdoc) ; on crée une marque d'annulation (if (or (setq ss (cadr (ssgetfirst))) ; si une sélection est active, on la récupére dans le jeu de sélection appelé ss (setq ss (ssget)) ; sinon on demande à l'utilisateur de choisir des objets, et on récupére la sélection dans le jeu de sélection appelé ss ) (progn ; début du progn qui contient toutes les actions effectuées sur la sélection (vlax-for lay layers ; début de la boucle des calques. Boucle effectuée successivement pour chaque calque contenu dans la variable layers, le calque en cours de traitement étant stocké dans la variable lay. (setq i 0) ; on met le compteur i à 0 (repeat (sslength ss) ; début de la boucle des entités, répétée autant de fois qu'il y a d'objets dans le jeu de sélection ss. (if (/= (vla-get-layer (setq obj (vlax-ename->vla-object (ssname ss i)))) (setq slay (vla-get-name lay))) ; si le nom du calque de l'objet n° i dans la sélection est différent du nom du calque stocké actuellement dans lay (nom que l'on stocke dans slay) (vla-put-layer (vla-copy obj) slay) ; alors on copie l'objet sur le calque dont le nom est stocké dans slay ) (setq i (1+ i)) ; on ajoute 1 à i, pour que la prochaine passe de la boucle traite l'objet suivant dans le jeu de sélection ) ; fin de la boucle des entités ); fin de la boucle des calques (princ "\nCopie effectuée !") ) ; fin du progn qui contient toutes les actions effectuées sur la sélection );fin du if sélection (*error* nil) ; on appelle volontairement *error* pour fermer la marque d'annulation créée précédemment );cpl (princ "\nCommande à utiliser: CPAL") (princ)

Bonjour, Je t'ai mis le fichier en téléchargement: http://www.creao.fr/uploads/lisp/cpal.lsp Il suffit de le charger dans AutoCAD (Outils > Charger une application, ou commande APPLOAD) pour l'utiliser tel quel. Pour le modifier, tu peux l'ouvrir dans l'éditeur AutoLISP ou n'importe quel éditeur de texte (Bloc-notex, Notepad++, etc.). Pa contre je n'ai pas le temps de le commenter aujourd'hui, désolé...

Bonjour, J'avais déjà fait un truc semblable aussi : (defun c:CPAL (/ acdoc layers *error* lay slay ss obj i) ; Copie les objets sélectionnés dans tous les calques. (vl-load-com) (setq layers (vla-get-layers (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object)))) ) (defun *error* (msg) (and msg (or (member (strcase msg) '("FUNCTION CANCELLED" "QUIT / EXIT ABORT" "FONCTION ANNULEE" "QUITTER / SORTIR ABANDON")) (princ (strcat "\nErreur : " msg)) ) ) (vla-endundomark acdoc) (princ) ) (vla-startundomark acdoc) (if (or (setq ss (cadr (ssgetfirst))) (setq ss (ssget)) ) (progn (vlax-for lay layers (setq i 0) (repeat (sslength ss) (if (/= (vla-get-layer (setq obj (vlax-ename->vla-object (ssname ss i)))) (setq slay (vla-get-name lay))) (vla-put-layer (vla-copy obj) slay) ) (setq i (1+ i)) ) );vlax-for layer (princ "\nCopie effectuée !") ) );if selection (*error* nil) );cpl (princ "\nCommande à utiliser: CPAL") (princ) Mais ça copie la sélection dans TOUS les calques, même s'ils sont gelés ou verrouillés. Pour ton besoin, il faudrait le modifier un peu pour ne pas prendre en compte les calques gelés/verrouillés, ou pour afficher une boîte permettant de choisir les calques de destination. Mais bon, pour faire 4 copies... :cool:

Bonjour, J'ai déjà rencontré ce souci avec une rangée vide à la fin du tableau, ça ressemble à un petit bug en effet. De mémoire, il faut taper n'importe quoi dans les cellules de cette rangée vide, puis supprimer la rangée en faisant un clic droit dessus. :P

Vu le nombre d'erreurs, j'ai peur qu'il n'y ait pas grand chose à faire (à part essayer d'obtenir un export de meilleure qualité)... http://nsa27.casimages.com/img/2011/08/25/110825101457691184.png

Bonjour, Quand j'importe le sat que m'a envoyé FRAXA dans AutoCAD 2012, j'obtiens une mega surface (pas un maillage). Je suppose que les tolérances à l'exportation étaient trop grandes, pas de solide... :mad: Une fois cette surface décomposée par curiosité, je me retrouve avec 1603 surfaces et 1254 régions ! :( J'ai tenté à tout hasard d'utiliser la commande Sculpter, mais sans succès. Je vais voir ce que ça donne avec Inventor... ;)

Si tu veux, tu peux m'envoyer un exemple par courriel : brice arobase creao.fr ;)

Bonjour, Un fichier en exemple ? :)

Bonjour, objet _zoom _e clayer E1------X-(Xref) -xref a "Z:\3000 a 3099\3013 - JTI Floyd\00-PROJET\JTI Floyd\Elements\Tableaux\tabl-02.dwg" 0,0 1 1 0 clayer 0 ;)

Bonjour, Malheureusement ce n'est pas possible...

Bonjour, Tu peux sélectionner le tableau, et clic droit > Exporter... ;)

Bonjour, Peut-être de cette façon ? (setq o T) (while (/= o "Quitter") (initget "Quitter") (if (setq o (entsel "\nChoix de l'objet ou [Quitter] : ")) [...] ) )

Tu pourrais créer des propriétés personnalisées (commande PROPDESS, onglet Personnaliser) au lieu de textes, et utiliser dans ton bloc des champs pointant vers ces propriétés personnalisées (dans les champs de la catégorie Document). Je pense que ça règlerait ton problème. :)

Bonjour, Ça me paraît "étrange" comme façon de faire, aurais-tu la possibilité de montrer un exemple précis pour voir s'il n'y aurait pas une alternative ?

Bonjour, Dans les options, essaie de supprimer le chemin des fichiers de palettes de création, puis de cliquer sur Appliquer pour le réinitialiser à sa valeur par défaut : http://nsa28.casimages.com/img/2011/08/09/110809121128853088.png

Moi si ! :P Si ça ne marche pas chez toi, ça vient d'autre chose. Si tes châssis sont répertoriés CH(espace)n et que tu fais une recherche sur CHn, c'est normal qu'il ne trouve rien... ;) Sinon vérifie dans les options de la commande Rechercher, s'il prend bien en compte les valeurs d'attribut, s'il tient ou non compte de la casse (majuscules/minuscules), etc. [Edité le 8/8/2011 par bryce]

Bonjour, Le fichier dxe est lié au dessin (comme une xref), et mémorise les paramètres d'extraction. Tu n'aurais pas du effacer le tableau en effet, il suffit de le mettre à jour (une bulle de notification s'affiche normalement, sinon il suffit de sélectionner le tableau et clic droit > mettre à jour). Si le tableau a été supprimé, tu peux aussi relancer l'extraction de données, mais en choisissant à la 1ère étape de modifier une extraction existante et en sélectionnant le fichier dxe existant. De cette façon, tu n'as plus qu'à cliquer sur Suivant jusqu'à la dernière étape. ;) Par défaut, il considère les données comme étant du texte, et le tri se fait donc par ordre alphabétique. Dans la vidéo, tu peux voir à 0:50 que je fais un clic droit > "Définir le format des données" sur une des colonnes pour lui indiquer que les données sont des nombres entiers. ;) [Edité le 8/8/2011 par bryce]

Bonjour, C'est probablement parce que que ta liste lpts n'est pas remise à zéro à chaque lancement de la routine. Tu devrais la déclarer en tant que variable locale (les autres aussi d'ailleurs) : (defun c:TITI( / lpts) [...] ) [Edité le 8/8/2011 par bryce]

Mais si ! et personnellement je trouve que ce n'est pas si "usine à gaz" que ça : ;)

J'ai l'impression que tu utilises l'extraction d'attributs (la "vieille" commande ATTEXTR), alors que je te suggère d'utiliser l'extraction de données (EXTRACTDONNEES, Outils > Extraction de données)... ;)

Bonjour, - sélectionner le bloc - clic droit > "Editer le bloc dans le dessin même" - cliquer sur OK dans la boîte de dialogue - dans le Ruban ou la barre d'outils Editref, cliquer sur le bouton "Ajouter au jeu de sélection" et sélectionner les objets à intégrer dans le bloc, puis valider - cliquer sur le bouton "Enregistrer les modifications", ou clic droit > "Fermer la session EDITREF" > "Enregistrer l'édition des références". ;)

Bonjour, Avec la commande Rechercher (cocher la case "Répertorier les résultats", tu peux ensuite double-cliquer sur un résultat dans la liste pour zoomer dessus directement). ;)

Pas besoin de compter les blocs à la main, avec l'extraction de données les blocs identiques sont regroupés et comptabilisés ensemble. Tu peux poster un dessin exemple si tu veux un coup de main. ;) Pour remplacer des valeurs d'attributs, tu peux utiliser la commande Rechercher/remplacer (Edition > Rechercher).

Bonjour, La commande "Extraction de données" ne fait pas l'affaire ?