Set All Layer's VP Color in all Viewports to Color 8

[josephsante]

Is there a lisp to Set VP Colour in all Viewports to Gray?

And if possible, with exceptions to specific layers.

If not, I can reset them manually.

Thanks

[Kent1Cooper]

If you want a Layer to be gray [separate issue -- which gray?] in all Viewports, can't you just change its main-Layer-settings color to gray, and leave it alone in the Viewports?  Or do you perhaps already have other VP-override color settings for that Layer in some Viewports?

[josephsante]

@Kent1Cooper I mean the VP Colour Override. I would like to set them all to colour 8 by Lisp.  

[ВeekeeCZ · Accepted solution]

Possibly like this..

(defun c:VPColorAllGray ( / c)
  (if (setq c (= (getvar 'tilemode) 1)) (setvar 'tilemode 0))
  (command "_.vplayer" "_c" 8 "*" "_a"
	   "_m" "_c" "0,MyColorfulLayer,Secondone,Third" "_a" "")
  (if c (setvar 'tilemode 1))
  (princ)
  )