[LISP函数]：求将所以图层上的对象合并到一个图层,并将对象颜色置为随层的lisp

qxjlax

求将所以图层上的对象合并到一个图层,并将对象颜色置为随层的lisp

qxjlax

操作是简单,但你一次要处理100多张图的时候就会想到用程序来做了

carrot1983

一次处理100多张也是直接可以用CAD输入:Ctrl+A然后选定一个图层，选定颜色随层OK。简单。
应该没问题。（块里面会有其它图层应该没事。）
[php]
(defun c:test (/ cmd_orig ss)
  (setq cmd_orig (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq ss (ssget "X"))
  (command "chprop" ss "" "layer" "0" "Color" "bylayer" "")
  (setvar "cmdecho" cmd_orig)
  (prin1)
)
[/php]

qxjlax

谢谢了，我原来不知道chprop这个命令!

highflybird

2. 
   
3. (defun C:eee (/ Obj blocklist block n)
   
4.   (vl-load-com)
   
5.   (setq *OBJ (vlax-get-acad-object))
   
6.   (setq *DOC (vla-get-activedocument *OBJ))
   
7.   (setq blocklist (vla-get-blocks *DOC));取得块集合
   
8.   (vlax-for block blocklist             ;遍历块集合
   
9.     (vlax-for n block                   ;遍历单个块
   
10.       (if (/= (vla-get-layer n) 0)
    
11.         (vla-put-layer n 0)
    
12.       )
    
13.       (if (/= (vla-get-color n) 256)
    
14.         (vla-put-color n 256)
    
15.       )
    
16.     )
    
17.   )
    
18.   (princ "\n完成收工!")
    
19.   (princ)
    
20. )
    

<br /> (defun C:eee (/ Obj blocklist block n)<br />   (vl-load-com)<br />   (setq *OBJ (vlax-get-acad-object))<br />   (setq *DOC (vla-get-activedocument *OBJ))<br />   (setq blocklist (vla-get-blocks *DOC));取得块集合<br />   (vlax-for block blocklist             ;遍历块集合<br />     (vlax-for n block                   ;遍历单个块<br />       (if (/= (vla-get-layer n) 0)<br />         (vla-put-layer n 0)<br />       )<br />       (if (/= (vla-get-color n) 256)<br />         (vla-put-color n 256)<br />       )<br />     )<br />   )<br />   (princ "\n完成收工!")<br />   (princ)<br /> )<br />

这个给出一个lisp能改变图中所有图元（包括图块和模型空间，图纸空间等）到0层，颜色为随层。

King、

highflybird 发表于 2007-1-17 13:01

隐藏与冻结的图层与图元都随层了？

chen7560152

学习了~~~~~