关于创建图层

aihuyujian

在不打开图层管理器的情况下，怎么搜寻已有图层，比如说有 参考线 这个图层就不新建此图层 没有就创建此图层 还要改变颜色
能用lisp实现么 ？ 大家帮帮忙啦 谢谢啦

llsheng_73

下边两个函数都可以以LAY为图层名建好图层（没有就建），把颜色改为CLR指定的颜色，把LAY指定的图层名置为当前图层

1. (defun SETLAYER(LAY CLR / AcDocument layerObj)
   
2.   (vl-load-com)
   
3.   (setq layerObj(vla-add(vla-get-Layers(setq AcDocument(vla-get-ActiveDocument(vlax-get-acad-object))))LAY))
   
4.   (vla-put-ActiveLayer AcDocument layerObj)
   
5.   (vla-put-Color layerObj CLR)
   
6. )

(defun SETLAYER(LAY CLR / AcDocument layerObj)<br />   (vl-load-com)<br />   (setq layerObj(vla-add(vla-get-Layers(setq AcDocument(vla-get-ActiveDocument(vlax-get-acad-object))))LAY))<br />   (vla-put-ActiveLayer AcDocument layerObj)<br />   (vla-put-Color layerObj CLR)<br /> )

1. (defun SETLAYER_LSP(LAY CLR)
   
2.   (if (=(tblobjname "LAYER" LAY) nil)
   
3.     (entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")
   
4.        '(6 . "CONTINUOUS")(cons 62 CLR)'(70 . 0)(cons 2 LAY)))
   
5.     (entmod(subst(cons 62 CLR)(assoc 62(entget(tblobjname "LAYER" LAY)))(entget(tblobjname "LAYER" LAY))))
   
6.    ) (setvar "CLAYER" LAY)
   
7.   )

(defun SETLAYER_LSP(LAY CLR)<br />   (if (=(tblobjname "LAYER" LAY) nil)<br />     (entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")<br />        '(6 . "CONTINUOUS")(cons 62 CLR)'(70 . 0)(cons 2 LAY)))<br />     (entmod(subst(cons 62 CLR)(assoc 62(entget(tblobjname "LAYER" LAY)))(entget(tblobjname "LAYER" LAY))))<br />    ) (setvar "CLAYER" LAY)<br />   )

aihuyujian

llsheng_73 发表于 2013-11-11 14:38
下边两个函数都可以以LAY为图层名建好图层（没有就建），把颜色改为CLR指定的颜色，把LAY指定的图层名置为当 ...

谢谢大神 我去试试

llsheng_73

aihuyujian 发表于 2013-11-11 15:05
谢谢大神 我去试试

不敢，其实也是来自这里的，我只是下载来进行了一点小修改

aihuyujian

llsheng_73 发表于 2013-11-11 15:19
不敢，其实也是来自这里的，我只是下载来进行了一点小修改

谢谢了 已经完美解决图层创建问题
可是还有个小问题请教大婶了 给看看吧 虽然不影响使用 就是有点不理解
http://bbs.mjtd.com/forum.php?mo ... 6orderby%3Ddateline

yefei812678

能自己创建吗