(XD::Polyline:ResetFirstVertex)重设LWPOLYLINE或点表的起始点

newer

1. (defun XD::Polyline:ResetFirstVertex (ent pnt / e1 e2 lst1 lst2 pos ss typ)
   
2.   (setq typ (type ent))
   
3.   (cond
   
4.     ((= typ 'ENAME)
   
5.       (if (xdrx_getpropertyvalue ent "isClosed")
   
6.         (progn
   
7.           (setq typ (xdrx_object_classname ent))
   
8.           (if (= "POLYLINE" (car typ))
   
9.             (setq ent (xdrx_polyline_convertfrom ent))
   
10.           )
    
11.           (if (and
    
12.                 (xdrx_point_ison pnt ent)
    
13.                 (setq ss (xdrx_curve_getsplitcurves ent pnt))
    
14.               )
    
15.             (progn
    
16.               (ssdel (entlast) ss)
    
17.               (setq e1 (entlast)
    
18.                     e2 (ssname ss 0)
    
19.               )
    
20.               (xdrx_curve->polyline e1 e2)
    
21.               (xdrx_object_swapid ent e1)
    
22.             )
    
23.           )
    
24.         )
    
25.       )
    
26.     )
    
27.     ((= typ 'LIST)
    
28.       (if (setq pos (XD::List:Position pnt ent))
    
29.         (progn
    
30.           (setq lst1 (xd::list:n+ ent pos)
    
31.                 lst2 (xd::list:n- ent pos)
    
32.           )
    
33.           (append
    
34.             lst1
    
35.             lst2
    
36.           )
    
37.         )
    
38.       )
    
39.     )
    
40.   )
    
41. )
    
42. 
    

(defun XD::Polyline:ResetFirstVertex (ent pnt / e1 e2 lst1 lst2 pos ss typ)<br />   (setq typ (type ent))<br />   (cond<br />     ((= typ 'ENAME)<br />       (if (xdrx_getpropertyvalue ent "isClosed")<br />         (progn<br />           (setq typ (xdrx_object_classname ent))<br />           (if (= "POLYLINE" (car typ))<br />             (setq ent (xdrx_polyline_convertfrom ent))<br />           )<br />           (if (and<br />                 (xdrx_point_ison pnt ent)<br />                 (setq ss (xdrx_curve_getsplitcurves ent pnt))<br />               )<br />             (progn<br />               (ssdel (entlast) ss)<br />               (setq e1 (entlast)<br />                     e2 (ssname ss 0)<br />               )<br />               (xdrx_curve->polyline e1 e2)<br />               (xdrx_object_swapid ent e1)<br />             )<br />           )<br />         )<br />       )<br />     )<br />     ((= typ 'LIST)<br />       (if (setq pos (XD::List:Position pnt ent))<br />         (progn<br />           (setq lst1 (xd::list:n+ ent pos)<br />                 lst2 (xd::list:n- ent pos)<br />           )<br />           (append<br />             lst1<br />             lst2<br />           )<br />         )<br />       )<br />     )<br />   )<br /> )<br /> <br />