（XD::Polyline:Remove-Half-Circle）删除带弧段多段线指定位置的半圆弧

newer

1. (defun XD::Polyline:Remove-Half-Circle
   
2.        (e pt / bulge ept g mpt seg spt typ typ1)
   
3.   (setq        seg (car (xdrx-getpropertyvalue e "onsegat" pt))
   
4.         typ (xdrx-polyline-segtype e seg)
   
5.   )
   
6.   (if (= typ "kArc")
   
7.     (progn (setq spt  (xdrx-getpropertyvalue e "pointat" (1- seg))
   
8.                  mpt  (xdrx-getpropertyvalue e "pointat" seg)
   
9.                  ept  (xdrx-getpropertyvalue e "pointat" (1+ seg))
   
10.                  typ1 (xdrx-polyline-segtype e (1- seg))
    
11.            )
    
12.            (if (= typ1 "kArc")
    
13.              (progn (setq g        (xdge::constructor "kcircarc3d" spt mpt ept)
    
14.                           bulge        (xdrx-getpropertyvalue g "bulge")
    
15.                     )
    
16.                     (xdrx-polyline-removevertexat e (fix seg))
    
17.                     (xdrx-polyline-setbulgeat e (1- seg) bulge)
    
18.                     (if        (and (= typ1 "kArc")
    
19.                              (= (xdrx-polyline-segtype e seg) "kArc")
    
20.                         )
    
21.                       (progn (setq ept         (xdrx-getpropertyvalue e "pointat" (1+ seg))
    
22.                                    g         (xdge::constructor "kcircarc3d" spt mpt ept)
    
23.                                    bulge (xdrx-getpropertyvalue g "bulge")
    
24.                              )
    
25.                              (xdrx-polyline-removevertexat e (fix seg))
    
26.                              (xdrx-polyline-setbulgeat e (1- seg) bulge)
    
27.                       )
    
28.                     )
    
29.              )
    
30.              (progn
    
31.                     (xdrx-polyline-removevertexat e (fix seg))
    
32.                     (xdrx-polyline-removevertexat e (fix seg))
    
33.              )
    
34.            )
    
35.     )
    
36.   )
    
37. )
    
38. 
    

(defun XD::Polyline:Remove-Half-Circle<br />        (e pt / bulge ept g mpt seg spt typ typ1)<br />   (setq        seg (car (xdrx-getpropertyvalue e "onsegat" pt))<br />         typ (xdrx-polyline-segtype e seg)<br />   )<br />   (if (= typ "kArc")<br />     (progn (setq spt  (xdrx-getpropertyvalue e "pointat" (1- seg))<br />                  mpt  (xdrx-getpropertyvalue e "pointat" seg)<br />                  ept  (xdrx-getpropertyvalue e "pointat" (1+ seg))<br />                  typ1 (xdrx-polyline-segtype e (1- seg))<br />            )<br />            (if (= typ1 "kArc")<br />              (progn (setq g        (xdge::constructor "kcircarc3d" spt mpt ept)<br />                           bulge        (xdrx-getpropertyvalue g "bulge")<br />                     )<br />                     (xdrx-polyline-removevertexat e (fix seg))<br />                     (xdrx-polyline-setbulgeat e (1- seg) bulge)<br />                     (if        (and (= typ1 "kArc")<br />                              (= (xdrx-polyline-segtype e seg) "kArc")<br />                         )<br />                       (progn (setq ept         (xdrx-getpropertyvalue e "pointat" (1+ seg))<br />                                    g         (xdge::constructor "kcircarc3d" spt mpt ept)<br />                                    bulge (xdrx-getpropertyvalue g "bulge")<br />                              )<br />                              (xdrx-polyline-removevertexat e (fix seg))<br />                              (xdrx-polyline-setbulgeat e (1- seg) bulge)<br />                       )<br />                     )<br />              )<br />              (progn <br />                     (xdrx-polyline-removevertexat e (fix seg))<br />                     (xdrx-polyline-removevertexat e (fix seg))<br />              )<br />            )<br />     )<br />   )<br /> )<br /> <br />

liuyj

怎么连圆弧两边的子段也弄没了？

wzjck01

试一试好不好用