这些代码怎样才能切换图层时都改为 bylayer？

了liao

我在网上找了个切换图层的lisp，但测试发现，可以切换图层，但图层特性不是 bylayer ，比如我把图层 6t 的颜色改为 黄色 ，切换到 0 层时，颜色还是黄色而不是bylayer，该怎么改呢？各路大师帮帮忙，我并不会lisp编程，只能看懂一些很简单的东西

;一个图层更改的lisp程序，按对应数字键就可以切换到相应的图层。很方便。
;0————0
;1————OBJ
;2————6t
;3————SCETR
;。。。
;8————BORDER
;如果这些不是你想要的图层，将lisp用笔记本打开，把里边的OBJ，6t等图层名改为你想要的就可以了。以后要切换图层时，按相应的数字键即可。
(defun YH_chlayer (YH_layer / YH_S)
(if (null (tblsearch "LAYER" YH_layer))
     (entmake (list
        '(0 . "LAYER")
        '(100 . "AcDbSymbolTableRecord")
        '(100 . "AcDbLayerTableRecord")
         (cons 2 YH_layer)        ;图层名称
        '(70 . 0)                 ;图层状态
        '(62 . 7)                 ;图层颜色
        '(6 . "bylayer")          ;图层线型
               )
     )
)
(setq YH_S (cadr (ssgetfirst)))
(if YH_S
     (command "CHPROP" YH_S "" "la" YH_layer "c" "bylayer" "")
     (setvar "clayer" YH_layer)
  )
(princ)
)
(defun c:0 ()
   (YH_chlayer "0")
)
(defun c:1 ()
   (YH_chlayer "OBJ")
)
(defun c:2 ()
   (YH_chlayer "6t")
)
(defun c:3 ()
   (YH_chlayer "SCETR")
)
(defun c:4 ()
   (YH_chlayer "HIDD")
)
(defun c:5 ()
   (YH_chlayer "DIM")
)
(defun c:6 ()
   (YH_chlayer "DASH")
)
(defun c:7 ()
   (YH_chlayer "TEXT")
)
(defun c:8 ()
   (YH_chlayer "BORDER")
)

Linhay

(defun c:8 ()
   (YH_chlayer "BORDER")
   (command "cecolor" 256)
)

最简单易懂的办法

了liao

Linhay 发表于 2017-7-12 10:39

刚刚也想到(command "COLOR" "BYLAYER")
还有几个疑问，下面的这几个代码时干啥的，
(if (null (tblsearch "LAYER" YH_layer))
     (entmake (list
        '(0 . "LAYER")
        '(100 . "AcDbSymbolTableRecord")
        '(100 . "AcDbLayerTableRecord")
         (cons 2 YH_layer)        ;图层名称
        '(70 . 0)                 ;图层状态（这些数字啥作用）
        '(62 . 7)                 ;图层颜色（这些数字啥作用）
        '(6 . "bylayer")          ;图层线型（这个bylayer啥作用）

Lisphk

了liao 发表于 2017-7-12 11:43

如果图层YH_layer不存在，创建。

了liao

Lisphk 发表于 2017-7-12 11:50

哪里有讲到这个？好像没见创建图层的代码啊

newer

了liao 发表于 2017-7-12 11:57

去看看函数 entmake 的帮助。

用 entmake  搜索下论坛看看，看看它做什么的。

liunian0524

感谢楼主分享