Faby38

Bonjour à tous, Lorsque je cliquais sur le croquis sous Excel (=INCOPORER("AutoCAD.Drawing.16";""), cela m'ouvrait Autocad, je pouvais faire des modifications et retourner sous Excel. Suite à un changement de poste, cela ne fonctionne plus. Cela fonctionne toujours sur le poste d'un collègue (même version Excel / même version Autocad) Merci pour votre aide. Essai.xlsm

J'ai tâtonné pour créer le bloc "Boulon" (visibilité, angle, longueur) il réagi comme je le souhaite, du coup je ne suis pas allé chercher plus loin, même si cela ne colle pas aux bonnes pratiques. Je ne suis pas tout seul à venir piocher ce croquis ou un morceau de croquis (inspecteurs, contrôleurs, atelier...). Nous avons l'habitude de fonctionner de cette façon en venant copier un bout de DWG. Si j'utilise 3 fois BURST dans la ligne de commande, puis tout mettre en noir cela fonctionne. Je vais laisser tomber le LISP, ceci me convient. Merci encore pour votre aide.

Bonjour à tous, Merci pour vos retours et pour votre aide. Je ne connaissais pas BURST. J'ai fait plusieurs tests (uniquement en tapant BURST dans la ligne de commande). Sur ma pièce jointe, cela fonctionne bien sur le repère de tubulure qui garde bien sa valeur B1 et pas le nom de l'attribut (A1.1). Cependant, je suis obligé de faire plusieurs BURST sur la boulonnerie pour arriver à la décomposer complètement (BURSTer 3 fois ?) Je retrouve ces blocs plusieurs fois sur l'ensemble de mon plan, mais je veux BURSTer uniquement sur une sélection sans que cela influe sur le reste du plan. Et ensuite tout passer en NOIR (et pas en Blanc...). Merci. BURST.dwg

Bonjour à tous, J'utilise ce LISP pour Tout mettre en blanc (je récupère un morceau de plan pour le mettre sur une page de garde de dossier sous Excel et il faut qu'il soit en blanc). Le problème est que les blocs se fichent bien du LISP et gardent une couleur éclatante... Ils contiennent du texte et si je les décompose je récupère le nom de l'attribut et non plus sa valeur. Merci pour votre aide. (defun c:Blanc () (vl-load-com) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) (setq modelSpace (vla-get-ModelSpace doc)) ;; Demander à l'utilisateur de sélectionner les objets (setq selectionSet (ssget)) (if selectionSet (progn ;; Fonction pour modifier la couleur des objets tout en préservant le type de ligne (defun ChangerCouleur (obj) (if (vlax-property-available-p obj 'Color) (vla-put-Color obj 7) ;; Blanc (Index couleur 7) ) (if (vlax-property-available-p obj 'Linetype) (setq linetype (vla-get-Linetype obj)) ;; Sauvegarde du type de ligne ) (if linetype (vla-put-Linetype obj linetype) ;; Réapplication du type de ligne ) ) ;; Modifier les objets sélectionnés (setq i 0) (repeat (sslength selectionSet) (setq obj (vlax-ename->vla-object (ssname selectionSet i))) (ChangerCouleur obj) (setq i (1+ i)) ) ;; Modifier les objets dans les blocs sélectionnés uniquement (setq i 0) (repeat (sslength selectionSet) (setq obj (vlax-ename->vla-object (ssname selectionSet i))) (if (eq (vla-get-ObjectName obj) "AcDbBlockReference") (progn (setq blkName (vla-get-EffectiveName obj)) (setq blk (vla-item (vla-get-Blocks doc) blkName)) (vlax-for blkObj blk (ChangerCouleur blkObj) ) ;; Déplacer les blocs vers le calque "0" (if (vlax-property-available-p obj 'Layer) (vla-put-Layer obj "0") ) ) ) (setq i (1+ i)) ) ;; Modifier la couleur des cotations sélectionnées uniquement (traits, texte et flèches) (setq i 0) (repeat (sslength selectionSet) (setq obj (vlax-ename->vla-object (ssname selectionSet i))) (if (or (wcmatch (vla-get-ObjectName obj) "*Dimension*") (eq (vla-get-ObjectName obj) "AcDbDimension")) (progn ;; Modifier la couleur des traits de cotation (ChangerCouleur obj) ;; Modifier la couleur du texte de cotation (if (vlax-property-available-p obj 'TextColor) (vla-put-TextColor obj 7) ) ;; Modifier la couleur du MText si présent (if (vlax-property-available-p obj 'MText) (progn (setq mtextObj (vla-get-MText obj)) (if mtextObj (vla-put-Color mtextObj 7) ) ) ) ;; Modifier la couleur des flèches, lignes d'attache et lignes d'extension (if (vlax-property-available-p obj 'Dimclrd) (vla-put-Dimclrd obj 7) ;; Couleur des lignes d'attache et de cote ) (if (vlax-property-available-p obj 'Dimclrt) (vla-put-Dimclrt obj 7) ;; Couleur des flèches ) (if (vlax-property-available-p obj 'Dimclre) (vla-put-Dimclre obj 7) ;; Couleur des lignes d'extension ) ;; Déplacer les cotations et les lignes de repères vers le calque "1-FORT" (if (vlax-property-available-p obj 'Layer) (vla-put-Layer obj "1-FORT") ) ) ) (setq i (1+ i)) ) (princ "\nLes objets sélectionnés, y compris les blocs (déplacés vers le calque 0) et les cotations (déplacées vers le calque 1-FORT), ont été mis en blanc tout en conservant leur type de ligne.") ) (princ "\nAucune sélection effectuée.") ) (princ) )