HELP LISP pour passer tous les blocs en calque 0

[zizou_elec]

Bonjour,

Je suis tout nouveau sur le forum et pas un super spécialiste d'autocad!!

Dans le cadre de mon boulot, je dois rendre des plans super nikel et du coup supprimer tous les calques qui ne servent à rien.

C'est là qu'est le soucis...j'ai souvent des calques qui à l'écran sont vide mais que je ne peux pas virer.Celà est probablement du à des histoires.Où puis je télécharger un lisp qui me permettrant de repondre à mon probleme.

Merci d'avance!

[Bred]

Salut et bienvenue,

tu as le fabuleux lisp de (gile) ici ! qui te conviendrais je pense...

[Blaise31]

N'est-il pas possible de purger le plan? (tape pu ou purge puis clique sur purgeall)

 

Ceci est juste une suggestion, cette commande supprime tous les calques non utilisés

 

Cordialement,

 

a+

[Patrick_35]

Salut

Ou encore avec la commande _laydel (qui faisait partie des express tools)

 

@+

[YaPy]

Double click sur ton bloc, puis depuis l'éditeur de bloc tu peux tous passer dans le calque zero. Cette manip. te changera tous les blocs du même nom.

[(gile)]

Salut,

 

Le LISP Edit_bloc (lien donné par Bred ou à télécharger directement) permet, entre autre, de mettre toutes les entités des blocs sélectionnés (ou de toute la collection du dessin) sur le calque 0.

La méthode donnée par YaPy donne le même résultat, mais bloc par bloc.

 

Si, comme le titre semble l'indiquer, tu voulais plutôt mettre toutes les insertions de blocs du dessin sur le calque 0 (?!), tu peux essayer ceci :

 

(defun c:bloc-en-zero (/ AcDoc ss)
 (setq AcDoc (vla-get-ActiveDocument (vlax-get-Acad-object)))
 (if (setq ss (ssget "_X" '((0 . "INSERT"))))
   (progn
     (vla-StartUndoMark AcDoc)
     (vlax-map-collection
(vla-get-ActiveSelectionSet AcDoc)
'(lambda (x)
   (if (= (vla-get-IsXref
	    (vla-item
	      (vla-get-Blocks AcDoc)
	      (if (vlax-property-available-p x 'EffectiveName)
		(vla-get-EffectiveName x)
		(vla-get-Name x)
	      )
	    )
	  )
	  :vlax-false
       )
     (vla-put-Layer x "0")
   )
 )
     )
     (vla-EndUndoMark AcDoc)
   )
 )
 (princ)
) 

[zizou_elec]

Merci pour toutes ces résponses...mais malheureusement pour moi, mon problème n'est pas résolus.Je vais donc vous présenter mon soucis autrement:

J'ai sur certains de mes dessins des calques qui apparaissent dans mon listing de calques.Lorsque j'isole un de ces calques pour qu'il soit le seul à apparaitre sur mon écran, je n'ai aucun élément de visible, comme si c'etait un calque vierge.POurtant, je n'arrive pas à l'effacer meme apres une purge....

Merci d'avance à tous ceux qui se pencheront sur mon petit soucis!! :)

[phil_vsd]

Installes les Express tools et utilise la fonction Supprimer dans le menu calques. La purge ne purge pas tout.

[stephan35]

ESSAYE :

 

(command "_qtext" "_on")

(command "_regen")

 

 

les pavés blancs correspondes à des textes avec que des espaces !

 

 

ou

 

Tu a des attributs ou des éléments insérés dans ces calques, mais le symboles à été inséré dans un autre calque :casstet: donc, comme tu gèles les autres calques, tu ne vois rien !

(facile à reproduire )

 

 

 

 

A+

 

;)