ordengate Posted October 20, 2010 Share Posted October 20, 2010 I'm trying to set up a routine which will convert a pen table setup my company uses and convert it into the layers themselves so line weights and screening is now handled by layer rather than by color. The only thing I haven't figured out how to do is set the layer transparency. Can anyone help me with this? Example: (VL-LOAD-COM) (SETQ ACTDOC (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT))) (SETQ LAYCOL (VLA-GET-LAYERS ACTDOC)) (VLAX-FOR LAY LAYCOL (SETQ LAYCOLOR (VLA-GET-COLOR LAY)) (COND ((= LAYCOLOR 1) (VLA-PUT-COLOR LAY 19) (VLA-PUT-LINEWEIGHT LAY 0.25) (VLA-PUT-TRANSPARENCY LAY 65)) )) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.