LISP FOR HATCH TRANSPARANCY

[larsr2866]

Good afternoon everyone,

I have a question. I have a lisp code to change all my hatches to a specific color. But is it also possible to give all these hatches a transparancy of 60%?

  (if (setq sst (acet-ss-ssget-filter ss '((0 . "HATCH"))))
    (command "_.CHPROP" sst "" "_Color" "_True" '"300,297,250" ""))

Thanks in advance.

Lars

[dbhunia · Accepted solution]

Try like this.......

(if (setq sst (ssget '((0 . "HATCH"))))
  (progn 
    (command "_.CHPROP" sst "" "_Color" "_True" "255,255,255" "");; R,G,B color value should be 0 to 255
    (repeat (setq n (sslength sst))
      (setq itm (ssname sst (setq n (1- n))))
      (setq obj (vlax-ename->vla-object itm))
      (if (vlax-write-enabled-p obj) (vla-put-entitytransparency obj 60));; Here Transparency is 60%
    )
  )
)

[larsr2866]

Thank you for your answer.

Ik works, but it doesn't change it automatically to all hatches. I have to select the hatches first.

Can i get this working without the user input?

[ВeekeeCZ · Accepted solution]

 Best if you look eg. HERE to learn how to fix it by yourself. 

[larsr2866]

Thanks for the link, BeekeeCZ.

The ssget "_A" ' did the trick 🙂