format

[(gile)]

(defun c:XCol (/ acdoc layers color vr)

  (vl-load-com)

  (setq    acdoc  (vla-get-ActiveDocument (vlax-get-acad-object))

    layers (vla-get-Layers acdoc)

  )

  (if (setq color (acad_colordlg '255))

    (vlax-for l    layers

      (if (wcmatch (vla-get-Name l) "*|*")

    (if (member color '(0 256))

      (progn

        (setq vr (getvar "VISRETAIN"))

        (setvar "VISRETAIN" 0)

        (vlax-for b    (vla-get-Blocks acdoc)

          (if (= (vla-get-IsXref b) :vlax-true)

        (progn

          (vla-unload b)

          (vla-reload b)

        )

          )

        )

        (setvar "VISRETAIN" vr)

      )

      (vla-put-color l color)

    )

      )

    )

  )

  (vla-regen acdoc acActiveViewport)

  (princ)

)

[(gile)]

(defun c:XCol (/ acdoc layers color vr)

(vl-load-com)

(setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object))

layers (vla-get-Layers acdoc)

)

(if (setq color (acad_colordlg '255))

(vlax-for l layers

(if (wcmatch (vla-get-Name l) "*|*")

(if (member color '(0 256))

(progn

(setq vr (getvar "VISRETAIN"))

(setvar "VISRETAIN" 0)

(vlax-for b (vla-get-Blocks acdoc)

(if (= (vla-get-IsXref b) :vlax-true)

(progn

(vla-unload b)

(vla-reload b)

)

)

)

(setvar "VISRETAIN" vr)

)

(vla-put-color l color)

)

)

)

)

(vla-regen acdoc acActiveViewport)

(princ)

)

[Bred]

Salut,

Hey !

Mais c'est bien ce format "Visual" !!!

Tu arrives à faire ça comment ?