Lisp pour enlever les solides ou les hachures a l interieur des blocs

[Jo le projeteur]

il y a 52 minutes, lecrabe a dit :

Hello

Si tu veux le lancer "quand tu veux", il faut enlever les 2 dernières lignes !

Après exécution SVP tu fais un REGEN ...

Bye, lecrabe

Merci. Au top ! top ! top 

[lecrabe]

Hello @Jo le projeteur

Et voici un autre Lisp/VLisp "KDIM_BLOCK" pour supprimer les Cotes (DIM) dans les Blocs ...

Comme d habitude, un REGEN apres execution par securite ...

Bye, lecrabe

 

;; Supprimer (Kill) les cotations (DIMension) dans les blocs (BLOCK)
;; Par GC le 11/03/2011 - Passage en DEFUN par Fraid

(defun c:KDIM_BLOCK (/ b o)
(vl-load-com)
(vlax-for b (vla-get-Blocks
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
(or
(= (vla-get-IsLayout b) :vlax-true)
(= (vla-get-IsXref b) :vlax-true)
(vlax-for o b
(if (wcmatch (vla-get-ObjectName o) "AcDb*Dimension")
(vla-delete o)
)
)
)
)
)