supprimer blocs

[pascal19]

Bonjour

je souhaites supprimer les blocs commençant par "Marque" dans un plan sachant que ces blocs peuvent être contenus dans d'autres blocs, alors j'ai fait ça:

 

 
(defun c:delmarq()
(vl-load-com)
(setq a (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
(vlax-for bl a
(vlax-for ent bl
(if (and (= (vla-get-objectname ent) "AcDbBlockReference") (= (vla-get-Name ent) "Marque*"))
(vla-delete ent)

)

)

)

(vla-regen (vla-get-activedocument (vlax-get-acad-object)) acActiveViewport)

)

 

mais apparemment il ne comprend pas le "Marque*"

y-a-t-il une solution simple ?

[bryce]

Bonjour,

 

Essaie plutôt avec wcmatch :

 

(wcmatch (strcase (vla-get-Name ent)) "MARQUE*")

 

au lieu de

 

(= (vla-get-Name ent) "Marque*")

[wookichu]

Bonjour,

J'ai fait ça vite fait sur la base de ton code:

(defun c:delmarq ()

 (vl-load-com)

 (setq	a (vla-get-blocks
    (vla-get-activedocument (vlax-get-acad-object))
  )
 )

 (vlax-for bl a

   (vlax-for ent bl

     (if (and (= (vla-get-objectname ent) "AcDbBlockReference")
       (= (substr (vla-get-Name ent) 1 6) "Marque")
  )

(vla-delete ent)
     )
   )
 )
 (vla-regen (vla-get-activedocument (vlax-get-acad-object))
     acActiveViewport
 )
) 

 

 

[Patrick_35]

Salut

 

Et pourquoi ne pas utiliser

(ssget "x" '((0 . "INSERT") (2 . "Marque*")))

 

@+

[pascal19]

merci pour tout

 

j'ai opté pour:

(= (substr (vla-get-Name ent) 1 6) "Marque") 

 

car il me permet de faire aussi:

 (= (substr (vla-get-Name ent) 1 2) "*X")

 

a+

[pascal19]

pour Patrick_35

c'était ma première idée mais ça n'a pas marché

parce que les blocs "Marque*" sont contenus dans d'autres blocs.

à moins que j'ai oublié quelque chose ?

[bryce]

car il me permet de faire aussi:

 (= (substr (vla-get-Name ent) 1 2) "*X")

 

Je ne comprends pas, c'est quoi le but ? :casstet:

[Patrick_35]

Salut

 

pour Patrick_35

c'était ma première idée mais ça n'a pas marché

parce que les blocs "Marque*" sont contenus dans d'autres blocs.

à moins que j'ai oublié quelque chose ?

 

Je n'avais pas percuté sur les blocs imbriqués.

C'est ta solution qui est la plus simple.

 

ps : wcmatch est quand même mieux qu'un substr et permet plus de solutions

 

@+

[pascal19]

Bonjour

 

(= (substr (vla-get-Name ent) 1 2) "*X") 

 

c'est pour virer les blocs anonymes (*X000 ...) mais il y a peut être d'autres façons de les gérer... (je suis preneur)

 

merci patrick pour le conseil sur wcmatch .

a+