(XD::Hatch:GetPatternName)获得填充文件中的填充模式名

newer

1. ;|
   
2. 获得填充文件中的填充模式名
   
3. 参数：
   
4.   fn --- 填充文件名
   
5. 返回值：
   
6.   表 或 NIL
   
7. 
   
8. 命令: (XD::Hatch:GetPatternName  "acadiso.pat")
   
9. ("SOLID" "ANGLE" "ANSI31" "ANSI32" "ANSI33" "ANSI34" "ANSI35" "ANSI36" "ANSI37"
   
10. "ANSI38" "AR-B816" "AR-B816C" "AR-B88" "AR-BRELM" "AR-BRSTD" "AR-CONC"
    
11. "AR-HBONE" "AR-PARQ1" "AR-RROOF" "AR-RSHKE" "AR-SAND" "BOX" "BRASS" "BRICK"
    
12. "BRSTONE" "CLAY" "CORK" "CROSS" "DASH" "DOLMIT" "DOTS" "EARTH" "ESCHER" "FLEX"
    
13. "GRASS" "GRATE" "GRAVEL" "HEX" "HONEY" "HOUND" "INSUL" "ACAD_ISO02W100")
    
14. 
    
15. |;
    
16. (defun XD::Hatch:GetPatternName(fn / lst str strl x)
    
17.   (setq fn (findfile fn))
    
18.   (if (setq lst (XD::List:FromFile fn))
    
19.     (progn
    
20.       (mapcar
    
21.         '(lambda (x)
    
22.            (if (and
    
23.                  (= 0 (xdrx_string_find x "*"))
    
24.                  (setq str (xdrx_string_split x ","))
    
25.                  (setq str (car str))
    
26.                )
    
27.              (setq strl (cons (substr str 2) strl))
    
28.            )
    
29.          )
    
30.         lst
    
31.       )
    
32.     )
    
33.   )
    
34.   (reverse strl)
    
35. )
    
36. 
    

;|<br /> 获得填充文件中的填充模式名<br /> 参数：<br />   fn --- 填充文件名<br /> 返回值：<br />   表 或 NIL<br /> <br /> 命令: (XD::Hatch:GetPatternName  "acadiso.pat")<br /> ("SOLID" "ANGLE" "ANSI31" "ANSI32" "ANSI33" "ANSI34" "ANSI35" "ANSI36" "ANSI37" <br /> "ANSI38" "AR-B816" "AR-B816C" "AR-B88" "AR-BRELM" "AR-BRSTD" "AR-CONC" <br /> "AR-HBONE" "AR-PARQ1" "AR-RROOF" "AR-RSHKE" "AR-SAND" "BOX" "BRASS" "BRICK" <br /> "BRSTONE" "CLAY" "CORK" "CROSS" "DASH" "DOLMIT" "DOTS" "EARTH" "ESCHER" "FLEX" <br /> "GRASS" "GRATE" "GRAVEL" "HEX" "HONEY" "HOUND" "INSUL" "ACAD_ISO02W100")<br /> <br /> |;<br /> (defun XD::Hatch:GetPatternName(fn / lst str strl x)<br />   (setq fn (findfile fn))<br />   (if (setq lst (XD::List:FromFile fn))<br />     (progn<br />       (mapcar<br />         '(lambda (x)<br />            (if (and<br />                  (= 0 (xdrx_string_find x "*"))<br />                  (setq str (xdrx_string_split x ","))<br />                  (setq str (car str))<br />                )<br />              (setq strl (cons (substr str 2) strl))<br />            )<br />          )<br />         lst<br />       )<br />     )<br />   )<br />   (reverse strl)<br /> )<br /> <br />