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

用ENTMAKE来做图层

(defun SETLAYER(LAY LTYPE CLR)
(if (=(tblobjname "LAYER" LAY) nil)
    (entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")
      (CONS 6LTYPE)(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老师是高手
页: [1]
查看完整版本: 用ENTMAKE来做图层