zoukankan      html  css  js  c++  java
  • 图层锁定vlisp函数高版本图元自动淡色显示

    (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)
          )
        )
      )
      
    

      

  • 相关阅读:
    DDD 领域驱动设计
    IOC 控制反转
    WCF
    Lucene 全文检索引擎
    Redis
    Cache 缓存
    return
    PHP中empty();和isset();的区别.
    sql 简单用语
    关系型数据库
  • 原文地址:https://www.cnblogs.com/edata/p/7253009.html
Copyright © 2011-2022 走看看