[试用]：新写了”图层匹配“刷子工具，请试用...

XDSoft

;|
  命令：XDTB_LayerMatch
  功能：图层匹配，刷子，把选取的实体图层和目标实体匹配。
|;

2. 
   
3. [FONT=courier new]
   
4. 
   
5. (defun c:XDTB_LayerMatch (/ $XDTB_LayerMatch_change ss sel lyr)
   
6.   (defun $XDTB_LayerMatch_change (ss lyr / e)
   
7.     (xdrx_setsstodb ss 0)
   
8.     (while (setq e (xdrx_getentdata 0))
   
9.       (xdrx_modent 8 lyr)
   
10.     )
    
11.   )
    
12.   (prompt "\n请选取要改变的实体<退出>:")
    
13.   (if (setq ss (ssget))
    
14.     (progn
    
15.       (xdrx_begin)
    
16.       (if (setq sel (car (xdrx_entsel "\n请选取匹配的目标层的实体<输入>:")))
    
17.         (progn
    
18.           (setq lyr (xdrx_getentdxf 8))
    
19.         )
    
20.         (progn
    
21.           (if (= "" (setq lyr (getstring "\n请输入匹配的层名:")))
    
22.             (progn
    
23.               (if (= 1 (xdrx_yesorno "\n是否使用当前层" 1))
    
24.                 (progn
    
25.                   (setq lyr (getvar "clayer"))
    
26.                 )
    
27.                 (setq lyr nil)
    
28.               )
    
29.             )
    
30.           )
    
31.         )
    
32.       )
    
33.       (if lyr
    
34.         (progn
    
35. ;|          ($XDTB_LayerMatch_change ss lyr)|;
    
36.           (xdrx_entity_SetLayer ss lyr)
    
37.           (prompt (strcat "\n已经将选取的" (itoa (sslength ss))
    
38.                           "个实体图层匹配到"" lyr ""层！"
    
39.                   )
    
40.           )
    
41.         )
    
42.       )
    
43.       (xdrx_end)
    
44.     )
    
45.   )
    
46.   (princ)
    
47. )
    
48. [/FONT]

<br /> [FONT=courier new]<br /> <br /> (defun c:XDTB_LayerMatch (/ $XDTB_LayerMatch_change ss sel lyr)<br />   (defun $XDTB_LayerMatch_change (ss lyr / e)<br />     (xdrx_setsstodb ss 0)<br />     (while (setq e (xdrx_getentdata 0))<br />       (xdrx_modent 8 lyr)<br />     )<br />   )<br />   (prompt "\n请选取要改变的实体<退出>:")<br />   (if (setq ss (ssget))<br />     (progn<br />       (xdrx_begin)<br />       (if (setq sel (car (xdrx_entsel "\n请选取匹配的目标层的实体<输入>:")))<br />         (progn<br />           (setq lyr (xdrx_getentdxf 8))<br />         )<br />         (progn<br />           (if (= "" (setq lyr (getstring "\n请输入匹配的层名:")))<br />             (progn<br />               (if (= 1 (xdrx_yesorno "\n是否使用当前层" 1))<br />                 (progn<br />                   (setq lyr (getvar "clayer"))<br />                 )<br />                 (setq lyr nil)<br />               )<br />             )<br />           )<br />         )<br />       )<br />       (if lyr<br />         (progn<br /> ;|          ($XDTB_LayerMatch_change ss lyr)|;<br />           (xdrx_entity_SetLayer ss lyr)<br />           (prompt (strcat "\n已经将选取的" (itoa (sslength ss))<br />                           "个实体图层匹配到"" lyr ""层！"<br />                   )<br />           )<br />         )<br />       )<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> [/FONT]

XDSoft

最初由 Tangent 发布
[B]这种刷层用CAD的Matchprop就可以，只不过对块内的实体还是无能为力，对块改层除非块内实体都是在0层做的，否则改层没有多大的实用意义。 [/B]

好，将加上子实体的处理。

小菜

要能将一种填充刷成另一种填充图案，cad的matchprop经常不能正确刷出来，不知道什么原因？

caibaobao

是否能写一个把文字内容也能够“刷”成相同内容得“刷子”呢？

XDSoft

最初由 小菜 发布
[B]要能将一种填充刷成另一种填充图案，cad的matchprop经常不能正确刷出来，不知道什么原因？ [/B]

程序写好了，去看看：

http://www.xdcad.net/forum/showthread.php?postid=72831#post72831

XDSoft

最初由 caibaobao 发布
[B]是否能写一个把文字内容也能够“刷”成相同内容得“刷子”呢？ [/B]

文字内容相同，这种应用多吗？用ACAD自己的刷子就可以了吧？

Zhang830406

不知道你的源程序怎么个用法儿

说说，谢谢！！：）

XDSoft

最初由 Zhang830406 发布
[B]不知道你的源程序怎么个用法儿

说说，谢谢！！：） [/B]

你要安装“晓东工具箱”。

在论坛提供的程序都是上版本“工具箱”发布后，根据朋友要求新写的程序。

LISP程序如何用，你用 LISP 做关键字搜索下论坛。论坛讲过很多的。

再有不清楚的地方，发贴到论坛来！

欢迎你常来！

wufei1

能不能讲解一下！

XDSoft

最初由 wufei1 发布
[B]能不能讲解一下！ [/B]

需要讲解什么呢？