用ENTMAKE来做图层

llsheng_73 · 发表于 2013-3-27 17:05:00

(defun SETLAYER(LAY LTYPE CLR)
  (if (=(tblobjname "LAYER" LAY) nil)
(entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")
   (CONS 6  LTYPE)(cons 62 CLR)'(70 . 0)(cons 2 LAY))))
  (setvar "CLAYER" LAY)
  )
自己用ENTMAKE做的新建图层（如果LAY已经存在则不建立）并将其设为当前图层
希望大家指点

c961806787 · 发表于 2013-8-18 00:03:00

收了，非常感谢！

zhangkui9070 · 发表于 2022-7-22 15:59:00

73老师是高手

用ENTMAKE来做图层

发表回复

精选推荐