(XD::Pickset:SetOverride)选择集或者实体表设置OverRide以适应局部放大需要

Lispboy

1. ;|
   
2. 选择集或者实体表设置OverRide
   
3. 参数：
   
4.    ss ---- 选择集 or 实体表
   
5.    scl --- 比例值
   
6. 
   
7. 返回值
   
8.       T
   
9. 
   
10. 说明：
    
11. 
    
12. 本函数支持嵌套图块
    
13. 
    
14. 本函数根据比例设置实体的OverRide,对LWPOLYLINE的线宽，尺寸标注的界限长度，文字、箭头大小，HATCH的填充比例, TEXT,MTEXT,ATTRIB根据比例的倒数缩放。
    
15. 以满足局部放大后的上述实体的显示要求。
    
16. 
    
17. |;
    
18. (defun XD::Pickset:SetOverride (ss scl / e tf x)
    
19.   (setq tf (type ss))
    
20.   (cond
    
21.     ((= tf 'PICKSET)
    
22.       (xdrx_setsstodb ss 9)
    
23.       (while (setq e (xdrx_getentdata 9))
    
24.         (XD::Entity:SetOverRide e scl)
    
25.       )
    
26.     )
    
27.     ((= tf 'LIST)
    
28.       (mapcar
    
29.         '(lambda (x)
    
30.            (XD::Entity:SetOverRide x scl)
    
31.          )
    
32.         ss
    
33.       )
    
34.     )
    
35.   )
    
36.   t
    
37. )
    
38. 
    

;|<br /> 选择集或者实体表设置OverRide<br /> 参数：<br />    ss ---- 选择集 or 实体表<br />    scl --- 比例值<br /> <br /> 返回值<br />       T<br /> <br /> 说明：<br /> <br /> 本函数支持嵌套图块<br /> <br /> 本函数根据比例设置实体的OverRide,对LWPOLYLINE的线宽，尺寸标注的界限长度，文字、箭头大小，HATCH的填充比例, TEXT,MTEXT,ATTRIB根据比例的倒数缩放。<br /> 以满足局部放大后的上述实体的显示要求。<br /> <br /> |;<br /> (defun XD::Pickset:SetOverride (ss scl / e tf x)<br />   (setq tf (type ss))<br />   (cond<br />     ((= tf 'PICKSET)<br />       (xdrx_setsstodb ss 9)<br />       (while (setq e (xdrx_getentdata 9))<br />         (XD::Entity:SetOverRide e scl)<br />       )<br />     )<br />     ((= tf 'LIST)<br />       (mapcar<br />         '(lambda (x)<br />            (XD::Entity:SetOverRide x scl)<br />          )<br />         ss<br />       )<br />     )<br />   )<br />   t<br /> )<br /> <br />