Lisp RB sur Autocad 2019

[Joutof]

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 ?

[Steven]

Salut,

 

Voici ---> Ici

[Joutof]

Merci.

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

[Steven]

C'est surprenant car il fonctionne parfaitement de mon côté avec les blocs imbriqués.

 

AutoCAD 2018, 2019 et 2020

 

Peux-tu partager ton fichier avec lesdits blocs?

 

[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.

[lecrabe]

Hello

 

Avec le bon RB_Zero du regrette Patrick_35, je n ai pas de souci particulier avec AutoCAD 2016 - 2019 ! Et je suis presque sur de l'avoir aussi utilise sur de la version 2020 !?

 

Par contre ton DWG est une horreur provenant sans doute de ArchiCAD !!

 

Saloperie de multiples Blocs de l'Export DWG de ArchiCAD !!

 

http://dl.free.fr/kpE0ouTXA

 

Good Luck, Bye, lecrabe "triste"

[bonuscad]

Ce qui pose problème dans ton dessin est l'utilisation de la couleur codée sur 24 bit (code DXF 420)

Si l'on l'enlève cela à l'air de fonctionner.

 

Hommage à Patrick_35

Rajouter dans la boucle (while b

 	(if (cdr (assoc 420 B))
(setq b (vl-remove (assoc 420 B) B))
 	)

 

PS:

Je n'arrive pas à mettre le code en entier, j'ai le message suivant:

Vous avez écrit un message avec plus d'émoticônes que ces forums le permettent. Merci de réduire le nombre d'émoticônes dans votre message.

 

[cali631]

Bonjour,

je relance ce sujet, car je souhaite changer mes blocs avec les valeurs suivantes:

-Mettre la totalité du bloc dans le calque 0

-La couleur ducalque,

-La ligne ducalque

- epaisseur de ligne ducalque

J'ai essayé de modifié le fameux lisp RB en remplacant par Bylayer partout, mais cela ne fonctionne pas (ci dessous les valeurs de remplacement).

Et pour l'épaisseur, étant une valeur, que puis-je mettre à la place?

Merci

[lecrabe]

Hello @cali631

Voir ci-dessous ...

Bye, lecrabe

 

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

 

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

 

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

 

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

 

 

[cali631]

Merci

ça fonctionne super bien