nen

Oui en effet mais bon c'est difficile d'imposer des commandes, il y a des mauvaises habitudes difficile à perdre ;) Je suis d'accord avec toi mais cela demande de connaitre Excel au niveau VBA ce n'est donné à tout le monde. Merci de votre aide Toujours aussi efficace le forum ;-)

Super merci cela fonctionne impeccable :D Ce qui sont fort ses Tchèques ;)

J'ai testé ton lisp malheureusement toutes mes fenêtres sont restées avec UCSFOLLOW=1 :blink:

En effet mes collègues quand il tourne le SCU ils utilisent la commande tourner le SCU par Objet et avive la coche "Basculer en vue plane quand le SCU est modifié" (UCSFOLLOW=1). Par contre quand il sorte de la fenêtre il oublie de désactiver "Basculer en vue plane quand le SCU est modifié" (UCSFOLLOW=0) et sur plusieur onglets. :angry: Comment faire pour tous les mettre en UCSFOLLOW=0

Bonjour le forum :D , J’ai un petit problème :unsure: , j'aurais besoin de votre aide avec un dézoom des fenêtres dans plusieurs présentations (onglet) Je pense qu’un jour tout le monde a été confronté à cette problématique. Le dézoom à l'activation des fenêtres dans les présentations avec la variable UCSFOLLOW = 1. Serait-il possible de le régler avec un lisp ou autre automatisation à remettre la variable "UCSFOLLOW = 0" dans toutes les fenêtres dans toutes les présentations ? Meilleures salutations

Bonjour, Super merci lecrabe c'est exactement ça :D Beau travail :) Profite bien de ta retraite ;) Sortez couvert

Oui exactement ;) Sortez couvert

Super merci lecrabe :) En effet cela fonctionne nickel :D . Pour copier la valeur d’un attribut vers plusieurs blocs ayant le même nom d’attribut, il est nickel Dans mon cas j’ai environ 300 blocs avec des valeurs différentes sur lesquels je dois faire cette manipulation… cela va vite devenir pénible. Est-il possible qu’il ne demande pas le nom de l’attribut sur le bloc de destination ? Une fois l’objets sélectionner il copie directement sans demander le nom de l’attribut. Meilleures salutations - Sortez couvert

Bonjour, 1) ok je changerais "N°" en "NO" 3) NON pas tous les attributs. Je ne veux pas les concaténer non plus. Seulement un seul attribut du bloc A. 4) Oui, je voudrais transférer l'attribut "ZONE" vers l'attribut "N°" @+

Bonjour, Je vous remercie pour votre aide :) . Pour répondre sur le point 3), en effet il fait une copie de l’attribut, mais uniquement la première valeur sur un bloc qui en contient plusieurs. Ma problématique c’est que je reçois des plans avec blocs avec plusieurs attributs de différentes sociétés et je dois récupérer une valeur pour la copier sur mon bloc (bloc B ) à un seul attribut. Les blocs ont différentes provenances, ils n’ont rien en commun. Ci-joint un dwg (Dessin1.zip) avec deux blocs, bloc A et bloc B (mon bloc). Je voudrais copier la valeur de l’étiquette « ZONE » du bloc A vers le bloc B. Merci d’avance, Meilleures salutations Dessin1.zip

Bonjour lecrabe :D , En effet si tu essayes avec les miens c’est mieux ;) . J’ai des plans avec des blocs de différentes provenances, ils n’ont donc rien en commun. L’idée, avec mes blocs je voudrais pouvoir copier la valeur X(1), Y(2) ou Z(3) du bloc A et la coller sur le bloc B avec ou sans donnée (vide). J’ai la version AutoCAD 2021. Pas de soucis ;) . Merci pour ton aide :) Meilleures salutations

Bonsoir Philphil, Bonsoir lecrabe, Je vous remercie pour votre message, vos conseils et votre précieuse aide :) . En effet j’utilise le Lisp MDA souvent et il fonctionne très bien, sauf dans mon cas actuel. Je viens aussi d’essayer le Lisp Cat et CatP avec le même résultat. Est-il possible de copier un attribut d’un bloc qui en comporte plusieurs à un autre bloc sans qu’il y ait aucune correspondance entre ses deux blocs ? PS : Félicitation et profiter bien de votre retraite et sortez couvert Meilleures salutations

Bonjour Luna, Je te remercie pour tes messages :D . Malheureusement ce lisp n’est pas de moi, je n’ai pas les compétences pour l’écrire :( . Il est de PHILPHIL, transmis lors de l’un de mes précédents postelien, je trouve l’idée très bien, sauf qu’il ne fonctionne pas quand je valide :blink: . Oui en effet les blocs sont différents et n’ont rien en commun. Ma problématique, je reçois un plan avec des blocs qui contient plusieurs attributs et je dois récupérer une des valeurs et la copier dans un autre bloc qui m’est imposer pour la réalisation d’un plan. Il y a environ 300 blocs sur le plan, si je peux éviter de les remplir manuellement cela m’arrangerait et vu le nombre me ferait gagner beaucoup de temps. S’il est possible de faire quelques choses, je t’en remercie d’avance :D Meilleures salutations

Bonjour le forum :D, Je me permets de revenir de vers vous avec cette problématique récurrente :blink: . J’avais mis le post [RESOLU] à ma première question de l’époque mais jamais eu de réponse à ma dernière question et aujourd’hui j’en aurais besoin. Mon lien En effet je voudrais récupérer une valeur d'un bloc avec plusieurs attributs vers un autre bloc avec un attribut. Le nom des blocs est différent, le nom des étiquettes est différente, sur des calques différents et de couleur différente en faite rien est identique. Je joins aussi le lisp mda.lsp qui semble être très bien mais malheureusement ne fonctionne pas une fois validé mon choix. Je l’ai essayé avec plusieurs blocs, il n’a jamais fonctionné. Je joins un dwg avec deux blocs différent. Je voudrais récupérer la valeur en rouge du bloc A vers le bloc B et si possible pouvoir aller dans les deux sens. Ma question est pourquoi le lisp mda ne fonctionne pas ?, même si les blocs sont dans le même calque. Je vous remercie de votre aide vous me sauveriez la vie :( . Meilleures salutations (defun c:mda (/) (setvar "cmdecho" 0) (setvar "CURSORSIZE" 10) (setq osm (getvar "osmode")) (if (and (setq source (car (entsel "\nCLIQUER SUR LE BLOC DE REFERENCE : "))) (setq source (vlax-ename->vla-object source)) (= (vla-get-objectname source) "AcDbBlockReference") ) (progn (setq layerbloc (vla-get-layer source) namebloc (vla-get-effectivename source) ) ) ) (setq compt 0 propdynnom nil propdynnom2 nil propdynnom3 nil pop2 nil ) (foreach att (vlax-invoke source 'getattributes) (setq propdynnom2 (cons (cons (vla-get-tagstring att) (vla-get-textstring att)) propdynnom2)) ) (setq propdynnom (vl-sort propdynnom2 (function (lambda (p1 p2) (< (car p1) (car p2)))))) (prompt "\nSELECTIONNER LES BLOCS A MODIFIER:") (setq selinsert (ssget (list (cons 0 "INSERT") ))) (setq com (sslength selinsert)) (boitepropdyn3) (foreach att (vlax-invoke source 'getattributes) (progn (if (member (vla-get-tagstring att) listeparam) (setq propdynnom3 (cons (cons (vla-get-tagstring att) (vla-get-textstring att)) propdynnom3)) ) ) ) (setvar "CURSORSIZE" 100) (setq compt 0) (acet-ui-progress-init "Avancement" com) (while (< compt com) ;;; (boiteavancement) (if (= (vla-get-effectivename (vlax-ename->vla-object (cdr (assoc -1 (entget (ssname selinsert compt)))))) namebloc ) (progn (foreach bidyn propdynnom3 (progn (setq nomprop (car bidyn) valprop (cdr bidyn) ) (foreach prop (vlax-invoke (vlax-ename->vla-object (cdr (assoc -1 (entget (ssname selinsert compt))))) 'getattributes ) (if (= (vla-get-tagstring prop) nomprop) (vla-put-textstring prop valprop) ) ) ) ) ) ) ;;; (prompt (strcat "\rENTITE(S) TRAITEE(S) : " ;;; (rtos compt 2 0) ;;; " SUR : " ;;; (rtos com 2 0) ;;; ) ;;; ) (acet-ui-progress-init (strcat "Avancement " (rtos (/ (* compt 100) (float com)) 2 2) " %") com) (acet-ui-progress-safe compt) (setq compt (1+ compt)) ) (acet-ui-progress-done) (setvar "osmode" osm) (princ) ) (defun boitepropdyn3 (/ tmp file fuzz ;;ret pn av dcl_id val) (setq tmp (vl-filename-mktemp "Tmp.dcl") file (open tmp "w") ret nil ) (write-line (strcat "DynBlkProps:dialog{label=\"Blocs dynamiques\";" " :text{label=\"Nom du bloc : \"" (vl-prin1-to-string namebloc) ";} :text{label=\"Nombre de bloc : " (itoa com) "\"; } :boxed_column{label=\"Propriétés dynamiques\";" ) file ) (foreach pn propdynnom (progn (if (= (numberp (cdr pn)) nil) (setq lab1 (strcat (car pn) " = " (cdr pn))) (setq lab1 (strcat (car pn) " = " (rtos (cdr pn) 2))) ) (write-line (strcat ":row{:toggle {key = \"" (car pn) "\"; label =" (vl-prin1-to-string lab1) ";}}") file ) ) ) (write-line "}spacer;ok_cancel;}" file) (close file) (setq dcl_id (load_dialog tmp)) (if (not (new_dialog "DynBlkProps" dcl_id)) (exit) ) (action_tile "accept" "(foreach p propdynnom (if (assoc (car p ) POP2) (setq val (nth (atoi (get_tile (car p ))) (cdr (assoc (car p ) POP2)))) (setq val (get_tile (car p )))) (if (and val (/= val \"\")) (setq ret (cons (cons (car p ) val) ret))) ) (and (not ret) (setq ret T)) (done_dialog)" ) (action_tile "cancel" "(setq ret nil)") (start_dialog) (unload_dialog dcl_id) (vl-file-delete tmp) (setq listeparam nil) (foreach p ret (if (= (atoi (cdr p)) 1) (setq listeparam (cons (car p) listeparam)) ) ) ) Lisp_MDA-dwg.zip

Bonjour, Je vous remercie pour votre aide à vous deux ;) , Gilles pour ses lisp et tout le forum au passage. En effet, j’ai essayé le lisp mis à jour par Luna avec la petite solution du lecrabe, cela fonctionne impeccable :D . Le problème avec les hachures solides… je n’aurais jamais trouvé :o , bravo ! :D :D Merci pour votre aide… vous êtes au top. Meilleures salutations

Bonjour, Je vous remercie « lecrabe » et « Luna » pour votre aide :D . Avec mon bloc cela ne fonctionne pas, j'ai ce message ci-dessous avec les deux versions du lisp ATT_ADD : « L Objet selectionne n'est pas un attribut ! » ?!? Je joins le fichier avec mes blocs qui ne fonctionnent pas « No4c_detecteur » et des nouveaux que j'ai créés avec qui le lisp ATT_ADD fonctionne ??????? J'aimerais bien savoir pourquoi cela ne fonctionne pas, je les ai refait plusieurs fois et toujours le même message ??? Merci d'avance Meilleures salutations ATT_ADD.zip

Bonjour au forum, J’ai des plans de 5 niveaux sur lequel se trouve dans chaque pièce un bloc avec un attribut « N° » qui numérote les détecteurs feu. Je dois placer ses blocs sur chaque niveau au même endroit avec une numérotation type hôtelière, 100 pour le niveau 1, 200 pour le niveau 2, etc. Est-il possible avec un lisp de modifier la valeur de l’attribut afin de ne pas les rentrer à nouveau à la main ce qui est fastidieux. Je voudrais copier mes blocs du niveau 1 et les coller sur le niveau 2 et transformer mes blocs avec la valeur 100, 101, 102, etc. avec une valeur de 200, 201, 202, etc. Merci d’avance, Meilleures salutations

Merci zebulon :D Une bête faute de frappe ;) Et pourtant j'ai vérifié je ne sais pas combien de fois :) Merci pour ton aide. Meilleures salutations

Bonjour le forum, Je me permets d'écrire sur ce poste, car j'ai aussi fait un petit lisp très basique qui convertit toutes les variables en centimètre, j’ai voulus rajouté la modification des précisions "LUCPREC" et "AUPREC" pour les mêmes raison que GER-onimo. J'ai un problème avec la variable "LUCPREC" qui m'affiche une erreur et arrête mon lisp. Quelqu'un pour me dire pourquoi étant novice ne voit pas ? :blink: (defun C:CONVERTC () (setvar "LTSCALE" 1) (setvar "INSUNITS" 5) (setvar "LUNITS" 2) (setvar "LUCPREC" 2) (setvar "AUNITS" 0) (setvar "AUPREC" 1) (setvar "DIMSCALE" 1) (setvar "DIMLFAC" 1) (setvar "DIMLUNIT" 2) (setvar "INSUNITSDEFSOURCE" 5) (setvar "INSUNITSDEFTARGET" 5) ) Merci d'avance pour votre aide Meilleures salutations

Salut, J'ai donc fusionné les deux lisp en un "mda.lsp" et changé la ligne comme convenu. Malheureusement le lisp ne fonctionne toujours pas. Jusqu'à la boîte de dialogue avec les case à cocher c'est ok. Une fois cocher, je clique sur OK, il n'y a aucun changement :( Commande: _appload mda.lsp correctement chargé(s) Commande: MDA CLIQUER SUR LE BLOC AVEC LES DONNEES : SELECTIONNER LES BLOCS A IMPORTER LES DONNEES: Sélectionner des objets: 1 trouvé(s) Sélectionner des objets: Commande: J'ai mise à jour le lisp dans le dossier ci-dessous: https://www.dropbox.com/sh/ph9xe4flege8ivw/AAA8lsYYN0rOtwGOr-Uo1CAGa?dl=0 Si chez toi cela fonctionne est-ce mon fichier dwg ou les blocs qui a/ont un problème ? Merci de ton aide Meilleures salutations

Salut Patrick, Je te remercie pour ton message et pour la modifications du lisp . En effet il fonctionne nickel ;) Meilleures salutations

Bonjour le forum, J'ai besoin de vos lumières ;) Je voudrais comprendre la famille "M_Ouverture-Fenêtre-Carré.rfa". :blink: En effet je voudrais sur cette base créer une famille par exemple "M_Ouverture-Thechnique-Carré.rfa" avec une différence, avoir un paramètre pour le positionnement de l'ouverture par rapport à la sous-dalle, au lieu d'avoir la contrainte "Elévation", je voudrais la contrainte "Hauteur sous-dalle". J'ai compris les familles en gros comment elles sont faites, mais celle-ci je ne comprends pas et elle m'intéresse. J'ai essayé de la modifier mais malheureusement elle ne fonctionne pas :( Est-ce quelqu'un a une solution ou une explication ? Merci d'avance Meilleures salutations

Salut, J'ai réessayé et en effet cela a fonctionné :D . La première fois j'avais eu un message d'erreur, maintenant c'est ok. C'est peut-être mon anti-virus ou le pare-feu qui te temps en temps me joue des tours :-) Je te remercie pour ton aide et tes lisps qui nous simplifie bien la vie ;-) Malheureusement dans mon actuellement j'ai des vieux plans avec des anciens bloc/attribut. J'aurais voulu les récupérer dans nos nouveaux bloc/attribut, j'ai essayé avec les lisp CAT et RBLOC et cela ne va pas car je n'ai pas le même nombre et les mêmes noms d'attribut. Par contre le lisp de PHILPHIL de vrai faire le boulot malheureusement rien ne se passe et je sais pas pourquoi ? :( Ci-dessous le lien avec les deux lisp de PHILPHIL et le dwg https://www.dropbox....Or-Uo1CAGa?dl=0 Meilleures salutations

Bonjour le forum :) Salut lili2006 ;) , Je te remercie en effet j'ai pu télécharger le fichier, merci :D Merci de ton aide Meilleures salutations

Salut lili2006, Je te remercie pour ton message :D . Normalement là ou il devrait être placé, il fait bien partie des chemins de recherche. En faite cherchant sur mon disque dure, je n'ai pas le fichier "RBLOC.DCL" voilà pourquoi cela ne fonctionne pas et je n'arrive pas à le télécharger sur la page de Patrick_35 :( http://cadxp.com/topic/11038-lisps-de-patrick-35/ Merci de ton aide Meilleures salutations