Osmode字串

Free-Lancer

1. ;|
   
2. 0 无
   
3. 1 END（端点）
   
4. 2 MID（中点）
   
5. 4 CEN（圆心）
   
6. 8 NOD（节点）
   
7. 16 QUA（象限点）
   
8. 32 INT（交点）
   
9. 64 INS（插入点）
   
10. 128 PER（垂足）
    
11. 256 TAN（切点）
    
12. 512 NEA（最近点）
    
13. 1024 清除所有对象捕捉
    
14. 2048 APP（外观交点）
    
15. 4096 EXT（延伸）
    
16. 8192 PAR（平行）
    
17. |;
    
18. (vl-remove ""
    
19.     (mapcar '(lambda (x y)
    
20.         (if (= (logand (getvar "osmode") x) x)
    
21.    y
    
22.    ""
    
23.         )
    
24.       )
    
25.      '(0 1 2 4 8 16 32 64 128 256 512 1024 2048 4096 8192)
    
26.      '("_None"   "_END"  "_MID"    "_CEN"    "_NOD"
    
27.        "_QUA"    "_INT"  "_INS"    "_PER"    "_TAN"
    
28.        "_NEA"    ""  "_APP"    "_EXT"    "_PAR"
    
29.       )
    
30.     )
    
31. )

;|<br /> 0 无 <br /> 1 END（端点） <br /> 2 MID（中点） <br /> 4 CEN（圆心）<br /> 8 NOD（节点）<br /> 16 QUA（象限点） <br /> 32 INT（交点）<br /> 64 INS（插入点） <br /> 128 PER（垂足）<br /> 256 TAN（切点）<br /> 512 NEA（最近点）<br /> 1024 清除所有对象捕捉 <br /> 2048 APP（外观交点） <br /> 4096 EXT（延伸） <br /> 8192 PAR（平行） <br /> |;<br /> (vl-remove ""<br />     (mapcar '(lambda (x y)<br />         (if (= (logand (getvar "osmode") x) x)<br />    y<br />    ""<br />         )<br />       )<br />      '(0 1 2 4 8 16 32 64 128 256 512 1024 2048 4096 8192)<br />      '("_None"   "_END"  "_MID"    "_CEN"    "_NOD"<br />        "_QUA"    "_INT"  "_INS"    "_PER"    "_TAN"<br />        "_NEA"    ""  "_APP"    "_EXT"    "_PAR"<br />       )<br />     )<br /> )

网事如尘

学习了，感谢分享