[求助]：怎么得到多义线各顶点相对应的水平线的各点

cq_qg

有一条多义线，在其上方或下方有一水平线，怎么能得到多义线各顶点相对应的水平线上的点，即沿各顶点垂直向上或向下与水平线的交点？lisp里面怎么实现？

taner

最初由 cq_qg 发布
[B]有一条多义线，在其上方或下方有一水平线，怎么能得到多义线各顶点相对应的水平线上的点，即沿各顶点垂直向上或向下与水平线的交点？lisp里面怎么实现？ [/B]

2. 
   
3.   [FONT=courier new]
   
4. (defun c:test (/ linename pt ptlst pts x)
   
5.   (setq ptlst (txt3-get-allvertexs (car (entsel "\nPick polyline:"))))
   
6.   (setq linename (car (entsel "\nPick line:")))
   
7.   (mapcar
   
8.     '(lambda (x)
   
9.        (setq pt (cadr (txt-per x linename)))
   
10.        (setq pts (cons pt pts))
    
11.        (command "line" x pt "");;;可根据需要与否决定是否去掉
    
12.      )
    
13.     ptlst
    
14.   )
    
15.   pts
    
16. )
    
17. (defun txt-per (pt obj / dist pt2)
    
18.   (if (and
    
19.         pt
    
20.         obj
    
21.       )
    
22.     (setq dist (distance pt (setq pt2 (vlax-curve-getclosestpointto obj pt t))))
    
23.   )
    
24.   (list dist pt2)
    
25. )
    
26. (defun txt3-get-allvertexs (ename / n ptlist)
    
27.   (foreach n (entget ename)
    
28.     (if (= 10 (car n))
    
29.       (setq ptlist (cons (cdr n) ptlist))
    
30.     )
    
31.   )
    
32.   (reverse ptlist)
    
33. )
    
34.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:test (/ linename pt ptlst pts x)<br />   (setq ptlst (txt3-get-allvertexs (car (entsel "\nPick polyline:"))))<br />   (setq linename (car (entsel "\nPick line:")))<br />   (mapcar<br />     '(lambda (x)<br />        (setq pt (cadr (txt-per x linename)))<br />        (setq pts (cons pt pts))<br />        (command "line" x pt "");;;可根据需要与否决定是否去掉<br />      )<br />     ptlst<br />   )<br />   pts<br /> )<br /> (defun txt-per (pt obj / dist pt2)<br />   (if (and<br />         pt<br />         obj<br />       )<br />     (setq dist (distance pt (setq pt2 (vlax-curve-getclosestpointto obj pt t))))<br />   )<br />   (list dist pt2)<br /> )<br /> (defun txt3-get-allvertexs (ename / n ptlist)<br />   (foreach n (entget ename)<br />     (if (= 10 (car n))<br />       (setq ptlist (cons (cdr n) ptlist))<br />     )<br />   )<br />   (reverse ptlist)<br /> )<br />   [/FONT]<br />