初贴 创建图层函数，使用函数创建图层

NZG36900

• 初次创建明经
• 后期会不断更新多年总结经验代码
• 如有大神由于问题请指点>>>
• 创建图层
• (defun NN_CJTC (Ty_Ttc Ys)
•   ; (NN_CJTC 图层名称 颜色)
•   (if(/=(type Ys) 'int)(setq  Ys (atoi Ys)))
•   (if (not (tblsearch "layer" Ty_Ttc))
•     (progn
•       (if (= Ty_Ttc "0")
•           (princ "\n[0]图层不可更改!!")
•           (entmake (list '(0 . "layer") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord") '(70 . 0) '(6 . "Continuous") (cons 2 Ty_Ttc) (cons 62 Ys)));创建图层
•       );if
•     );progn
•   );if
•   (prin1)
• )  
  

NZG36900

如有大神优化问题请指点>>>