【求助】创建图层时提示组码错误

smartstar

我用以下代码想创建图层，结果提示：

错误: DXF 组不正确: (CONS 2 (NTH 0 LAYER_DATA))

哪里错了，请明示，谢谢。

(setq data (("名称" "颜色" "线型" "线宽") ("ac-d" "1" "continuous" "1")))(setq layer_data (nth 0 (cdr data)))
            (entmake '((0 . "LAYER")
                       (100 . "AcDbSymbolTableRecord")
                       (100 . "AcDbLayerTableRecord")
                       (cons 2 (nth 0 layer_data))
                       (cons 6 (nth 2 layer_data))
                       (cons 39 (atof (nth 3 layer_data)))
                       (cons 62 (atoi (nth 1 layer_data)))
                       (70 . 0)
                       (290 . 0)
                      )
            )  

caoyin

(setq data '(("名称" "颜色" "线型" "线宽") ("ac-d" "1" "continuous" "1")))
(setq layer_data (cadr data))
(entmake (list '(0 . "LAYER")
               '(100 . "AcDbSymbolTableRecord")
               '(100 . "AcDbLayerTableRecord")
               (cons 2 (nth 0 layer_data))
               (cons 6 (nth 2 layer_data))
               (cons 39 (atof (nth 3 layer_data)))
               (cons 62 (atoi (nth 1 layer_data)))
               '(70 . 0)
               '(290 . 0)
         )
)

smartstar

谢谢斑竹提示！

434939575

这个entmake建立层一直没成功。终于学会了。感谢。

llsheng_73

1. (setq layer_data'("ac-d" "continuous" 1 1 0 0))
   
2. (entmake (append'((0 . "LAYER")
   
3.                   (100 . "AcDbSymbolTableRecord")
   
4.                   (100 . "AcDbLayerTableRecord"))
   
5.                 (mapcar 'cons'(2  6 62 39 70 290)layer_data)
   
6.                 )
   
7.          )

(setq layer_data'("ac-d" "continuous" 1 1 0 0))<br /> (entmake (append'((0 . "LAYER")<br />                   (100 . "AcDbSymbolTableRecord")<br />                   (100 . "AcDbLayerTableRecord"))<br />                 (mapcar 'cons'(2  6 62 39 70 290)layer_data)<br />                 )<br />          )