如何求曲线上两点沿曲线长度？

tm20038175

曲线上有两点，可以求得两点沿曲线长度吗？
可以打断后提取断线长度，但是打断后变成三根不好控制~~~~

zhynt

vlax-curve-getDistAtPoint  返回曲线从开始点到指定点的曲线段的长度
两点分别到开始点的长度差即两点间的曲线长度

tm20038175

可以举一例吗，谢谢啦 。。。。

Gu_xl

回复 tm20038175 的帖子

1. (if (and
   
2.       (setq en (car(entsel "\n 选择曲线: ")))
   
3.      (setq p1 (getpoint "\n 选择曲线上第一点: "))
   
4.      (setq p2 (getpoint "\n 选择曲线上第二点: "))
   
5.      )
   
6.   (abs
   
7.   (- (vlax-curve-getDistAtPoint en (vlax-curve-getclosestpointto en p1))
   
8.      (vlax-curve-getDistAtPoint en (vlax-curve-getclosestpointto en p2))
   
9.      )
   
10.   )
    
11.   )
    

(if (and<br />       (setq en (car(entsel "\n 选择曲线: ")))<br />      (setq p1 (getpoint "\n 选择曲线上第一点: "))<br />      (setq p2 (getpoint "\n 选择曲线上第二点: "))<br />      )<br />   (abs<br />   (- (vlax-curve-getDistAtPoint en (vlax-curve-getclosestpointto en p1))<br />      (vlax-curve-getDistAtPoint en (vlax-curve-getclosestpointto en p2))<br />      )<br />   )<br />   )<br />

tm20038175

谢谢，就是这个。。。。
只是曲线哪边是起点，哪边是终点怎么判断呢？可以改变方向吗？

caoyin

有现成的函数
vlax-curve-getStartPoint
vlax-curve-getEndPoint
将得到的点顺序reverse一下，然后更新数据

tm20038175

恩，好的，谢谢 ！………

mandala

;;;子程序：pline顶点逆序
(defun reverselwp (ent1 / a pl how li1 li2 li3)
  (setq        pl  (entget ent1 '("*"))
        how nil
  ) ;_ 结束setq
  (foreach an pl
    (if        (setq a (member (car an) '(10 40 41 42)))
      (setq how t)
    ) ;_ 结束if
    (cond ((not how) (setq li1 (cons an li1)))
          ((and how a)
           (cond ((= (car an) 40) (setq an (cons 41 (cdr an))))
                 ((= (car an) 41) (setq an (cons 40 (cdr an))))
                 ((= (car an) 42) (setq an (cons 42 (- 0 (cdr an)))))
                 (t an)
           ) ;_ 结束cond
           (setq li2 (cons an li2))
          )
          ((and how (not a)) (setq li3 (cons an li3)))
    ) ;_ 结束cond
  ) ;_ 结束foreach
  (entmod
    (append (reverse li1)
            (append (cdddr li2) (list (car li2) (cadr li2) (caddr li2)))
            (reverse li3)
    ) ;_ 结束append
  ) ;_ 结束entmod
) ;_ 结束defun
;;;;;;;;;;;;;;;;;;;;;;;;
忘了是谁写的，好像是gu-xl。反正我一直在用。

tm20038175

回复 mandala 的帖子

要的就是这个啊，很好哈，谢谢~~~~

chlh_jd

推荐个PLINE线逆序函数gile写的

1. 
   
2. (defun gile-reverse-pl (ent / e_lst vtx v_lst p_lst l_vtx)
   
3.   (setq e_lst (entget ent))
   
4.   (cond
   
5.     ((= (cdr (assoc 0 e_lst)) "POLYLINE")
   
6.      (setq vtx (entnext ent))
   
7.      (while (= (cdr (assoc 0 (entget vtx))) "VERTEX")
   
8.        (setq v_lst (cons (entget vtx) v_lst)
   
9.       vtx   (entnext vtx)
   
10.        )
    
11.      )
    
12.     )
    
13.     ((= (cdr (assoc 0 e_lst)) "LWPOLYLINE")
    
14.      (setq p_lst (vl-remove-if-not
    
15.      '(lambda (x)
    
16.         (member (car x) '(10 40 41 42))
    
17.       )
    
18.      e_lst
    
19.   )
    
20.     e_lst (vl-remove-if
    
21.      '(lambda (x)
    
22.         (member x p_lst)
    
23.       )
    
24.      e_lst
    
25.   )
    
26.      )
    
27.      (while p_lst
    
28.        (setq v_lst (cons
    
29.        (list (car p_lst) (cadr p_lst) (caddr p_lst) (cadddr p_lst))
    
30.        v_lst
    
31.      )
    
32.       p_lst (member (assoc 10 (cdr p_lst)) (cdr p_lst))
    
33.        )
    
34.      )
    
35.     )
    
36.   )
    
37.   (setq l_vtx (last v_lst)
    
38. l_vtx (subst (cons 40 (cdr (assoc 41 (car v_lst))))
    
39.        (assoc 40 l_vtx)
    
40.        l_vtx
    
41.        )
    
42. l_vtx (subst (cons 41 (cdr (assoc 40 (car v_lst))))
    
43.        (assoc 41 l_vtx)
    
44.        l_vtx
    
45.        )
    
46. l_vtx (subst (cons 42 (- (cdr (assoc 42 (car v_lst)))))
    
47.        (assoc 42 l_vtx)
    
48.        l_vtx
    
49.        )
    
50.   )
    
51.   (setq v_lst
    
52. (mapcar
    
53.     '(lambda (x y)
    
54.        (setq x (subst (cons 40 (cdr (assoc 41 y))) (assoc 40 x) x)
    
55.       x (subst (cons 41 (cdr (assoc 40 y))) (assoc 41 x) x)
    
56.       x (subst (cons 42 (- (cdr (assoc 42 y)))) (assoc 42 x) x)
    
57.        )
    
58.      )
    
59.     v_lst
    
60.     (cdr v_lst)
    
61. )
    
62.   )
    
63.   (if (= (logand 1 (cdr (assoc 70 e_lst))) 1)
    
64.     (setq v_lst (append (list l_vtx) v_lst))
    
65.     (setq v_lst (append v_lst (list l_vtx)))
    
66.   )
    
67.   (cond
    
68.     ((= (cdr (assoc 0 e_lst)) "POLYLINE")
    
69.      (mapcar 'entmake
    
70.       (append (list e_lst) v_lst (list (entget vtx)))
    
71.      )
    
72.      (entdel ent)
    
73.     )
    
74.     ((= (cdr (assoc 0 e_lst)) "LWPOLYLINE")
    
75.      (setq e_lst (append e_lst (apply 'append v_lst)))
    
76.      (entmod e_lst)
    
77.     )
    
78.   )
    
79. )
    

<br /> (defun gile-reverse-pl (ent / e_lst vtx v_lst p_lst l_vtx)<br />   (setq e_lst (entget ent))<br />   (cond<br />     ((= (cdr (assoc 0 e_lst)) "POLYLINE")<br />      (setq vtx (entnext ent))<br />      (while (= (cdr (assoc 0 (entget vtx))) "VERTEX")<br />        (setq v_lst (cons (entget vtx) v_lst)<br />       vtx   (entnext vtx)<br />        )<br />      )<br />     )<br />     ((= (cdr (assoc 0 e_lst)) "LWPOLYLINE")<br />      (setq p_lst (vl-remove-if-not<br />      '(lambda (x)<br />         (member (car x) '(10 40 41 42))<br />       )<br />      e_lst<br />   )<br />     e_lst (vl-remove-if<br />      '(lambda (x)<br />         (member x p_lst)<br />       )<br />      e_lst<br />   )<br />      )<br />      (while p_lst<br />        (setq v_lst (cons<br />        (list (car p_lst) (cadr p_lst) (caddr p_lst) (cadddr p_lst))<br />        v_lst<br />      )<br />       p_lst (member (assoc 10 (cdr p_lst)) (cdr p_lst))<br />        )<br />      )<br />     )<br />   )<br />   (setq l_vtx (last v_lst)<br /> l_vtx (subst (cons 40 (cdr (assoc 41 (car v_lst))))<br />        (assoc 40 l_vtx)<br />        l_vtx<br />        )<br /> l_vtx (subst (cons 41 (cdr (assoc 40 (car v_lst))))<br />        (assoc 41 l_vtx)<br />        l_vtx<br />        )<br /> l_vtx (subst (cons 42 (- (cdr (assoc 42 (car v_lst)))))<br />        (assoc 42 l_vtx)<br />        l_vtx<br />        )<br />   )<br />   (setq v_lst<br /> (mapcar<br />     '(lambda (x y)<br />        (setq x (subst (cons 40 (cdr (assoc 41 y))) (assoc 40 x) x)<br />       x (subst (cons 41 (cdr (assoc 40 y))) (assoc 41 x) x)<br />       x (subst (cons 42 (- (cdr (assoc 42 y)))) (assoc 42 x) x)<br />        )<br />      )<br />     v_lst<br />     (cdr v_lst)<br /> )<br />   )<br />   (if (= (logand 1 (cdr (assoc 70 e_lst))) 1)<br />     (setq v_lst (append (list l_vtx) v_lst))<br />     (setq v_lst (append v_lst (list l_vtx)))<br />   )<br />   (cond<br />     ((= (cdr (assoc 0 e_lst)) "POLYLINE")<br />      (mapcar 'entmake<br />       (append (list e_lst) v_lst (list (entget vtx)))<br />      )<br />      (entdel ent)<br />     )<br />     ((= (cdr (assoc 0 e_lst)) "LWPOLYLINE")<br />      (setq e_lst (append e_lst (apply 'append v_lst)))<br />      (entmod e_lst)<br />     )<br />   )<br /> )<br />

我自己用的是箭头可以倒向的

1. 
   
2. (defun ss-reverse-pl (en / ent pl_vetex b is fst est lst n)
   
3.   (setq ent (entget en '("*")))
   
4.   (setq pl_vetex nil
   
5. b nil
   
6. is T
   
7. fst nil
   
8. est nil
   
9.   )
   
10.   (foreach n ent ;_(setq e (assoc 10 ent))
    
11.     (if (= (car n) 210)
    
12.       (setq is nil)
    
13.     )
    
14.     (cond ((and (or (= 10 (car n))
    
15.       (= 40 (car n))
    
16.       (= 41 (car n))
    
17.       (= 42 (car n))
    
18.   )
    
19.   is
    
20.     )
    
21.     (setq b (cons (cdr n) b))
    
22.     (if (= 4 (length b))
    
23.       (setq pl_vetex (append pl_vetex (list b))
    
24.       b
    
25.       nil
    
26.     )
    
27.    )
    
28.     )
    
29.     (is
    
30.       (setq fst (cons n fst))
    
31.     )
    
32.     (T (setq est (cons n est)))
    
33.   ))
    
34.   (setq lst nil)
    
35.   (foreach a pl_vetex
    
36.     (setq lst (append (list (cons 10 (cadddr a))
    
37.        (cons 40 (caddr a))
    
38.        (cons 41 (cadr a))
    
39.        (cons 42 ( -(car a)))
    
40.         )
    
41.         lst
    
42.        )
    
43.     )
    
44.   )
    
45.   (setq lst (append (reverse fst)
    
46.       lst
    
47.       (reverse est)
    
48.      )
    
49.   )
    
50.   (setq ent lst)
    
51.   (entmod ent)
    
52. )
    

<br /> (defun ss-reverse-pl (en / ent pl_vetex b is fst est lst n)<br />   (setq ent (entget en '("*")))<br />   (setq pl_vetex nil<br /> b nil<br /> is T<br /> fst nil<br /> est nil<br />   )<br />   (foreach n ent ;_(setq e (assoc 10 ent))<br />     (if (= (car n) 210)<br />       (setq is nil)<br />     )<br />     (cond ((and (or (= 10 (car n))<br />       (= 40 (car n))<br />       (= 41 (car n))<br />       (= 42 (car n))<br />   )<br />   is<br />     )<br />     (setq b (cons (cdr n) b))<br />     (if (= 4 (length b))<br />       (setq pl_vetex (append pl_vetex (list b))<br />       b<br />       nil<br />     )<br />    )<br />     )<br />     (is<br />       (setq fst (cons n fst))<br />     )<br />     (T (setq est (cons n est)))<br />   ))<br />   (setq lst nil)<br />   (foreach a pl_vetex<br />     (setq lst (append (list (cons 10 (cadddr a))<br />        (cons 40 (caddr a))<br />        (cons 41 (cadr a))<br />        (cons 42 ( -(car a)))<br />         )<br />         lst<br />        )<br />     )<br />   )<br />   (setq lst (append (reverse fst)<br />       lst<br />       (reverse est)<br />      )<br />   )<br />   (setq ent lst)<br />   (entmod ent)<br /> )<br />