Définition de bloc non purgeable

[Invité Patrick]

Y aurait-il un moyen, une astuce, pour marquer une définition de bloc comme non purgeable?

[Patrick_35]

Salut Patrick

Je pense que cette discussion pourra t'intéresser

J'ai testé sur A2005 et ça ne fonctionne pas. Peut-être sur une A2006 ou A2007

 

@+

[Invité Patrick]

La discussion que tu m'indiques explique comment empêcher la décomposition des références de bloc, ce que je cherche c'est comment empêcher la purge des définitions de blocs.

 

[Tramber]

Si tu créais un espace papier qui ne sert à rien pour y insérer discretement le bloc ou alors en l'insérant hors limites d'un Espace papier courant ?

[Patrick_35]

Non, encore plus simple, je viens d'y penser à l'instant

il suffit de l'insérer dans un dessin de le rendre invisible

 

(setq sel (vlax-ename->vla-object (car (entsel))))
(vla-put-visible sel :vlax-false) ; invisible
(vla-put-visible sel :vlax-true)  ; visible

 

ps : désolé patrick pour le post précédent, je n'avais pas compris

 

@+

[Invité Patrick]

Oui, le rendre invisible, je vais essayer de faire ça en VBA. Merci.

[Invité Patrick]

Bien, ça marche, j'ai fait ça:

 

   Set L_obj_BlocReference = ThisDrawing.PaperSpace.InsertBlock(P_dou_PointOrigine, L_obj_Bloc.Name, 1, 1, 1, 0)
   L_obj_BlocReference.Visible = False

 

J'aime pas trop laisser des objets invisibles dans le dessin, mais là je crois qu'il n'y a pas d'autre solution!