★★问题不断，如何求多段线上水平等距点的坐标★★

wanhongron

画渠道又碰到另一个问题了，渠道纵剖面还要对每隔一定水平长度的地面线求坐标，网上有很多求定距坐标的，但都是按多段线长度来求的，不是按水平距来求的，继续恳请各位英雄大侠帮帮忙解决。

自贡黄明儒

最简单的方式，临时产生一条竖直射线，求交点

xyp1964

有图无码：

Sylvanas

2. (defun c:tt ()
   
3.   (setq ptlst nil)
   
4.   (setq ent (car (entsel "\n选择要定距等分的对象:")))
   
5.   (if (= (cdr (assoc 0 (setq data (entget ent)))) "LWPOLYLINE")
   
6.     (progn (setq obj          (vlax-ename->vla-object ent)
   
7.                  ;totallen (vla-get-length obj)
   
8.                  dis          (getdist "\n指定线段长度:")
   
9.                  pts (vlax-curve-getStartPoint obj)
   
10.                  pte (vlax-curve-getEndPoint obj)
    
11.                  totallen (abs (- (car pts) (car pte)))
    
12.                  k          1
    
13.            )
    
14.            (while (<= (* k dis) totallen)
    
15.              (setq dislast (* k dis))
    
16.              (setq pt (list (+ (car pts) dislast) (cadr pts)))
    
17.              (setq
    
18.                ptlst (cons (vlax-curve-getClosestPointToProjection obj pt '(0 1 0))
    
19. 
    
20.                        ;(vlax-curve-getPointAtDist obj dislast)
    
21.                            ptlst)
    
22.              )
    
23.              (setq k (1+ k))
    
24.            )
    
25.     )
    
26.   )
    
27.   (reverse ptlst)
    
28. )

(defun c:tt ()<br />   (setq ptlst nil)<br />   (setq ent (car (entsel "\n选择要定距等分的对象:")))<br />   (if (= (cdr (assoc 0 (setq data (entget ent)))) "LWPOLYLINE")<br />     (progn (setq obj          (vlax-ename->vla-object ent)<br />                  ;totallen (vla-get-length obj)<br />                  dis          (getdist "\n指定线段长度:")<br />                  pts (vlax-curve-getStartPoint obj)<br />                  pte (vlax-curve-getEndPoint obj)<br />                  totallen (abs (- (car pts) (car pte)))<br />                  k          1<br />            )<br />            (while (<= (* k dis) totallen)<br />              (setq dislast (* k dis))<br />              (setq pt (list (+ (car pts) dislast) (cadr pts)))<br />              (setq<br />                ptlst (cons (vlax-curve-getClosestPointToProjection obj pt '(0 1 0))<br /> <br />                        ;(vlax-curve-getPointAtDist obj dislast)<br />                            ptlst)<br />              )<br />              (setq k (1+ k))<br />            )<br />     )<br />   )<br />   (reverse ptlst)<br /> )

用你给的代码改的，试一下

wanhongron

Sylvanas侠的代码正是我需要的，没想到这么快就有结果了，非常惊喜，非常感谢！！

wanhongron

谢谢大家的关注，尤其感谢贡献源码的大侠！！

wanhongron

能将各点坐标在对应上点用text文本写出来吗？不只是在命令行显示，如果能将终点坐标写出来就更好了！！

fan_zh

好学的妹纸， 上面有源码了 ，改改就可以了

Sylvanas

wanhongron 发表于 2016-9-29 16:49
能将各点坐标在对应上点用text文本写出来吗？不只是在命令行显示，如果能将终点坐标写出来就更好了！！

已有点表ptlst，foreach+entmake应该不是什么难事吧？

wanhongron

好的，见笑了，目前还停留在抄袭的水平，非常感谢！！