BLOCS VIDES ENCOMBRANTS

[PHILPHIL]

bonjour

 

dans certains fichiers j'ai des blocs vides nommées

 

"*t001" "*t0002" ect ect

 

ils commencentt tous par "*T" suivi de chiffre

 

il y a t'il un petit LISP permettant de chercher dans toute la base de donnée et de slectionner

ces blocs pour les effacer

 

apres modification cette base de LISP ( si ca pas déja été fait d'ailleurs ) pourrait servir a selectionner d'autre entités

 

merci

 

bonne soirée

 

phil

[(gile)]

Salut,

 

Pour effacer toutes les références de blocs dont le nom commence par "*t"

 

(vl-cmdf "_.erase" (ssget "_X" '((0 . "INSERT") (2 . "`*U*"))) "") 

 

Ensuite une purge.

[LUDWIG]

Lisp (améliorable) pour supprimer les blocs vides.

 

 
;**********************************************************************************************************************************************************
;SUPPRESSION BLOCS VIDES
;**********************************************************************************************************************************************************
;permet de se débarasser des blocs sans entités

(defun c:bv ()
(setq cmdechOLD (getvar "cmdecho"))
 (setvar "cmdecho" 0)
 (setq i (tblnext "block" t))

 (while i

   (if	(= (cdr (assoc 0 (entget (setq n (cdr (assoc -2 i))))))
   "ENDBLK"
   ) ;_ Fin de =
     (if (/= nil (setq SEL (ssget "x" (list (cons 0 "INSERT") (assoc 2 i)))))(command "_erase" SEL ""))
     ) ;_ Fin de if


   (setq i (tblnext "block"))
   ) ;_ Fin de while
 (command "-purger" "BL" "*" "n")
   (setvar "cmdecho" cmdechOLD)
 ) ;_ Fin de defun