（XD::POLYLINE:GetSegAt）获取多段线上指定点所在的直线（弧线）段的几何实体

newer

1. (defun XD::POLYLINE:GetSegAt (e pnt / g i nums tf tf1 typ)
   
2.   (if (= (car (xdrx_object_classname e)) "POLYLINE")
   
3.     (setq tf1 (xdrx_polyline_convertfrom e))
   
4.   )
   
5.   (if (or (= (type pnt) 'REAL)
   
6.           (= (type pnt) 'INT)
   
7.       )
   
8.     (setq pnt (xdrx_curve_getpointatparam e pnt))
   
9.   )
   
10.   (setq nums (xdrx_polyline_numverts e)
    
11.         i 0
    
12.   )
    
13.   (setq tf t)
    
14.   (while (and
    
15.            tf
    
16.            (< i nums)
    
17.          )
    
18.     (setq typ (xdrx_polyline_segtype e i))
    
19.     (if (xdrx_polyline_onsegat e i pnt)
    
20.       (progn
    
21.         (setq tf nil)
    
22.         (cond
    
23.           ((= typ "kLine")
    
24.             (setq g (xdrx_getpropertyvalue e "linesegat" i))
    
25.           )
    
26.           (t
    
27.             (setq g (xdrx_getpropertyvalue e "arcsegat" i))
    
28.           )
    
29.         )
    
30.       )
    
31.     )
    
32.     (setq i (1+ i))
    
33.   )
    
34.   (if tf1
    
35.     (xdrx_polyline_convertto e)
    
36.   )
    
37.   g
    
38. )

(defun XD::POLYLINE:GetSegAt (e pnt / g i nums tf tf1 typ)<br />   (if (= (car (xdrx_object_classname e)) "POLYLINE")<br />     (setq tf1 (xdrx_polyline_convertfrom e))<br />   )<br />   (if (or (= (type pnt) 'REAL)<br />           (= (type pnt) 'INT)<br />       )<br />     (setq pnt (xdrx_curve_getpointatparam e pnt))<br />   )<br />   (setq nums (xdrx_polyline_numverts e)<br />         i 0<br />   )<br />   (setq tf t)<br />   (while (and<br />            tf<br />            (< i nums)<br />          )<br />     (setq typ (xdrx_polyline_segtype e i))<br />     (if (xdrx_polyline_onsegat e i pnt)<br />       (progn<br />         (setq tf nil)<br />         (cond<br />           ((= typ "kLine")<br />             (setq g (xdrx_getpropertyvalue e "linesegat" i))<br />           )<br />           (t<br />             (setq g (xdrx_getpropertyvalue e "arcsegat" i))<br />           )<br />         )<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br />   (if tf1<br />     (xdrx_polyline_convertto e)<br />   )<br />   g<br /> )

q3_2006

炸开更直接哈...