Set layer transparency by object selection

[Justin_P_Carr]

Afternoon,

Would a lisp expert out there be able to write me a routine whereby I can change the transparency level of a layer by selecting an object on that layer? I have never go round to learning list even though I've used AutoCAD since the 1990's! (If anyone can suggest a good book that teaches lisp I would appreciate that too.)

Thanks in advance

[ВeekeeCZ]

Try this tool, not specifically for transparency, but for a wider layer setting. You can select multiple objects.

[paullimapa]

Afralisp website is an excellent starting point to learn

[paullimapa]

Try this setlyt.lsp:

; defun setlyt change layer tranparency to match with selected object
; OP:
; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/set-layer-transparency-by-object-selection/m-p/13177737#M475351
(defun c:setlyt (/ en lyr tra)
  (while (not en)
    (setq en(entsel"\nSelect Object: "))
  )
  (setq en (car en))
  (setq tra(getpropertyvalue en "Transparency"))
  (setq lyr(getpropertyvalue(getpropertyvalue en "LayerID")"Name"))
  (cond
    ((= tra -2)(princ"\nCurrent Object Transparency Setting is ByBlock."))
    ((= tra -1)(princ"\nCurrent Object Transparency Setting is ByLayer."))
    (t
     (setpropertyvalue(tblobjname "LAYER" lyr)"Transparency" tra)
     (princ(strcat"\nLayer Transparency Changed to Match Object as: " (itoa tra)))
    )
  ) ; cond
  (princ) ; clean exit
) ; defun

[Sea-Haven]

Have a look at Kindle has some books at very reasonable prices. 4 books by 

Togores, Reinaldo N.. Advanced Programming Techniques (AutoCAD expert's Visual LISP Book 4) (Kindle Location 4). . Kindle Edition.

Nice thing is can copy and paste code from book.