心伤

kdst

请教高手，如图，黑色的线是原图里的，我这样画一条线（红色），怎样按照红线穿过黑线的顺序依次取得黑线的坐标？

Free-Lancer

用 ssget f 选择，然后 inters 求交点，最后对求得的交点按曲线排序

2. 
   
3. (defun c:tt (/ e sp ep ss ssl i sp1 ep1 pl pts)
   
4.   (if (setq e (car (entsel "\npick line: ")))
   
5.     (progn
   
6.       (setq sp (vlax-curve-getstartpoint e)
   
7.             ep (vlax-curve-getendpoint e)
   
8.       )
   
9. 
   
10.       (if (setq ss (ssget "_F" (list sp ep)))
    
11.         (progn
    
12.           (setq        ssl (sslength ss)
    
13.                 i   -1
    
14.           )
    
15.           (repeat ssl
    
16.             (setq ent (ssname ss (setq i (1+ i)))
    
17.                   sp1 (vlax-curve-getstartpoint ent)
    
18.                   ep1 (vlax-curve-getendpoint ent)
    
19.             )
    
20.             (setq pl (cons (inters sp ep sp1 ep1 nil) pl))
    
21.           )
    
22.           (setq
    
23.             pts        (mapcar
    
24.                   'cadr
    
25.                   (vl-sort
    
26.                     (mapcar
    
27.                       '(lambda (x)
    
28.                          (list (vlax-curve-getparamatpoint
    
29.                                  e
    
30.                                  (vlax-curve-getclosestpointto e x)
    
31.                                )
    
32.                                x
    
33.                          )
    
34.                        )
    
35.                       (vl-remove nil pl)
    
36.                     )
    
37.                     '(lambda (x1 x2)
    
38.                        (< (car x1) (car x2))
    
39.                      )
    
40.                   )
    
41.                 )
    
42.           )
    
43.         )
    
44.       )
    
45.     )
    
46.   )
    
47.   (princ pts)
    
48.   (princ)
    
49. )

<br /> (defun c:tt (/ e sp ep ss ssl i sp1 ep1 pl pts)<br />   (if (setq e (car (entsel "\npick line: ")))<br />     (progn<br />       (setq sp (vlax-curve-getstartpoint e)<br />             ep (vlax-curve-getendpoint e)<br />       )<br /> <br />       (if (setq ss (ssget "_F" (list sp ep)))<br />         (progn<br />           (setq        ssl (sslength ss)<br />                 i   -1<br />           )<br />           (repeat ssl<br />             (setq ent (ssname ss (setq i (1+ i)))<br />                   sp1 (vlax-curve-getstartpoint ent)<br />                   ep1 (vlax-curve-getendpoint ent)<br />             )<br />             (setq pl (cons (inters sp ep sp1 ep1 nil) pl))<br />           )<br />           (setq<br />             pts        (mapcar<br />                   'cadr<br />                   (vl-sort<br />                     (mapcar<br />                       '(lambda (x)<br />                          (list (vlax-curve-getparamatpoint<br />                                  e<br />                                  (vlax-curve-getclosestpointto e x)<br />                                )<br />                                x<br />                          )<br />                        )<br />                       (vl-remove nil pl)<br />                     )<br />                     '(lambda (x1 x2)<br />                        (< (car x1) (car x2))<br />                      )<br />                   )<br />                 )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ pts)<br />   (princ)<br /> )