按弦长获取Spline上点

eachy

仅是一个示例, 只写了往起点方向,

1. (defun c:tt (/ e p1 p2 len pts pam c ptl)
   
2.   (if (and (setq e (xdrx_entsel "\nSelect spline: " '((0 . "spline"))))
   
3.        (setq p1 (getpoint "\nBasepoint: "))
   
4.        (setq p2 (getpoint p1 "\nDirect: "))
   
5.        (setq len (getdist p1 "\nLength: "))
   
6.       )
   
7.     (progn
   
8.       (setq p1 (xdrx_curve_getclosestpoint (car e) p1)
   
9.         p2 (xdrx_curve_getclosestpoint (car e) p2)
   
10.       )
    
11.       (if (> (xdrx_curve_getparamatpoint (car e) p1)
    
12.          (xdrx_curve_getparamatpoint (car e) p2)
    
13.       )
    
14.     (progn
    
15.       (setq pam (xdrx_curve_getparamatpoint (car e) p1))
    
16.       (while
    
17.         (and (setq c (xdrx_circle_make p1 len))
    
18.          (setq pts (xdrx_entity_intersectwith c (car e) 0))
    
19.          (setq pts (vl-remove-if
    
20.                  '(lambda (x)
    
21.                 (> (xdrx_curve_getparamatpoint
    
22.                      (car e)
    
23.                      x
    
24.                    )
    
25.                    pam
    
26.                 )
    
27.                   )
    
28.                  pts
    
29.                )
    
30.          )
    
31.          (setq p1  (if (= (length pts) 1)
    
32.                  (car pts)
    
33.                  (last (apply 'xdrx_points_sortoncurve
    
34.                       (cons (car e) pts)
    
35.                    )
    
36.                  )
    
37.                )
    
38.                pam (xdrx_curve_getparamatpoint (car e) p1)
    
39.          )
    
40.          (setq ptl (cons p1 ptl))
    
41.          (progn (xdrx_entity_delete c) t)
    
42.         )
    
43.       )
    
44.       (xdrx_entity_delete c)
    
45.       (setq pl (apply 'xdrx_polyline_make ptl))
    
46.       (xdrx_setpropertyvalue pl "Color" 1)
    
47.     )
    
48.       )
    
49.     )
    
50.   )
    
51.   (princ)
    
52. )

(defun c:tt (/ e p1 p2 len pts pam c ptl)<br />   (if (and (setq e (xdrx_entsel "\nSelect spline: " '((0 . "spline"))))<br />        (setq p1 (getpoint "\nBasepoint: "))<br />        (setq p2 (getpoint p1 "\nDirect: "))<br />        (setq len (getdist p1 "\nLength: "))<br />       )<br />     (progn<br />       (setq p1 (xdrx_curve_getclosestpoint (car e) p1)<br />         p2 (xdrx_curve_getclosestpoint (car e) p2)<br />       )<br />       (if (> (xdrx_curve_getparamatpoint (car e) p1)<br />          (xdrx_curve_getparamatpoint (car e) p2)<br />       )<br />     (progn<br />       (setq pam (xdrx_curve_getparamatpoint (car e) p1))<br />       (while<br />         (and (setq c (xdrx_circle_make p1 len))<br />          (setq pts (xdrx_entity_intersectwith c (car e) 0))<br />          (setq pts (vl-remove-if<br />                  '(lambda (x)<br />                 (> (xdrx_curve_getparamatpoint<br />                      (car e)<br />                      x<br />                    )<br />                    pam<br />                 )<br />                   )<br />                  pts<br />                )<br />          )<br />          (setq p1  (if (= (length pts) 1)<br />                  (car pts)<br />                  (last (apply 'xdrx_points_sortoncurve<br />                       (cons (car e) pts)<br />                    )<br />                  )<br />                )<br />                pam (xdrx_curve_getparamatpoint (car e) p1)<br />          )<br />          (setq ptl (cons p1 ptl))<br />          (progn (xdrx_entity_delete c) t)<br />         )<br />       )<br />       (xdrx_entity_delete c)<br />       (setq pl (apply 'xdrx_polyline_make ptl))<br />       (xdrx_setpropertyvalue pl "Color" 1)<br />     )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

q3_2006

谢谢E大，要搞明白这几个函数。。{:soso_e121:}

st788796

呵呵，一环套一环算法

caoliu023

学习留用:),感谢E大无私分享