LOOKING FOR A LISP ROUTINE

[tbpbc989736]

Hi, so in a drawing where it shows you what color you are using along with linetype and weight. I am looking for a lisp or macro that would set them all back to "by layer" at one time.

Thanks
Tony

[Tom Beauford]

Why not use the SETBYLAYER command?

- - - Updated - - -

Old lisp by one of our more prominent AUGI members:

; Written By: Peter Jamtgaard 2002; This program will prompt the user to ceate a selection set. 
; All objects in the selection set will have their color 
; and linetype properties set to bylayer.


(defun C:ByLayer (/ CNT EOBJ SSET)
 (princ "Select Entities to change")
 (setq SSET (ssget)
       CNT  0
 )
 (repeat (sslength SSET)
  (setq ENAM (ssname SSET CNT)
        CNT  (1+ CNT)
        EOBJ (vlax-ename->vla-object ENAM)
  )
  (vl-catch-all-apply 
   'vla-put-color 
   (list EOBJ 256)
  )
  (vl-catch-all-apply
   'vla-put-linetype 
   (list EOBJ "Bylayer")
  )
  (vl-catch-all-apply
   'vla-put-Lineweight 
   (list EOBJ -1)
  )
  (vl-catch-all-apply
   'vla-put-PlotStyleName 
   (list EOBJ "Bylayer")
  )
 )
)