TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: lamarn on September 28, 2014, 04:15:57 PM

Title: 3D transparency byblock, need some help
Post by: lamarn on September 28, 2014, 04:15:57 PM

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

Title: Re: 3D transparency byblock, need some help
Post by: flyfox1047 on September 29, 2014, 03:52:18 AM

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

Title: Re: 3D transparency byblock, need some help
Post by: lamarn on September 29, 2014, 10:28:50 AM

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 ..

Title: Re: 3D transparency byblock, need some help
Post by: roy_043 on September 30, 2014, 03:44:43 AM

Quote from: lammerts on September 28, 2014, 04:15:57 PM

But the vla code does not seem to react.

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

Title: Re: 3D transparency byblock, need some help
Post by: roy_043 on September 30, 2014, 05:29:10 AM

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

Title: Re: 3D transparency byblock, need some help
Post by: lamarn on October 03, 2014, 08:14:39 AM

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)
)

Title: Re: 3D transparency byblock, need some help
Post by: roy_043 on October 03, 2014, 08:59:25 AM

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

Title: Re: 3D transparency byblock, need some help
Post by: lamarn on October 03, 2014, 10:20:57 AM

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