Changer motifs hachure d'un plan

[nen]

Bonjour le Forum🙂,

J’ai besoin de vos lumières😉.

Est-il possible avec un lisp de sélectionner tous les objets hachures d’un plan (même s’ils sont sur des calques diffèrent) et changer le motif en solid, tout ça en une commande ?

Merci d’avance de votre aide
Meilleures salutations

[Fraid]

Bonjour,

(vl-load-com)
(defun c:hsolid ( / acdc)
    (setq acdc (vla-get-activedocument (vlax-get-acad-object)))
    (vlax-for obj (vla-get-modelspace acdc)
        (if (= (vla-get-ObjectName obj) "AcDbHatch")
          (progn
            (vla-SetPattern obj acHatchPatternTypePreDefined "SOLID")
            (vla-Evaluate obj)
          )
        )
    )
    (vla-Regen acdc :vlax-true)
    (princ)
)

 

[nen]

Bonjour,

Super merci Fraid c'est exactement ça cela fonctionne impeccable 👍
D'une efficacité redoutable, bravo 👋

Meilleures salutations