为什么entmake创建不了Defpoints图层

tranney

最近听说entmake速度快，所以把小工具翻出来把command修改一下，结果发现下面的代码居然创建不了Defpoints图层
，运行环境为cad2011 64+天正2014 模式

2. (defun c:123()
   
3.    (jjbtc0 "Defpoints"     6  0   "bylayer")
   
4.    (jjbtc0 "0-给排水层"    40  0  "bylayer")
   
5. )
   
6. (defun jjbtc0 ( layernm  layerys  layerzt layerxx  / );创建图层
   
7.   (if (null (tblsearch "LAYER" layernm))
   
8.    (progn
   
9.    (entmake (list
   
10.                '(0 . "LAYER")
    
11.                '(100 . "AcDbSymbolTableRecord")
    
12.                '(100 . "AcDbLayerTableRecord")
    
13.                (cons 2 layernm)                   ;图层名称
    
14.                (cons 6 layerxx)                   ;图层线型
    
15.                (cons 70 layerzt)                  ;图层状态(指显示、冰冻、锁定等)
    
16.                (cons 62 layerys)                  ;图层颜色
    
17.          )
    
18.    )
    
19.    (princ (strcat "\n    已用默认参数创建 "layernm" 图层。")))
    
20.    (progn
    
21.       (setq sty (entget (tblobjname "layer" layernm)))
    
22.       ;(setq sty (subst (cons 42 0) (assoc 42 sty) sty))
    
23.       (setq sty (subst (cons 6 layerxx) (assoc 6 sty) sty))
    
24.       (setq sty (subst (cons 70 layerzt) (assoc 70 sty) sty))
    
25.       (setq sty (subst (cons 62 layerys) (assoc 62 sty) sty))
    
26.       (entmod sty)
    
27.       ;(entupd (tblobjname "layer" layernm))
    
28.       (princ (strcat "\n    检测到 "layernm" 图层已存在，正在用默认参数替换。"))
    
29.     )
    
30.   )
    
31. (princ)
    
32. )

(defun c:123()<br />    (jjbtc0 "Defpoints"     6  0   "bylayer")<br />    (jjbtc0 "0-给排水层"    40  0  "bylayer")<br /> )<br /> (defun jjbtc0 ( layernm  layerys  layerzt layerxx  / );创建图层<br />   (if (null (tblsearch "LAYER" layernm))<br />    (progn<br />    (entmake (list <br />                '(0 . "LAYER") <br />                '(100 . "AcDbSymbolTableRecord") <br />                '(100 . "AcDbLayerTableRecord")<br />                (cons 2 layernm)                   ;图层名称<br />                (cons 6 layerxx)                   ;图层线型<br />                (cons 70 layerzt)                  ;图层状态(指显示、冰冻、锁定等)<br />                (cons 62 layerys)                  ;图层颜色<br />          )<br />    )<br />    (princ (strcat "\n    已用默认参数创建 "layernm" 图层。")))<br />    (progn<br />       (setq sty (entget (tblobjname "layer" layernm)))<br />       ;(setq sty (subst (cons 42 0) (assoc 42 sty) sty))<br />       (setq sty (subst (cons 6 layerxx) (assoc 6 sty) sty))<br />       (setq sty (subst (cons 70 layerzt) (assoc 70 sty) sty))<br />       (setq sty (subst (cons 62 layerys) (assoc 62 sty) sty))<br />       (entmod sty)<br />       ;(entupd (tblobjname "layer" layernm))<br />       (princ (strcat "\n    检测到 "layernm" 图层已存在，正在用默认参数替换。"))<br />     )<br />   )<br /> (princ)<br /> )

ll_j

defpoints图层是系统图层，可知的主要用途是放置标注的“点”，和0层一样，都是不能让用户进行修改的。

自贡黄明儒

我倒是常创建这个图层，不过没用entmak.e

wzg356

defpoints图层名是cad系统预留的，只要有标注尺寸，系统马上就会自动生成defpoints图层。
Defpoints图层中系统自动放置了各种标注的基准点。在平常是看不出来的，把标注炸开就能发现,关闭其它图层后，然后选择所有对象，就会发现里面是一些点对象。
这个图层默认是不打印出来线的。


别用defpoints图层名，换个图层名称名称。