求思路 关于多线段上某点的垂线段

h199101

是这样的：有一段曲线是用多线段来摹拟的 现在我需要从多线段上的某一点（已知）引出一条垂线进行标注 问题是我不知道怎么求垂线的斜率 求路过的大神帮帮吗 有个思路也行啊 啊啊啊啊啊

夏生生

看这个函数(vlax-curve-getFirstDeriv curve-obj param)，对于曲线

2. (setq en (car (entsel))
   
3.       pt (getpoint)
   
4. )
   
5. (setq Deriv (vlax-curve-getFirstDeriv
   
6.         en
   
7.         (vlax-curve-getParamAtPoint en pt)
   
8.       )
   
9. )
   
10. (entmake
    
11.   (list
    
12.     '(0 . "line")
    
13.     (cons 10 pt)
    
14.     (cons 11
    
15.     (polar pt (+ (/ pi 2) (angle pt (mapcar '+ pt Deriv))) 1000)
    
16.     )
    
17.   )
    
18. )

(setq en (car (entsel))<br />       pt (getpoint)<br /> )<br /> (setq Deriv (vlax-curve-getFirstDeriv<br />         en<br />         (vlax-curve-getParamAtPoint en pt)<br />       )<br /> )<br /> (entmake<br />   (list<br />     '(0 . "line")<br />     (cons 10 pt)<br />     (cons 11<br />     (polar pt (+ (/ pi 2) (angle pt (mapcar '+ pt Deriv))) 1000)<br />     )<br />   )<br /> )

Gu_xl

2. (
   
3.    (lambda (e / a)
   
4.      (setq a
   
5.             (vlax-curve-getFirstDeriv
   
6.               (car e)
   
7.               (vlax-curve-getParamAtPoint
   
8.                 (car e)
   
9.                 (setq p (vlax-curve-getclosestpointto (car e) (cadr e)))
   
10.               )
    
11.             )
    
12.      )
    
13.      (entmake
    
14.        (list
    
15.          '(0 . "line")
    
16.          (cons 10 p)
    
17.          (cons 11 (polar p (+ (* 0.5 pi) (angle '(0 0 0) a)) 10))
    
18.        )
    
19.      )
    
20.    )
    
21.     (entsel "\n选择曲线上划线位置点:")
    
22.   )

(<br />    (lambda (e / a)<br />      (setq a<br />             (vlax-curve-getFirstDeriv<br />               (car e)<br />               (vlax-curve-getParamAtPoint<br />                 (car e)<br />                 (setq p (vlax-curve-getclosestpointto (car e) (cadr e)))<br />               )<br />             )<br />      )<br />      (entmake<br />        (list<br />          '(0 . "line")<br />          (cons 10 p)<br />          (cons 11 (polar p (+ (* 0.5 pi) (angle '(0 0 0) a)) 10))<br />        )<br />      )<br />    )<br />     (entsel "\n选择曲线上划线位置点:")<br />   )