同时在多个图层画图

小师傅

请问大大，我需要在多个图层画一图元，用lisp 怎么写，是在其中一图层画好图元后在复制到其它图层，还是直接打开多个图层画图呢？选择单个图层或多个图层的选项应该用哪个函数啊？

llsheng_73

1. (SETQ P(GETPOINT))(FOREACH X '("0" "DGX")
   
2.   (command"layer""M" x "")
   
3.   (command "POINT" p ""))
   

(SETQ P(GETPOINT))(FOREACH X '("0" "DGX")<br />   (command"layer""M" x "")<br />   (command "POINT" p ""))<br />

1. (SETQ P(GETPOINT))
   
2. (mapcar'(lambda(x)(entmake(list'(0 . "point")(cons 8 x)(cons 10 p))))'("0" "DGX"))

(SETQ P(GETPOINT))<br /> (mapcar'(lambda(x)(entmake(list'(0 . "point")(cons 8 x)(cons 10 p))))'("0" "DGX"))

1. (SETQ P(GETPOINT))
   
2. (FOREACH X '("0" "DGX")
   
3.    (IF(NULL (TBLOBJNAME"LAYER"x))
   
4.     (entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")
   
5.      '(70 . 0)(cons 2 x))))
   
6.   (ENTMAKE (LIST'(0 . "POINT")(CONS 8 X)(CONS 10 P))))
   

(SETQ P(GETPOINT))<br /> (FOREACH X '("0" "DGX")<br />    (IF(NULL (TBLOBJNAME"LAYER"x))<br />     (entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")<br />      '(70 . 0)(cons 2 x))))<br />   (ENTMAKE (LIST'(0 . "POINT")(CONS 8 X)(CONS 10 P))))<br />

1. (SETQ P(GETPOINT))
   
2. (FOREACH X '(("0"1)("DGX" 3))
   
3.   (IF(NULL (TBLOBJNAME"LAYER"(CAR X)))
   
4.     (entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")
   
5.        '(70 . 0)(cons 2 (CAR X)))))
   
6.   (ENTMAKE (LIST'(0 . "POINT")(CONS 8 (CAR X))(CONS 62 (LAST X))(CONS 10 P))))

(SETQ P(GETPOINT))<br /> (FOREACH X '(("0"1)("DGX" 3))<br />   (IF(NULL (TBLOBJNAME"LAYER"(CAR X)))<br />     (entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")<br />        '(70 . 0)(cons 2 (CAR X)))))<br />   (ENTMAKE (LIST'(0 . "POINT")(CONS 8 (CAR X))(CONS 62 (LAST X))(CONS 10 P))))

hhh454

直接先画好图，然后复制几份，分别指定图层就好来自: Android客户端

mycad

提示：在一个图层绘图，copy到其他图层即可

vormittag

用entmake 直接指定图层

q3_2006

llsheng_73 发表于 2014-5-27 07:46

(SETQ P(GETPOINT))
(apply'entmake(mapcar'(lambda(x)(list'(0 . "point")(cons 8 x)(cons 10 p)))'("0" "DGX")))

这个不可以吧....

llsheng_73

q3_2006 发表于 2014-5-27 16:36
(SETQ P(GETPOINT))
(apply'entmake(mapcar'(lambda(x)(list'(0 . "point")(cons 8 x)(cons 10 p)))'("0 ...

是不行，得改成(mapcar'(lambda(x)(entmake(list'(0 . "point")(cons 8 x)(cons 10 p))))'("0" "DGX"))
并且后边列表里边的图层都存在

ysq101

llsheng_73 发表于 2014-5-27 07:46

L大喜欢用大写？？

ysq101

vormittag 发表于 2014-5-27 09:20
用entmake 直接指定图层

这个正解啊。。。。复制都太慢了~~~
给定几个必需的变量
直接MAKE几次就好了
快多了

小师傅

发表于 昨天 07:46 |只看该作者





  

本帖最后由 llsheng_73 于 2014-5-27 17:30 编辑













普通浏览复制代码


01.(SETQ P(GETPOINT))(FOREACH X '("0" "DGX")


02.  (command"layer""M" x "")


03.  (command "POINT" p ""))









普通浏览复制代码


01.(SETQ P(GETPOINT))


02.(mapcar'(lambda(x)(entmake(list'(0 . "point")(cons 8 x)(cons 10 p))))'("0" "DGX"))



















普通浏览复制代码


01.(SETQ P(GETPOINT))


02.(FOREACH X '("0" "DGX")


03.   (IF(NULL (TBLOBJNAME"LAYER"x))


04.    (entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")


05.     '(70 . 0)(cons 2 x))))


06.  (ENTMAKE (LIST'(0 . "POINT")(CONS 8 X)(CONS 10 P))))

















普通浏览复制代码


01.(SETQ P(GETPOINT))


02.(FOREACH X '(("0"1)("DGX" 3))


03.  (IF(NULL (TBLOBJNAME"LAYER"(CAR X)))


04.    (entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")


05.       '(70 . 0)(cons 2 (CAR X)))))


06.  (ENTMAKE (LIST'(0 . "POINT")(CONS 8 (CAR X))(CONS 62 (LAST X))(CONS 10 P))))

学习了，那我想同在“DGX","DGX1","DGX2"3个图层同时画图，每个图层的颜色不一样，应该怎么写啊