comment adapter la caracteristique "couleur" des blocs au calque courant

[Anonymous]

Bonjour

je suis sur Autocad 2017 (utilisateur débutant)

J'ai crée un certain nombre de blocs dynamiques (poignées de rotation) avec des épaisseur de lignes définies et défini la couleur du bloc sur "DuCalque"

Lorsque j'insère ces blocs (depuis la palette d'outils nouvellement créée) dans un dessin les blocs ne prennent pas la couleur du calque sur lequel je les ai insérés et pas toutes le poignée s'affichent.

Les blocs que j'ai utilisés on été repris depuis une bibliothèque que j'avais crée sur AutoSketch et exportée au format .dwg

merci pour vos conseils

[DVaquand]

Bonjour

Lorsque vous créez le bloc, placez les objets dans le calque "0".

Si vous leur attribuez la couleur "Ducalque" ou le type de ligne "Ducalque", lorsque vous insérerez ce bloc dans un calque il prendra la couleur du calque.

Si vous attribuez la propriété "Dubloc", lorsque vous l'insérerez il prendra par défaut la couleur du calque mais il pourra aussi prendre une couleur forcée.

Cordialement

Dominique VAQUAND

www.dominique-vaquand.com

[braudpat]

Hello

+1 avec Dominique !

En plus au moment de faire la commande BLOC ou WBLOC, SVP BIEN VÉRIFIER que l'on est sur le calque ZERO !!

Regards, Patrice

[Anonymous]

Merci du renseignement

Je me sis rendu compte que lors de l'importation du fichier de symboles de mon ancien programme de dessin, les blocs sont constitués d'une multitude d’objets sur des calques différents "gasp".

Avez vous une solution pour pouvoir facilement passer tous les objets d'un bloc sur le calque "0" ?

Merci

[DVaquand]

Bonjour

Pour affecter à tous les objets d'un bloc le calque 0 et les propriétés "Ducalque", vous pouvez utiliser l'éditeur de blocs.

Dans le menu "Outils" => "Editeur blocs" ou la commande "MODIFBLOC"

Vous sélectionnez un nom de bloc

Dans l'environnement de l'éditeur de blocs vous sélectionnez tous les objets (CTRL+A) puis dans la fenêtre des propriétés (CTRL+1) vous affectez le calque "0", la couleur, le type de ligne,  l'épaisseur de ligne en propriétés "Ducalque" ou "Dubloc".

Fermez l'éditeur de blocs en sauvegardant les modifications.

Avant de faire la sélection vérifiez que tous les calques soient visibles (Actif et libéré) et non verrouillés.

La différence entre "Ducalque" et "Dubloc" est qu'en "Ducalque" les objets du bloc prendront la couleur affectée au calque sur lequel le bloc sera posé.

En "Dubloc", idem que "Ducalque" avec en plus la possibilité de forcer une autre couleur, type de ligne, épaisseur, sans changer de calque.

Par exemple un bloc placé sur le calque "MUR" pourra être en couleur "Ducalque" ou forcé vers sur une autre couleur : "Rouge","Vert", ...

Cordialement

Dominique VAQUAND

www.dominique-vaquand.com

[_Steven_]

Salut,

Pour mettre tous les objets de tous les blocs qui sont sur ton dessin, d'un seul coup, sur le calque 0 en couleur Dubloc, type de ligne Dubloc et épaisseur Dubloc, utilises ce lisp.

Charge-le puis tape la commande RB > Entrée.

[Anonymous · Accepted solution]

Merci à vous tous pour votre aide.

J'ai essayé un peu toutes les solutions sans arriver vraiment à mes fins.

Après l'utilisation du fichier lisp, il reste des objets qui ne peuvent pas être décomposé ?? je bloque.

Pour finir j'ai fusionné tous les calques sur le calque "0", ensuite j'ai purgé tous les blocs et "autres".

A la suite de ça il me reste mes "symboles" touts nus et je recommence à créer mes blocs.

C'est laborieux, mais j’apprends.

Merci à pour tous vos conseils

à bientôt

[Anonymous]

Bonjour.

Tu as aussi la solution de redéfinir TOUT tes blocs en calque 0 et en couleur DuCalque avec ce petit LISP. Créé un fichier style texte brut (avec BlocNote par exemple) et colle ce code dedans, sauvegarde ton fichier avec l'extension LSP. Tu le charges dans AutoCAD (avec la commande "_appload") et tu tapes "RedefBloc".

;;;*************************************************
;;; Redéfinition des blocs en calque 0 et ducalque  
;;;*************************************************
(defun c:RedefBloc (/)
  (setq a (tblnext "block" t))
  (while a
    (setq b (cdr (assoc -2 a)))
    (while b
      (setq b (entget b))
      (if (cdr (assoc 6 b))
        (setq b (subst (cons 6 "ByLayer") (assoc 6 b) b))
        (setq b (append b (list (cons 6 "ByLayer"))))
      ) ;_ Fin de if
      (setq b (subst (cons 8 "0") (assoc 8 b) b))
      (if (cdr (assoc 62 b))
        (setq b (subst (cons 62 0) (assoc 62 b) b))
        (setq b (append b (list (cons 62 0))))
      ) ;_ Fin de if
      (if (cdr (assoc 370 b))
        (setq b (subst (cons 370 -2) (assoc 370 b) b))
        (setq b (append b (list (cons 370 -2))))
      ) ;_ Fin de if
      (entmod b)
      (setq b (entnext (cdr (assoc -1 b))))
    ) ;_ Fin de while
    (setq a (tblnext "block"))
  ) ;_ Fin de while
  (if (setq a (vl-remove-if-not
                '(lambda (x) (eq (car x) 350))
                (dictsearch (namedobjdict) "ACAD_MLINESTYLE")
              ) ;_ Fin de vl-remove-if-not
      ) ;_ Fin de setq
    (foreach b a
      (entmod
        (append
          (vl-remove-if '(lambda (x) (eq (car x) 62)) (entget (cdr b)))
          (list (cons 62 0) (cons 62 0) (cons 62 0))
        ) ;_ Fin de append
      ) ;_ Fin de entmod
    ) ;_ Fin de foreach
  ) ;_ Fin de if
  (if (setq a (ssget "x" (list (cons 0 "INSERT"))))
    (foreach b (mapcar 'cadr (ssnamex a))
      (if (cdr (assoc 66 (entget b)))
        (progn (setq a (entget (entnext b)))
               (while (not (eq (cdr (assoc 0 a)) "SEQEND"))
                 (entmod (subst (cons 62 0) (assoc 62 a) a))
                 (setq a (entget (entnext (cdr (assoc -1 a)))))
               ) ;_ Fin de while
        ) ;_ Fin de progn
      ) ;_ Fin de if
      (entupd b)
    ) ;_ Fin de foreach
  ) ;_ Fin de if
  (princ "Redéfinitions des blocs faite.")
  (princ)
) ;_ Fin de defun 

 Il me semble que ce code est de Patrick_35 dans www.cadxp.com.

Denis...

[aminajm4PZFR]

Grand merci, ça m'a sauvé

[patrick.emin]

@aminajm4PZFR content que @Anonymous ai pu vous aider si rapidement ! 😀