如何提取多义线中某一线段的长度?

meflying

rjljh发表于2005-8-2 10:59:00 yshf 的程序能不能增加捕捉选项，交点、端点，只有最近点捕捉测量不准确 其他两...

如何不能用？？？须R2000及以上版本

xyp1964

2. ;;;曲线上两点间的长度
3. (defun c:test ()
4.   (setvar "osmode" 0)
5.   (setq s1    (entsel "\起点 : ")
6. e     (car s1)
7. pt1   (cadr s1)
8. pt2   (getpoint pt1 "\n终点 : ")
9. pt1   (osnap pt1 "nea")
10. pt2   (osnap pt2 "nea")
11. leng1 (vlax-curve-getDistAtParam e (vlax-curve-getParamAtPoint e pt1))
12. leng2 (vlax-curve-getDistAtParam e (vlax-curve-getParamAtPoint e pt2))
13. leng  (abs (- leng1 leng2))
14.   )
15.   leng
16. )

;;;曲线上两点间的长度 (defun c:test ()   (setvar "osmode" 0)   (setq s1    (entsel "\起点 : ") e     (car s1) pt1   (cadr s1) pt2   (getpoint pt1 "\n终点 : ") pt1   (osnap pt1 "nea") pt2   (osnap pt2 "nea") leng1 (vlax-curve-getDistAtParam e (vlax-curve-getParamAtPoint e pt1)) leng2 (vlax-curve-getDistAtParam e (vlax-curve-getParamAtPoint e pt2)) leng  (abs (- leng1 leng2))   )   leng )

rjljh

 meflying 可能没看清楚我的要求，你的程序只能测两转点之间的距离

xyp1964 我们打过很多次交道了，在另一论坛你就帮我做了一个批量求多段线长的程序，这次你贴的程序不能准确选择，捕捉设置没了。其实我要做的最终目标是整条多段线用线分隔后，在不打断的情况下批量求出各段的长。只是没有直接的程序才想到测量和断开后求长度的折中方案。没想到两边你都出来帮助，真是太感谢了。

 

meflying

rjljh发表于2005-8-3 9:13:00
meflying 可能没看清楚我的要求，你的程序只能测两转点之间的距离

1. 不好意思，我的程序是针对楼主的问题的，如果你有什么问题，可以发贴提问。

复制代码

1. 楼主的意思是‘提取某一端”的长度，我的程序直接选择某一段，然后返回长度，应该是按楼主的意思了

复制代码

hn_zhwang

要求太多了，见谅