求一个快速涮图层工具（含块）块工具

00放飞梦想00

用第一图图层涮第二个图层（只涮一个图元），要求第二个图层内的所有图元（含块，块中块，匿名块，直线，多线段，样条线，圆，弧等），涮为第一图层

satan421

1. ;;刷图层
   
2. (defun c:test ( / entname1 entname2 layer ss)
   
3.   (setq entname1 (car(entsel"\n请选择原图层图元:")))
   
4.   (if entname1
   
5.     (progn
   
6.       (setq entname2 (car(entsel"\n请选择需要更改图层的图元:")))
   
7.       (if entname1
   
8.         (progn
   
9.           (setq layer (cdr(assoc '8 (entget entname1))))
   
10.           (setq ss (ssget "X" (list(assoc '8 (entget entname2)))))
    
11.           (vl-cmdf "chprop" ss "" "LA" layer "")
    
12.           )
    
13.         (princ"\n未选中!")
    
14.         )
    
15.       )
    
16.     (princ"\n未选中!")
    
17.     )
    
18. )
    

;;刷图层<br /> (defun c:test ( / entname1 entname2 layer ss)<br />   (setq entname1 (car(entsel"\n请选择原图层图元:")))<br />   (if entname1<br />     (progn<br />       (setq entname2 (car(entsel"\n请选择需要更改图层的图元:")))<br />       (if entname1<br />         (progn<br />           (setq layer (cdr(assoc '8 (entget entname1))))<br />           (setq ss (ssget "X" (list(assoc '8 (entget entname2)))))<br />           (vl-cmdf "chprop" ss "" "LA" layer "")<br />           )<br />         (princ"\n未选中!")<br />         )<br />       )<br />     (princ"\n未选中!")<br />     )<br /> )<br />

664571221

satan421 发表于 2019-5-14 08:53

他要求是刷图元的图层，你吧整个图元所在图层都刷了

satan421

664571221 发表于 2019-5-14 09:48
他要求是刷图元的图层，你吧整个图元所在图层都刷了

"要求第二个图层内的所有图元，涮为第一图层"，我感觉我理解的没毛病吧

1291500406

satan421 发表于 2019-5-14 10:22
"要求第二个图层内的所有图元，涮为第一图层"，我感觉我理解的没毛病吧

程序中没有对块操作的语句，不满足这个条件，块内，属性块，动态块，块中块，匿名块，这个块一个比一个难

satan421

1291500406 发表于 2019-5-14 10:40
程序中没有对块操作的语句，不满足这个条件，块内，属性块，动态块，块中块，匿名块，这个块一个比一个难 ...

块没研究过，有空研究下

00放飞梦想00