码迷,mamicode.com
首页 > 其他好文 > 详细

图层锁定vlisp函数高版本图元自动淡色显示

时间:2017-07-29 01:01:03      阅读:226      评论:0      收藏:0      [点我收藏+]

标签:put   class   layer   gen   rlock   false   解锁   ret   set   

(defun c:tt(/ obj)
 (sk_layerLock (getvar "clayer") nil)
  (princ)
)
;;;name:sk_layerLock
;;;desc:LayerLock图层锁定
;;;arg:layername 图层名 flag 锁定标志[t锁定或nil解锁]
;;;return:none 无
;;;example:(sk_layerLock "0" t)
;;;date:2017-7-28 23:02:13
(defun sk_layerLock(layername flag / obj en)
  (if (setq en (tblobjname "layer" layername))
    (progn
      (setq obj(vlax-ename->vla-object en))
      (if flag
	(vla-put-lock obj :vlax-true)	
	(vla-put-lock obj :vlax-false)
	)
      (vla-put-layeron obj (vla-get-layeron obj))
      (vla-regen (vla-get-activedocument(vlax-get-acad-object)) 1)
      (vlax-release-object obj)
      )
    )
  )
  

  

图层锁定vlisp函数高版本图元自动淡色显示

标签:put   class   layer   gen   rlock   false   解锁   ret   set   

原文地址:http://www.cnblogs.com/edata/p/7253009.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!