(XD::Hatch:MatchFrom)填充匹配

XDSoft

1. ;|
   
2. 色块匹配
   
3. 参数：
   
4.    dst --- 目标HATCH
   
5.    src --- 源HATCH
   
6. 返回值：T
   
7. 功能：目标色块的样式、比例等匹配源色块
   
8. |;
   
9. (defun XD::Hatch:MatchFrom (dst src / info)
   
10.   (xdrx_entity_setPropertiesFrom dst src)
    
11.   (setq info (xdrx_hatch_info src))
    
12.   (xdrx_setpropertyvalue dst "PatternName" (list (cadr (assoc "Style" info))
    
13.                                                  (cadr (assoc "Name" info))
    
14.                                            ) "PatternAngle" (cadr
    
15.                                                                   (assoc "Angle" info)
    
16.                                                             ) "PatternScale"
    
17.                          (cadr (assoc "Scale" info))
    
18.   )
    
19.   t
    
20. )

;|<br /> 色块匹配<br /> 参数：<br />    dst --- 目标HATCH<br />    src --- 源HATCH<br /> 返回值：T<br /> 功能：目标色块的样式、比例等匹配源色块<br /> |;<br /> (defun XD::Hatch:MatchFrom (dst src / info)<br />   (xdrx_entity_setPropertiesFrom dst src)<br />   (setq info (xdrx_hatch_info src))<br />   (xdrx_setpropertyvalue dst "PatternName" (list (cadr (assoc "Style" info))<br />                                                  (cadr (assoc "Name" info))<br />                                            ) "PatternAngle" (cadr<br />                                                                   (assoc "Angle" info)<br />                                                             ) "PatternScale"<br />                          (cadr (assoc "Scale" info))<br />   )<br />   t<br /> )

lgb711010

目标色块的样式、比例等匹配源色块，能否使用于天正的房间实体呢？