(defun c:ts0 ( / ss n i) ;;; Set Transparency of all entities in drawing to 0. Modified by Igal Averbuh 2015
(if
(and
(setq ss (ssget "_A"))
(progn
(while
(and
(setq n 0)
(not (<= 0 n 99))
)
(princ "\nInvalid value. Try again.")
)
n
)
(setq n (list (cons 440 (+ (lsh 2 24) (fix (- 255 (* n 2.55)))))))
)
(repeat (setq i (sslength ss))
(entmod
(append
(entget (ssname ss (setq i (1- i))))
n
)
)
)
)
(princ)
)
(c:ts0)

Advertisements