Refaire tous les blocs dans une couleur et calque choisi

[Netparty]

Bonjour à tous

Je dois modifier une bonne quantités de blocs dans les lesquels je dois changer le calque et la couleur des éléments du bloc.

Je suis à la recherche d'un Lisp qui permet de changer le calque du bloc vers le calque "2D_Symboles" et d'avoir la possibilité de choisir la couleur.

Merci d'avance pour votre aide

[lecrabe]

Hello

SVP plus d explications :

1) Veux tu que toutes les entites du Bloc soient sur un calque specifique et NON PAS sur le calque ZERO !?

2) Veux tu que toutes les entites du Bloc soient d une couleur specifique et NON PAS en Mode DuBloc ou DuCalque ?

Bye, lecrabe

 

[Netparty]

Bonjour @lecrabe

1) Veux tu que toutes les entites du Bloc soient sur un calque specifique et NON PAS sur le calque ZERO !?

Oui toutes les entites sur un calque spécifique

2) Veux tu que toutes les entites du Bloc soient d une couleur specifique et NON PAS en Mode DuBloc ou DuCalque ?

Oui toutes les entites sur une couleur spécifique

Merci à toi

[lecrabe]

Hello

Je ne sais pas modifier le programme Lisp  ( RB_Zero_ByLayer )  que j ai et qui provient de notre regrette Patrick_35

MAIS tu pourras mettre a la main le calque que tu veux (qui doit exister) et le code couleur que tu veux (1-255)

Voir ci apres 2 lignes A MODIFIER  :    vla-put-layer  ET  vla-put-color

;;;--- Forcer sur Calque  / Layer 0 
         (vla-put-layer  ent  "0")

;;;--- Forcer la couleur sur Dubloc / ByBlock 
;;       (vla-put-color  ent  0   )     ;; ByBlock 
         (vla-put-color  ent  256 )   ;; ByLayer 

;;;--- Forcer le type de ligne sur Dubloc / ByBlock 
;;       (vla-put-linetype ent "ByBlock")  ;; ByBlock 
         (vla-put-linetype ent "ByLayer")  ;; ByLayer 

;;;--- Forcer l'epaisseur de ligne sur Dubloc / ByBlock 
;;       (vla-put-lineweight ent -2)  ;; ByBlock 
         (vla-put-lineweight ent -1)  ;; ByLayer 

 

En attendant une amelioration par un developpeur Lisp / VLisp qui poserait 2 questions !?

 

Bye, lecrabe

 

 

RB_Zero_ByLayer__US_v202.zip

[Netparty]

@lecrabe

 

Merci pour ton aide

Bonne soirée

[rebcao]

Bonjour,

J'utilise un système de fichier qui va générer un fichier SCRIPT et qui va traiter TOUS les fichiers présents dans le DOSSIER courant et tous ses SOUS-DOSSIERS...

Mais c'est BRUTAL il traite TOUS LES FICHIERS de la même manière !

Il s'agit d'un simple fichier .BAT que je place dans le dossier et l'exécute et je retourne sur AutoCAD pour exécuter le SCRIPT... 

Si tu avais quelques DWG pour TEST ?

Merci.
Christian

[Steven]

Bonjour @Netparty,

 

Ce que tu souhaites faire va totalement à l'encontre de la bonne manière de créer des blocs, mais bon...

 

La routine EDIT_BLOC.vlx de @(gile) fait ce que tu souhaites.

EDIT_BLOC.VLX

[rebcao]

Oui Steven, 

Oui, mais bon !   🙃

Christian

[lecrabe]

Hello

OOPS SORRY, j avais complètement oublié Edit_Bloc.vlx !

Bye, lecrabe

 

[Netparty]

Bonjour @Steven @rebcao @lecrabe

Oui je sais que cela va l’encontre des bonne manière de création de bloc mais le but ici est d'exporter ensuite les blocs dans des familles Revit.

 

Bonne soirée à tous

[Tsami]

Le 14/11/2024 à 18:47, Netparty a dit :

Bonjour à tous

Je dois modifier une bonne quantités de blocs dans les lesquels je dois changer le calque et la couleur des éléments du bloc.

Je suis à la recherche d'un Lisp qui permet de changer le calque du bloc vers le calque "2D_Symboles" et d'avoir la possibilité de choisir la couleur.

Merci d'avance pour votre aide

Bonsoir, je suis nouveau dans ce forum.
Je veux bien t'aider, est ce que tu peux donner plus d'informations sur ta demande.
 Tu peux donner un petit extrait de ton fichier dwg par exemple..