本帖最后由 e2002 于 2011-7-1 15:08 编辑
其实很简单的,请仔细看看系统变量的 LAYLOCKFADECTL 的帮助 (详见2楼)
这段代码如下: - (if (>= rAcadVer 17.1)
- (progn
- (setq iFade (getvar "LAYLOCKFADECTL"))
- (if (> iFade 0)
- (progn
- (setq iFade (* iFade -1))
- (setvar "LAYLOCKFADECTL" iFade)
- (setq bFade T)
- )
- )
- )
- )
- (Do your lock/unlock function here...)
- (if bFade (setvar "LAYLOCKFADECTL" (* iFade -1)))
|