smartstar 发表于 2012-7-14 20:08:11

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

本帖最后由 smartstar 于 2012-7-14 20:30 编辑

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

错误: 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 发表于 2012-7-14 20:59:40

(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 发表于 2012-7-14 21:27:33

谢谢斑竹提示！

434939575 发表于 2014-5-7 21:24:45

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

llsheng_73 发表于 2014-5-7 21:40:10

(setq layer_data'("ac-d" "continuous" 1 1 0 0))
(entmake (append'((0 . "LAYER")
                  (100 . "AcDbSymbolTableRecord")
                  (100 . "AcDbLayerTableRecord"))
                (mapcar 'cons'(26 62 39 70 290)layer_data)
                )
       )
页: [1]
查看完整版本: 【求助】创建图层时提示组码错误