vla-Put-lock关闭图层后，如何同步CAD的淡显功能？

libo2000

(setq lay (vlax-EName->vla-Object (tblobjname "layer" lay)))
(if (= (vla-Get-lock lay) :vlax-false)
   (vla-Put-lock lay :vlax-true)
)
代码关闭图层后，并未像CAD命令那样将关闭的图层淡显，还是亮堂堂的。
同样 (vla-Put-lock lay :vlax-false)也无法将打开的图层亮显，还是黑乎乎的。
REGEN，REGENALL命令有时有效，很多时候下无效。
如何解决这个问题？

自贡黄明儒

换一个版本试试

libo2000

自贡黄明儒 发表于 2016-6-30 16:04
换一个版本试试

这个和版本无关，都一样

edata

可以参考我这个..支持高版本自动淡色显示
http://www.cnblogs.com/edata/p/7253009.html

fcrosstour

先保存，再REGEN就可以淡显

fcrosstour

edata 发表于 2017-7-28 23:05
可以参考我这个..支持高版本自动淡色显示
http://www.cnblogs.com/edata/p/7253009.html

为什么要加 (vla-put-layeron obj (vla-get-layeron obj)) 这一句？