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

tenday · 发表于 2003-11-7 12:20:00

(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 · 发表于 2003-11-7 12:32:00

如下：
(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 · 发表于 2003-11-7 12:44:00

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

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

发表回复

精选推荐

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

发表回复

精选推荐

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