block byblock transparency

[jim78b]

(defun c:setbyblock ( / _byblock e n x a sel c)

    (defun _byblock ( n l / a e x )
        (if (and (setq e (tblobjname "BLOCK" n)) (not (member n l)))
            (while (setq e (entnext e))
                (setq x (entget e))
                (if (setq a (assoc 420 x))
                    (setq x (vl-remove (assoc 420 x) x))
                )
                (if (setq a (assoc 62 x))
                    (entmod (subst '(62 . 0) a x))
                    (entmod (append x '((62 . 0))))
                )
                (if (= "INSERT" (cdr (assoc 0 x)))
                    (_byblock (cdr (assoc 2 x)) (cons n l))
                )
            )
        )
        nil
    )

    (prompt "\nSelect Blocks: ")
    (setq sel (ssget (list (cons 0 "INSERT"))))
    (setq c 0)
    (repeat (sslength sel)
        (setq n (ssname sel c))       
        (_byblock (cdr (assoc 2 (entget n))) nil)
        (setq c (1+ c))
    )
    
    (command "_.regen")
    (princ)
    
)

Merry Christmas and best wishes to all, I would kindly need you to change this code so that it also makes the byblock transparency in addition to the color of the blocks

[Steven P]

Holidays... CAD is off, but if it is like layer transparency then you might need to look at extended entity definitions, I think Lee Mac had something somewhere for layers that might apply - check his website or search on this forum.

 

 

Could always double check, set a block to a transparency, I tend to use 12.3456 because that number is easy to spot, and do an (entget(car(entsel))) to the block and see if you can spot an part of the definition with 12.3456.. and that is what to change

[jim78b]

Can you modify the code please ? I am not familiar with lisp. Only want tò setbyblock block .color: setbyblock

Transparency: byblock

[BIGAL]

"Not familiar with lisp" but you have 662 posts time to start learning and experimenting.

[rlx]

I have to agree with Bigal about to (new)bee or not to (new)bee 

 

but to give you an idea

; (setq val (getentitytransparency (car (entsel))))
(defun getentitytransparency ( ent )
  (cond ((= 'vla-object (type ent))(vla-get-entitytransparency ent))
        ((= 'ename (type ent))(getentitytransparency (vlax-ename->vla-object ent)))))

; (< lower-limit test-number upper-limit)
; (putentitytransparency (car (entsel)) "ByBlock") (putentitytransparency (car (entsel)) 100)
(defun putentitytransparency (e v / i o)
  (cond ((null v)(setq v "ByLayer"))((and (numberp v)(< 0 v 90))(setq v (itoa (fix v))))
        ((and (= (type v) 'STR) (distof v) (>= 0 (setq i (fix (distof v))) 90))(setq v (itoa i)))
        ((and (= (type v) 'STR) (member (strcase v t)'("bylayer" "byblock"))) v)(t (setq v "0")))
  (if (setq o (e->o e))(vla-put-entitytransparency o v)))