Joutof

Voilà le fichier problématique : https://we.tl/t-1cfxJpZ3Dh Le fichier est brut sans aucun nettoyage. Après la commande RB (et avoir tous les objets en couleur ducalque), certain bloc reste malgré tout en couleur forcée.

Merci. Mais c'est justement celui là que j'ai. Et ça ne fonctionne pas sur les bloc dans les bloc...

Bonjour à tous, J'utilise très souvent le lisp RB (un vieux lisp) qui bascule tous les objet de bloc en "dubloc". Très pratique pour nettoyer mes fond de plan. Cependant depuis la version 2019 (peut être avant également mais j'ai sauté plein de version d'un coup), le list ne semble plus fonctionner pour les blocs dans des blocs. Quelqu'un serait-il pourquoi ? Y-a-t-il une mise à jour de ce lisp de disponible ?

Ca marche impeccable maintenant, merci. En fait il me faut au minimum 2 occurrences pour lancer la fonction "réseau". C'est ce qui déconnait dans mon bloc.

J'ai essayé et ça me fait toujours pareils. j'ai même refait un nouveau bloc dans le gabarit autocad (acadiso) et pareil... Je ne doit pas bien faire une manip, c'est pas possible sinon. Ce que je fait (un rectangle pour exemple) : - Nouveau DWG (gabarit acadiso) - Rectangle @100,100 - Créer bloc (Nom : Test, Objet : le rectangle, Point, milieu bas du rectangle) - Clique droit éditeur de bloc - Paramètre / cote linéaire - milieu bas du rectangle (point 0 du bloc) longueur : 200 - 1 poignée sur la cote linéaire - Action / réseau - Sélection de la cote - Sélection du rectangle - Distance entre les colonne : 500 - Fermer l'éditeur / enregistrer Et quand j'étire la poignée, la 2ème occurrence apparaît seulement lorsque la poignée atteint 1000 de longueur... Ci-joint le DWG de test, si quelqu'un peux trouver ce qui déconne dans mon bloc... Merci. Edit : Lien Wetransfert car j'ai une erreur sur le forum lorsque j'envoi un fichier : https://we.tl/t-8ABTK3du9c

Bonjour à tous, Je m'énerve depuis un moment sur un bloc dynamique et je ne comprend pas ce qui coince. Alors voilà, je voudrait faire un bloc dynamique de faux-plafond vu en coupe. Donc un rectangle qui s'étire (ça, ça va) et tous les 60 unité, un objet qui apparaît (rail de faux-plafond). Mais voilà le rail n’apparaît que quand mon paramètre de distance fait 120. J'ai bien renseigné une distance 60 pourtant (quelque capture d'écran ci-dessous) :

Oui y'a des archi qui accepte c'est bien :(rires forts): Celui de mon projet, non :angry: Je purge un peux plus (en faisant un wbloc) car y'a tellement de bazar qu'une simple purge/controle n'est pas suffisant. J'utilise l'outils JAV également. Mais effectivement un script qui nettoie, purge, contrôle, JAV tous les DWG d'un dossier, je suis preneur :P car je n'y connais rien en programmation de script :mellow:

Le soucis c'est que je fait des compilations de synthèse avec les plans. Les 28 xref de l'archi assemblés à tous les autres corps d'état ne me simplifie pas la tache. Surtout que j'ai plusieurs niveaux et donc j'augmente encore mon nombre de fichiers (4 niveaux x 28 xref d'archi + 6 corps d'état supplémentaires...=> 136 fichiers à nettoyer toutes les semaines). L'idée aurait été d'ouvrir le dwg archi qui appel les 28xref et de faire un wbloc d'un seul fichier. En nettoyant tout en manuel, je passe quand même 28 fichiers d'un total de 44Mo à un seul fichier de 3.8Mo... En gardant les xref, cela m'obligerais à nettoyer les 28 xref de l'archi une par une. A chaque nouvel envois de l'archi il ne me dit bien évidement pas ce qui est modifié et m'envois le paquet à chaque fois :angry: Je n'ai pas penser à tester avec la commande d'état des calques, c'est une piste, merci ;)

Merci Phil t'as bien compris le soucis, petit schéma pour les autres : - DWG avec réglage des calques geler/libéré et couleur -> Xref1 -> Xref2 -> Xref3 -> Xref4 -> Xref5 Quand je "Lié / Inséré" les xref, je perd la config des calques du DWG où les xref sont insérées (les calques reprennent leur config par défaut dans l'xref). Je suis donc obligé de me retaper les geler/libérer des calques, puis de lancer un wbloc pour bien purger mon fichier. L'idée de la présentation me plait bien mais je ne sais pas si c'est jouable la macro ?

Bonjour, Je rencontre actuellement un problème de nettoyage de plan Autocad. j'ai un architecte qui m'envois e-transmit d'un plan (28 fichers, 44Mo). :angry: Je reçois des mise à jour toutes les semaines (un peux lourd). :blink: Et je passe un temps fou à les nettoyer (insérer les xref en bloc, purger, wbloc...). J'y arrive et je passe à un fichier de 3.8Mo (c'est déjà bien mieux ) Le problème est qu'une fois les xref liées/inséré, je perd la configuration des calques. Ce que je souhaiterais : - lancer un wbloc sur le fichier qui intègre toutes les xref avec les bons calques déjà affichés Quelqu'un aurait un lisp, une idée, une méthode ? Merci d'avance.

Bonjour, j'utilise la fonction extraction de données d'Autocad 2011 pour des bloc avec attribut (étiquette). Il me génère automatiquement un tableau autocad dans mon espace objet. Ce qui est super bien c'est que ce tableau vie en fonction de l'ajout/suppression/modification de mes étiquettes (fichier DXE en xref). Cependant j'ai besoin d'ajouter une colonne "non intelligente" à la suite du tableau (je ne veux pas mettre l'info dans mon étiquette). Le problème est quand je met à jour les données ou que je fait un tri ou autre, la colonne "non intelligente" ne suis pas les lignes qui viennent de se mettre à jour. C'est du coup pas bien du tout, mes données sont mélangées... Quelqu'un aurait-il une astuce ?

Ca marche impeccable, merci :D

Bonjour, Je relance ce vieux sujet. Je rencontre un petit soucis avec ce lisp. En effet lorsque l'xref n'est pas positionnée à la même origine que le fichier les trait d'axe ne se cale pas au bon endroits. Est-il possible d'intégrer ce décalage d'origine dans le lisp ? Merci d'avance.

Bon et bien encore une fois un très grand merci. C'est magnifique ça marche super j'habille mes plans à la vitesse grand V maintenant !! Super boulo. http://www.smileys-gratuits.com/smiley-bravo/bravo-10.gif

J'obtiens ce message d'erreur : "Selectionner un cercle: ; erreur: type d'argument incorrect: point 2D/3D: nil" Est-ce du au fait que le cercle est sur une xref ? Et si je sélectionne un arc j'obtiens : "Selectionner un cercle: L'objet ne convient pas! Attend un CERCLE."

Que d'efficacité et de rapidité ;) Par contre je crois bien que je me suis mal exprimé, je parlais plutot de ceci : http://leconmath.tableau-noir.net/images/symetrie-cercle.jpg Du coup je sais pas si c'est applicable au même lisp ?

Bon c'est encore moi... Maintenant que les traits d'axe fonctionnent niquel, je me suis dit qu'il était peut être possible de faire la même chose avec les cercles ? Alors j'ai déjà lu un post la dessus, mais comme mes cercles sont sur une xref et pas toujours fermés, je ne peut pas les sélectionner. Actuellement j'utilise un bloc construit à l'échelle 1:1 que je déforme en fonction du Ø de mon cercle. Ca marche pas mal mais pas très pratique...

Ok ! Merci encore pour ce lisp bien pratique.

Ca marche niquel !! Merci !! Ca me sauve la vie :D Je vais juste être un peux chian, mais plutot que de proposer la possibilité il serait pas plus "transparent" de tester la longeur de la ligne créer et si elle vaut 0 choisir automatiquement l'autre solution ? Si c'est pas possible, c'est pas grave, c'est niquel comme ça !!

Bon et bien la solution est venu d'un de mes collègue de boulo qui à lu le forum... !! La voici : ;;;================================================================= ;;; ;;; CTB.LSP V1.01 ;;; ;;; Changer le style d'impression des Présentations ;;; ;;; Copyright (C) Charles Piro ;;; ;;; ;;;================================================================= (defun c:ctb(/ s *errctb* MsgBox) ;;;--------------------------------------------------------------- ;;; ;;; Gestion des erreurs ;;; ;;;--------------------------------------------------------------- (defun *errctb* (msg) (if (/= msg "Function cancelled") (if (= msg "quit / exit abort") (princ) (princ (strcat "\nErreur : " msg)) ) (princ) ) (setq *error* s) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) (princ) ) ;;;--------------------------------------------------------------- ;;; ;;; Message ;;; ;;;--------------------------------------------------------------- (defun MsgBox (Titre Bouttons Message / Reponse WshShell) (vl-load-com) (setq WshShell (vlax-create-object "WScript.Shell")) (setq Reponse (vlax-invoke WshShell 'Popup Message 7 Titre (itoa Bouttons))) (vlax-release-object WshShell) Reponse ) ;;;--------------------------------------------------------------- ;;; ;;; Routine principale ;;; ;;;--------------------------------------------------------------- (defun multiplie_pre(/ config doc init_ctb lay liste_lay lst n position positiondests resultat tra) (if (findfile "ctb.dcl") (progn (setq init_ctb (load_dialog (findfile "ctb.dcl"))) (setq liste_lay nil n 0 position "0" positiondest "0" doc (vla-get-activedocument (vlax-get-acad-object))) (setq tra (vlax-safearray->list (vlax-variant-value (vla-getplotStyleTablenames (vla-get-layout (vla-get-modelspace doc)))))) (if (vl-position "Aucun" tra) (setq tra (vl-remove "Aucun" tra)) ) (vlax-for lay (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))) (setq lst (append lst (list (cons (vla-get-taborder lay) lay)))) ) (while (assoc n lst) (setq liste_lay (append liste_lay (list (vla-get-name (cdr (assoc n lst)))))) (setq n (1+ n)) ) (if (vl-position "Model" liste_lay) (setq liste_lay (vl-remove "Model" liste_lay)) ) (new_dialog "ctb" init_ctb "") (start_list "ctb") (mapcar 'add_list tra) (end_list) (start_list "dest") (mapcar 'add_list liste_lay) (end_list) (set_tile "titre" "Sélection Styles d'impression V1.01") (set_tile "ctb" position) (set_tile "dest" positiondest) (mode_tile "ctb" 2) (while (and (/= resultat 1)(/= resultat 0)) (action_tile "ctb" "(setq position $value)") (action_tile "dest" "(setq positiondest $value)") (action_tile "accept" "(done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (setq resultat (start_dialog)) ) (unload_dialog init_ctb) (if (eq resultat 1) (while (not (eq positiondest "")) (setq n (read positiondest)) (vlax-for lay (vla-get-layouts doc) (if (eq (nth n liste_lay) (vla-get-name lay)) (progn (vla-put-StyleSheet lay (nth (atoi position) tra)) (princ (strcat "\nPrésentation " (vla-get-name lay) " Configurée avec " (nth (atoi position) tra))) ) ) ) (setq positiondest (substr positiondest (+ 2 (strlen (itoa n))) (strlen positiondest))) ) ) ) (msgbox "ctb" 16 "Fichier ctb.DCL introuvable") ) ) ;;;--------------------------------------------------------------- ;;; ;;; Routine de lancement ;;; ;;;--------------------------------------------------------------- (vl-load-com) (setq s *error*) (setq *error* *errctb*) (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) (multiplie_pre) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) (setq *error* s) (princ) ) (setq nom_lisp "ctb") (if (/= app nil) (if (= (strcase (substr app (1+ (- (strlen app) (strlen nom_lisp))) (strlen nom_lisp))) nom_lisp) (princ (strcat "..." nom_lisp " chargé.")) (princ (strcat "\n" nom_lisp ".LSP Chargé.....Tapez " nom_lisp " pour l'éxecuter."))) (princ (strcat "\n" nom_lisp ".LSP Chargé......Tapez " nom_lisp " pour l'éxecuter."))) (setq nom_lisp nil) (princ) Et je vous met en prime le .dcl qui va bien ;) Encore merci !! ctb.dcl

Effectivement merci, c'est une très bonne "bidouille". A creuser... Cependant il y a des gens, à mon travail, pas très à l'aise avec la manipulation de fichier, j'ai peur que la manip soit un peux lourde. Mais en tout cas merci, ça va,perso, bien me dépanner pour l'instant.

Oups, éffectivement... C'était bien ça. Du coup ça fonctionne très bien pour les arcs qu'il soit sur une xref ou direct dans le dessin. Ca fonctionne aussi très bien pour 2 lignes directement sur le dessin, par contre pour 2 lignes sur l'xref, il me dessine un point (une ligne de longueur 0 pour être exacte). Il n'arrive pas à dessiner un trait d'axe de la bonne longueur. Vu que j'y connais pas grand chose en lisp, est-ce quelquechose de facile à modifier ?

Merci, Je viens d'essayer le lisp mais j'obtient une erreur : ; erreur: nombre d'arguments insuffisants J'ai changé le début du code pour lancer le lisp avec la commande "tax" : (defun c:tax (msg / ent dxf_ent) Ai-je fait une boulette ??

Bonjour, Voilà le "petit" soucis que je rencontre. J'ai un fichier modèle de présentation (59 présentations). Chaque présentation est configurée avec DWG to PDF et avec un style de tracé : "Aucun". J'aurais besoin, lorsque je publie les 59 présentations de changer les plumes. J'ai bien trouver la solution d'utiliser une mise en page nommé mais les 59 présentations sont toutes différentes. Du coup je perd les formats de papier et/ou traceur... La solution (à la main) que j'ai trouvé est de copier une présentation "non nommée" de la "nommer" pour une plume couleur et de faire de nouveau la manip, pour une plume N&B. Mais bon 2*59 présentations, ça va être super long. Une solution plus rapide ? Merci d'avance.

Oui effectivement j'avais bien 2-3 astuces à ce sujet mais le soucis c'est que ce n'est pas des polylignes, c'est des lignes et qui plus est en xref (donc pas sélectionnable). Il n'est pas concevable pour nous de travailler directement sur l'xref puisque qu'elle est 100% régénérée assez souvent par l'autre logiciel, ce qui aurrait comme concéquence de supprimer le travail.