如果没有windows层，则新建windows层。为什么不行 救命

tenday

(if (=(tblobjname "LAYER" "windows")) (princ "\n图纸中有层名为windows的层")
     (progn
         (entmake (list
                      '(0 . "LAYER")
                      '(100 . "AcDbSymbolTableRecord")
                      '(100 . "AcDbLayerTableRecord")
                      '(6 . "CONTINUOUS") ;线型
                      '(62 . 3) ;颜色
                      '(70 . 0) ;图层状态
                       (cons 2 "windows") ;图层名
                  )
         )
     )
  )

tukuitk

如下：
(if (tblobjname "LAYER" "windows")
  (princ "\n图纸中有层名为windows的层")
  (progn
    (entmake (list
               '(0 . "LAYER")
               '(100 . "AcDbSymbolTableRecord")
               '(100 . "AcDbLayerTableRecord")
               '(6 . "CONTINUOUS")        ;线型
               '(62 . 3)                ;颜色
               '(70 . 0)                ;图层状态
               (cons 2 "windows")        ;图层名
             )
    )
  )
)

BDYCAD

阿拉的也差不多
(if (=(tblobjname "LAYER" "AID") nil)
    (progn
        (entmake (list
                    '(0 . "LAYER")
                    '(100 . "AcDbSymbolTableRecord")
                    '(100 . "AcDbLayerTableRecord")
                    '(6 . "CONTINUOUS")
                    '(62 . 4)
                    '(70 . 0)
                    (cons 2 "AID")))))