Topic: 3D transparency byblock, need some help

[lamarn]

I found a great routine to make blocks neutral (0, byblock, etc.)
The only thing missing is to set 'transparancy' byblock
I already made the dcl with a extra button
But the vla code does not seem to react.

Thanks in advance

[flyfox1047]

Good familiar interface . It's really write by you?

[lamarn]

o it is not mine. I only wish i could do this. Can you?
I mailed the frenshman but no reaction from his side.
Me think I am the only person on earth using transparency 3D blocks byblock ..

[roy_043]

But the vla code does not seem to react.

Have you used (vlax-dump-object ...) to check for the right property?

[roy_043]

Hint: the prop you are looking for starts with an 'e' and not with a 't'.

[lamarn]

This can be done outside the block / routine.
As for a start.

(defun c:Tpb ()
  (setvar "TRANSPARENCYDISPLAY" 1)
  (setq obj (ssget))
   (if (/= obj nil)
    (progn
      (command "change" obj "" "p" "tr" "byblock" "")
       (alert (strcat "Transparency ON and objects faded "ByBlock" "))
    )
  (princ "***Nothing Selected***"))
  (princ)
)

[roy_043]

Perhaps this helps:
http://www.theswamp.org/index.php?topic=44517

[lamarn]

(vla-put-entitytransparency entity "byblock")  ; something like that