一个小程序,mjtd+xd论坛上的一位朋友的贴子

前生

(defun setlay (lay cor lty / ACDOC LAYS VVLAY)
;;;lay:字串;cor:颜值;LTY:型
  (setq        acDoc (vla-get-ActiveDocument (vlax-get-acad-object))
        lays  (vla-get-Layers acDoc)
  )
  (if (null (tblobjname "LAYER" lay))
    (progn
      (if (/= "CONTINUOUS" LTY)
        (COMMAND "CHANGE" (ENTLAST) "" "P" "LT" LTY "")
      )
      (entmake (list
                 '(0 . "LAYER")
                 '(100 . "AcDbSymbolTableRecord")
                 '(100 . "AcDbLayerTableRecord")
                 (cons 6 lty)
                 (cons 62 cor)
                 '(70 . 0)
                 (cons 2 lay)
               )
      )
      (setvar "clayer" lay)
    )
    (progn                                ;已存在
      (setq vvlay (vla-Item lays lay))
      (if (= (vla-get-Freeze vvlay) :vlax-true)
        (vla-put-Freeze vvlay :vlax-false) ;解冻
      )
      (if (= (vla-get-Lock vvlay) :vlax-true)
        (vla-put-Lock vvlay :vlax-false) ;解锁
      )
      (if (= (vla-get-LayerOn vvlay) :vlax-false)
        (vla-put-LayerOn vvlay :vlax-true) ;可见
      )
      (vla-put-ActiveLayer acDoc vvlay)        ;设为当前层
    )
  )
)
有层就打开,没层就安指定的颜色及线形生成

梦断江南

这是一个图层管理工具