悬赏50个明经币，求大神出手多段线中点垂足上的一点！最简求法

水吉空

悬赏50个明经币，求大神出手多段线中点垂足上的一点！最简求法
垂足在多段线的右边或者上边，从上往下画也是在右边，从下往上画也是在右边，从左往右画在上边，从右往左画也是在上边。感谢回答问题的热心网友！

修改 了springwillow大师的程序实现垂足在多段线的右边或者上边，从上往下画也是在右边，从下往上画也是在右边，从左往右画在上边，从右往左画也是在上边。实现了自己想要的功能，感谢！

springwillow

欢迎试用，简单写了一下，加了一些注释，方便同学们参考

2. (defun c:getmap()
   
3.   (setq dist (getdist "输入垂直距离:"))
   
4.   (setq ename (car (entsel)))
   
5.   (setq curve (vlax-ename->vla-object ename))
   
6.   (setq len (vlax-curve-getDistAtParam curve (vlax-curve-getEndParam curve)));求多段线长度
   
7.   (setq d (/ len 2))
   
8.   (setq midpoint (vlax-curve-getPointAtDist curve d));求多段线中点
   
9.   (setq param (vlax-curve-getparamatpoint curve midpoint));求中点处的参数，参数的意义为计算点在polyline顶点上的顺序位置值，该值整数为计算点在polyline上的顶点顺序，以0为计数起点，小数部分为计算点在该poly片段上的长度比率
   
10.   (setq SecondDeriv (vlax-curve-getSecondDeriv curve param));求中点的法线向量
    
11.   (if (equal SecondDeriv '(0 0 0));如果法线的向量为'(0 0 0)说明此线段为直线段，否则为有凸度段
    
12.     (progn
    
13.       (setq FirstDeriv (vlax-curve-getFirstDeriv curve param));求中点的切线向量
    
14.       (setq ang (+ (angle '(0 0 0)  FirstDeriv) (* 0.5 pi)));根据切线向量求法向角度
    
15.       )
    
16.     (setq ang (angle '(0 0 0)  SecondDeriv));直接用法线向量求角度
    
17.     )
    
18.   (setq pt (polar midpoint ang dist))
    
19.   (entmake (list '(0 . "LINE") (cons 10 midpoint) (cons 11 pt)))
    
20.   )

(defun c:getmap()<br />   (setq dist (getdist "输入垂直距离:"))<br />   (setq ename (car (entsel)))<br />   (setq curve (vlax-ename->vla-object ename))<br />   (setq len (vlax-curve-getDistAtParam curve (vlax-curve-getEndParam curve)));求多段线长度<br />   (setq d (/ len 2))<br />   (setq midpoint (vlax-curve-getPointAtDist curve d));求多段线中点<br />   (setq param (vlax-curve-getparamatpoint curve midpoint));求中点处的参数，参数的意义为计算点在polyline顶点上的顺序位置值，该值整数为计算点在polyline上的顶点顺序，以0为计数起点，小数部分为计算点在该poly片段上的长度比率<br />   (setq SecondDeriv (vlax-curve-getSecondDeriv curve param));求中点的法线向量<br />   (if (equal SecondDeriv '(0 0 0));如果法线的向量为'(0 0 0)说明此线段为直线段，否则为有凸度段<br />     (progn<br />       (setq FirstDeriv (vlax-curve-getFirstDeriv curve param));求中点的切线向量<br />       (setq ang (+ (angle '(0 0 0)  FirstDeriv) (* 0.5 pi)));根据切线向量求法向角度<br />       )<br />     (setq ang (angle '(0 0 0)  SecondDeriv));直接用法线向量求角度<br />     )<br />   (setq pt (polar midpoint ang dist))<br />   (entmake (list '(0 . "LINE") (cons 10 midpoint) (cons 11 pt)))<br />   )

panliang9

帮顶一个，需要选中一个多段线，然后再求出多段线的中点，然后再求出该中点和多段线的垂线，再根据距离找出一个座标点！

Andyhon

这几个函数会有帮助滴

水吉空

panliang9 发表于 2017-11-30 11:10
帮顶一个，需要选中一个多段线，然后再求出多段线的中点，然后再求出该中点和多段线的垂线，再根据距离找出 ...

谢谢支持！

水吉空

Andyhon 发表于 2017-11-30 11:48
这几个函数会有帮助滴

我查查看，谢谢大神。

xinxirong

这个垂足方向有两个，就像offset你要偏向哪边？

水吉空

xinxirong 发表于 2017-11-30 14:15
这个垂足方向有两个，就像offset你要偏向哪边？

总是偏向上面或者右面。

水吉空

springwillow 发表于 2017-11-30 14:08
欢迎试用，简单定了一下

谢谢大神，等下我试试看！感谢！

llsheng_73

水吉空 发表于 2017-11-30 14:26
总是偏向上面或者右面。

多段线前进方向右边？