(XD::Polyline:FilletType)查询多段线指定索引的倒角类型

newer

1. ;|
   
2. 查询多段线指定索引的倒角类型
   
3. 参数:
   
4.   e ---- LWPOLYLINE
   
5.   index- 索引值
   
6. 
   
7. 
   
8. 返回值：
   
9.   "C" --直线段倒角
   
10.   "F" --弧线倒角
    
11.   NIL --非倒角顶点
    
12. |;
    
13. (defun XD::Polyline:FilletType (e index / info ret tf xdata)
    
14.   (setq tf (xdrx_polyline_segtype e index)
    
15.         xdata (xdrx_xdata_get e "XD_FILLET")
    
16.   )
    
17.   (cond
    
18.     ((= tf "kArc")
    
19.       (if (member index info)
    
20.         (setq ret "F")
    
21.       )
    
22.     )
    
23.     ((and
    
24.        (= tf "kLine")
    
25.        (member index (xdrx_xdata_get e "XD_FILLET"))
    
26.      )
    
27.       (setq ret "C")
    
28.     )
    
29.   )
    
30.   ret
    
31. )
    
32. 
    

;|<br /> 查询多段线指定索引的倒角类型<br /> 参数:<br />   e ---- LWPOLYLINE<br />   index- 索引值<br /> <br /> <br /> 返回值：<br />   "C" --直线段倒角<br />   "F" --弧线倒角<br />   NIL --非倒角顶点<br /> |;<br /> (defun XD::Polyline:FilletType (e index / info ret tf xdata)<br />   (setq tf (xdrx_polyline_segtype e index)<br />         xdata (xdrx_xdata_get e "XD_FILLET")<br />   )<br />   (cond<br />     ((= tf "kArc")<br />       (if (member index info)<br />         (setq ret "F")<br />       )<br />     )<br />     ((and<br />        (= tf "kLine")<br />        (member index (xdrx_xdata_get e "XD_FILLET"))<br />      )<br />       (setq ret "C")<br />     )<br />   )<br />   ret<br /> )<br /> <br />