(XD::Hatch:GetSclByGap)获取填充指定间距的比例值

newer

1. ;|
   
2. 获取填充指定间距的比例值
   
3. 参数：
   
4.   name  ---- 模式名
   
5.   gap   ---- 平行线间距
   
6. 返回值：
   
7.   比例值或NIL
   
8. |;
   
9. (defun XD::Hatch:GetSclByGap (name gap / a def gap1 v)
   
10. (xdrx_setmark)
    
11. (and
    
12.     (/= (strcase name) "SOLID")
    
13.     (xdrx_hatch_make '(0.0 0.0 0.0) '(10.0 0.0 0.0) '(10.0 10.0 0) '(0.0 10.0 0.0))
    
14.     (xdrx_hatch_setPattern (entlast) name)
    
15.     (setq def (xdrx_hatch_patternDef (entlast))
    
16.           gap1 (sqrt (+ (* (setq a (cadr (assoc "OffsetX" (car def))))
    
17.                            a
    
18.                         ) (* (setq a (cadr (assoc "OffsetY" (car def))))
    
19.                              a
    
20.                           )
    
21.                      )
    
22.                )
    
23.     )
    
24.     (xdrx_entity_delete (xdrx_getss 9))
    
25.     (setq v (/ gap gap1))   
    
26.   )
    
27.   v
    
28. )

;|<br /> 获取填充指定间距的比例值<br /> 参数：<br />   name  ---- 模式名<br />   gap   ---- 平行线间距<br /> 返回值：<br />   比例值或NIL<br /> |;<br /> (defun XD::Hatch:GetSclByGap (name gap / a def gap1 v)<br /> (xdrx_setmark)<br /> (and<br />     (/= (strcase name) "SOLID")<br />     (xdrx_hatch_make '(0.0 0.0 0.0) '(10.0 0.0 0.0) '(10.0 10.0 0) '(0.0 10.0 0.0))<br />     (xdrx_hatch_setPattern (entlast) name)<br />     (setq def (xdrx_hatch_patternDef (entlast))<br />           gap1 (sqrt (+ (* (setq a (cadr (assoc "OffsetX" (car def))))<br />                            a<br />                         ) (* (setq a (cadr (assoc "OffsetY" (car def))))<br />                              a<br />                           )<br />                      )<br />                )<br />     )<br />     (xdrx_entity_delete (xdrx_getss 9)) <br />     (setq v (/ gap gap1))   <br />   )<br />   v<br /> )