Set transparency of all entities in the drawing to "ByLayer" issue

[danglar]

This routine, modified by me, can set transparency of all entities in the drawing to 0 (see attached lisp)
but I need to set it to "ByLayer".
I tryed to change this string

(setq n 0) 

to somethihg like this..

(setq n "ByLayer")

but in this case autocad session crashed...
Can somebody help me to solve this problem?

[ВeekeeCZ]

This is another approach...

(defun c:TS0 ( / ss)
  (if (setq ss (ssget "_A"))
    (command "_.CHPROP" ss "" "_TR" "BYLAYER" ""))
  (princ)
)

[phanaem]

---

@apelbaum2014 wrote:

This routine, modified by me, can set transparency of all entities in the drawing to 0 (see attached lisp)
but I need to set it to "ByLayer".
I tryed to change this string

(setq n 0) 

to somethihg like this..

(setq n "ByLayer")

but in this case autocad session crashed...
Can somebody help me to solve this problem?

---

Looks verry similat to this one...

"ByLayer" transparency correspond to DXF code (440 . 0), which is different than what my lisp does for n = 0.
If you want a lisp solution, please check this code:

(defun c:ts0 ( / ss i)
  (if
    (setq ss (ssget "_A"))
    (repeat (setq i (sslength ss))
      (entmod
        (append
          (entget (ssname ss (setq i (1- i))))
	  '((440 . 0))
          )
        )
      )
    )
  (princ)
  )

[cwilczak]

Looking for a way to set a user selected specific entity layer (lets say its an nested hatch object in an xref), and i want to set the layer transparency to a user entered value. Is there a way to modify this code to do so?

[Kent1Cooper]

---

@cwilczak wrote:

Looking for a way to set a user selected specific entity layer (lets say its an nested hatch object in an xref), and i want to set the layer transparency to a user entered value. Is there a way to modify this code to do so?

---

Setting the transparency of a Layer is a rather different thing than of drawing entities, as well as doing one Layer vs. all drawing entities, so modifying the earlier routines here doesn't seem like the best approach.  This will do it:

(defun C:TSL () ; = Transparency of Selected [can be nested] Layer

  (command "_.layer" "_transparency" pause (cdr (assoc 8 (entget (car (nentsel))))) "")

  (princ)

)

[cwilczak]

WORKS GREAT!! thank you @Kent1Cooper