[求助]帮个忙，关于定义图层的

Ensen

我切图出来了。0层反而改变了。墙路什么都没有！

Andlu-king

又向高手们学习了一些！

Ensen

。。。。。。怎么没人理了。版主们能解决下吗？能的话给看看！

azjmjsj

;;;线型需要先加载！
(defun ltype-load (ltName ltFile)
  (vl-catch-all-apply
    'vla-load
    (list (vla-get-Linetypes (vla-get-activedocument (vlax-get-acad-object)))
          ltName
          ltFile
    )
  )
)

(defun c:la ( )
(setvar "cmdecho" 0)
(if (=(tblobjname "LAYER" "墙路") nil)
(progn
  (ltype-load "dot" "acadiso.lin")
  (entmake (list
  '(0 . "LAYER")
  '(100 . "AcDbSymbolTableRecord")
  '(100 . "AcDbLayerTableRecord")
  '(6 . "DOT") ;线型
  '(62 . 3) ;颜色
  '(70 . 0) ;图层状态
   (cons 2 "墙路") ;图层名
   )
   )
)
)
(setvar "cmdecho" 1)
(princ)
)