API应用 Pline弧段增加顶点

st788796

1. (defun c:tt (/  e p index p0 bulge l l1)
   
2.   (if (setq
   
3.         e (car (xdrx_entsel "\nPick Pline: " '((0 . "lwpolyline"))))
   
4.       )
   
5.     (while
   
6.       (and
   
7.         (progn
   
8.           (sssetfirst nil (ssget "P"))
   
9.           t
   
10.         )
    
11.         (setq p (getpoint "\nPoint: "))
    
12.       )
    
13.        (progn
    
14.          (setq p     (xdrx_curve_getclosestpoint e p)
    
15.                index (fix (xdrx_curve_getparamatpoint e p))
    
16.                p0    (xdrx_curve_getpointatparam e index)
    
17.                bulge (xdrx_polyline_getbulgeat e index)
    
18.                l     (xdrx_curve_getdistatpoint
    
19.                        e
    
20.                        p0
    
21.                        (xdrx_curve_getpointatparam e (1+ index))
    
22.                      )
    
23.                l1    (xdrx_curve_getdistatpoint e p0 p)
    
24.          )
    
25.          (xdrx_polyline_addvertexat e (1+ index) p)
    
26.          (xdrx_polyline_setbulgeat e index (* (/ l1 l) bulge))
    
27.          (xdrx_polyline_setbulgeat
    
28.            e
    
29.            (1+ index)
    
30.            (* (/ (- l l1) l) bulge)
    
31.          )
    
32.        )
    
33.     )
    
34.   )
    
35.   (princ)
    
36. )

(defun c:tt (/  e p index p0 bulge l l1)<br />   (if (setq<br />         e (car (xdrx_entsel "\nPick Pline: " '((0 . "lwpolyline"))))<br />       )<br />     (while<br />       (and<br />         (progn<br />           (sssetfirst nil (ssget "P"))<br />           t<br />         )<br />         (setq p (getpoint "\nPoint: "))<br />       )<br />        (progn<br />          (setq p     (xdrx_curve_getclosestpoint e p)<br />                index (fix (xdrx_curve_getparamatpoint e p))<br />                p0    (xdrx_curve_getpointatparam e index)<br />                bulge (xdrx_polyline_getbulgeat e index)<br />                l     (xdrx_curve_getdistatpoint<br />                        e<br />                        p0<br />                        (xdrx_curve_getpointatparam e (1+ index))<br />                      )<br />                l1    (xdrx_curve_getdistatpoint e p0 p)<br />          )<br />          (xdrx_polyline_addvertexat e (1+ index) p)<br />          (xdrx_polyline_setbulgeat e index (* (/ l1 l) bulge))<br />          (xdrx_polyline_setbulgeat<br />            e<br />            (1+ index)<br />            (* (/ (- l l1) l) bulge)<br />          )<br />        )<br />     )<br />   )<br />   (princ)<br /> )