[试用]：应菜宝宝要求，新写了“填充刷子”工具，可以对填充实体刷样式、角度、比例

XDSoft

2. 
   
3. [FONT=courier new]
   
4. ;|
   
5.    命令：XDTB_HatchMatch
   
6.    功能：填充刷子，将选取的HATCH修改成指定HATCH的样式，比例，角度
   
7. |;
   
8. (defun c:XDTB_HatchMatch (/ e1 ss info PatternType name scl ang dblFlag e)
   
9.   (if (and
   
10.         (setq e1 (car (xdrx_entsel "\n请点取目标HATCH<退出>:" '((0 . "HATCH")))))
    
11.         (progn
    
12.           (prompt "\n请选取要修改的HATCH实体<退出>:")
    
13.           (setq ss (ssget '((0 . "HATCH"))))
    
14.         )
    
15.       )
    
16.     (progn
    
17.       (setq info (xdrx_hatch_info e1)
    
18.             PatternType (cadr (assoc "PatternType" info))
    
19.             name (cadr (assoc "Name" info))
    
20.             scl (cadr (assoc "Scale" info))
    
21.             ang (cadr (assoc "Angle" info))
    
22.             space (cadr (assoc "Space" info))
    
23.             dblFlag (cadr (assoc "DoubleFlag" info))
    
24.       )
    
25.       (xdrx_setsstodb ss 0)
    
26.       (while (setq e (xdrx_getentdata 0))
    
27.         (xdrx_hatch_modify_pattern e name)
    
28.         (xdrx_hatch_modify_angle e ang)
    
29.         (cond
    
30.           ((= 1 PatternType)
    
31.             (xdrx_hatch_modify_scale e scl)
    
32.           )
    
33.           (t
    
34.             (xdrx_hatch_modify_scale e space)
    
35.             (xdrx_hatch_modify_double e dblFlag)
    
36.           )
    
37.         )
    
38.       )
    
39.     )
    
40.   )
    
41.   (princ)
    
42. )
    
43. 
    
44. [/FONT]

<br /> [FONT=courier new]<br /> ;|<br />    命令：XDTB_HatchMatch<br />    功能：填充刷子，将选取的HATCH修改成指定HATCH的样式，比例，角度<br /> |;<br /> (defun c:XDTB_HatchMatch (/ e1 ss info PatternType name scl ang dblFlag e)<br />   (if (and<br />         (setq e1 (car (xdrx_entsel "\n请点取目标HATCH<退出>:" '((0 . "HATCH")))))<br />         (progn<br />           (prompt "\n请选取要修改的HATCH实体<退出>:")<br />           (setq ss (ssget '((0 . "HATCH"))))<br />         )<br />       )<br />     (progn<br />       (setq info (xdrx_hatch_info e1)<br />             PatternType (cadr (assoc "PatternType" info))<br />             name (cadr (assoc "Name" info))<br />             scl (cadr (assoc "Scale" info))<br />             ang (cadr (assoc "Angle" info))<br />             space (cadr (assoc "Space" info))<br />             dblFlag (cadr (assoc "DoubleFlag" info))<br />       )<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />         (xdrx_hatch_modify_pattern e name)<br />         (xdrx_hatch_modify_angle e ang)<br />         (cond<br />           ((= 1 PatternType)<br />             (xdrx_hatch_modify_scale e scl)<br />           )<br />           (t<br />             (xdrx_hatch_modify_scale e space)<br />             (xdrx_hatch_modify_double e dblFlag)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> [/FONT]

小菜

我mail了一张图给你，执行结果不正确，这个发言也附上了

XDSoft

最初由 小菜 发布
[B]我mail了一张图给你，执行结果不正确，这个发言也附上了 [/B]

图中你没有表示清楚，你说说现象吧，在论坛，怎么操作的

XDSoft

最初由 小菜 发布
[B]我mail了一张图给你，执行结果不正确，这个发言也附上了 [/B]

发现你图的毛病了，你的HATCH都没有边界，所以替换后没有了，在刷前，先用“晓东工具箱“的”重建边界“，生成边界，然后再刷。

你试试。

caibaobao

论坛上有没有把pline也“刷”成同样宽度的“格式刷”？我好像见过，但没有找到

XDSoft

最初由 caibaobao 发布
[B]论坛上有没有把pline也“刷”成同样宽度的“格式刷”？我好像见过，但没有找到 [/B]

晓东工具箱－曲线工具－曲线加粗命令，里面就有“刷子”的功能，同时也提供了自身相对变比和统一宽度的功能。

aeo

用cad的刷子不是一样吗

小菜

XDTB_HatchMatch，先选择图中圆圈表示的"hatch源“中的dots作为目标hatch，然后窗选 所有物体，就会发现有些hatch丢失了，我试过先执行边界关联和填充重建这两个命令，但执行后也会使图中的部分实体变成其它形状。
我认为作为hatch刷子，应当图中有什么hatch就应该能刷什么，不必再附加执行别的命令，当然更不能没有任何提示就得出错误的运行结果