Routine to change Attributes color to Bylayer not working in AutoCAD 2008

[framedNlv]

This is one for changing attributes to color bylayer. I got it ether here or on Autodesk forums.
1.

(if (ssget "x" '((0 . "INSERT")(66 . 1)))
    (progn
      (setq ss (vla-get-activeselectionset
		 (vla-get-activedocument
		   (vlax-get-acad-object))))
      (vlax-for blk ss
	(setq atts (vlax-invoke blk 'getattributes))
	(foreach att atts
	  (vla-put-color att 256)
	  )
	)
      )
    )

2nd

(setq doc     (vla-get-activeDocument (vlax-get-acad-object))
        layouts (vla-get-layouts doc)
  )
  (vlax-for layout layouts
    (vla-put-showPlotStyles layout (if state :vlax-true :vlax-false))
  )
  ;(vla-regen doc acAllViewports)

Any help to make it work again would be greatly appreciated.
Chris

[Mike_R]

This is now done natively in 2008 with the Setbylayer command.

[framedNlv]

This is now done natively in 2008 with the Setbylayer command.

I read about that on one of the blogs somewhere but could find any reference to it once we install 2008.

Thanks,
Chris

[Tom Beauford]

I read about that on one of the blogs somewhere but could find any reference to it once we install 2008.

Thanks,
Chris

From the Menu:
Modify => Change to Bylayer

[ccowgill]

From the Menu:
Modify => Change to Bylayer

or type setbylayer

[framedNlv]

Thank you guys for pointing out the "setbylayer" feature.

I was wondering why the original lisp was failing. I have about three different lisp routines that are failing and they all use the vla/vlax in the lisp.


Chris

[Tom Beauford]

Thank you guys for pointing out the "setbylayer" feature.

I was wondering why the original lisp was failing. I have about three different lisp routines that are failing and they all use the vla/vlax in the lisp.


Chris

I'm sure someone could debug it if you posted the whole routine.

[ccowgill]

i would also make sure you have vl-load-com in your commands

[framedNlv]

(VL-LOAD-COM)

That seems to have fixed it. I'll have to look at my startup lisp to see where it was loading and where I stopped loading it. For now I just added it to the beginning of our acad.lsp.

Thanks,
Chris

[Opie]

(VL-LOAD-COM)

That seems to have fixed it. I'll have to look at my startup lisp to see where it was loading and where I stopped loading it. For now I just added it to the beginning of our acad.lsp.

Thanks,
Chris

It is only needed to be loaded once. Subsequent calls do not affect anything.