[求助]：曲线长度的测量

☆射手座男生☆

那位能教教我非闭合曲线的长度的测量方法阿！

比如 一段圆弧的长度。。。。。。。

谢谢啦！

zhyd365

用list命令就可以了。

Joseflin

LIST or LENGTHEN

☆射手座男生☆

谢谢大家了哈! 很好用！

沙漠清泉

如果一段曲线需要等分成若干段曲线那又该如何操作？

xyp1964

最初由 沙漠清泉 发布
[B]如果一段曲线需要等分成若干段曲线那又该如何操作？ [/B]

试试签名栏下的“等分线”程序。

huanyunzui

最初由 沙漠清泉 发布
[B]如果一段曲线需要等分成若干段曲线那又该如何操作？ [/B]

使用"DIV"命令就可以了

沙漠清泉

比如我知道一段曲线的长度，想从此曲线中截取一段己知的长度那又该如何操作呢？

huanyunzui

最初由 沙漠清泉 发布
[B]比如我知道一段曲线的长度，想从此曲线中截取一段己知的长度那又该如何操作呢？ [/B]

你可以使用等距分点呀,然后删除

沙漠清泉

10楼主，你说的不是很明白，比如说有一段曲线是100，想从中截取一段30的曲线用等距分点能做的到吗？

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20051205 (1781)
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. 
    
15. ;;;截取定长线
    
16. (defun c:test ()
    
17.   (CMDLA0)
    
18.   (setvar "osmode" 0)
    
19.   (setq        s1    (entsel "\n选取曲线起点 : ")
    
20.         e     (car s1)
    
21.         pt    (cadr s1)
    
22.         no1   (UREAL 7 "" "\n要截取的线长" no1)
    
23.         pt1   (osnap pt "near")
    
24.         leng1 (xyp-get-LengthAtPoint e pt1)
    
25.         leng2 (+ leng1 no1)
    
26.         pt2   (xyp-get-CurvePointAtDist e leng2)
    
27.   )
    
28.   (xyp-ZB pt1)
    
29.   (xyp-ZB pt2)
    
30.   (CMDLA1)
    
31. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20051205 (1781)<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> <br /> ;;;截取定长线<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setvar "osmode" 0)<br />   (setq        s1    (entsel "\n选取曲线起点 : ")<br />         e     (car s1)<br />         pt    (cadr s1)<br />         no1   (UREAL 7 "" "\n要截取的线长" no1)<br />         pt1   (osnap pt "near")<br />         leng1 (xyp-get-LengthAtPoint e pt1)<br />         leng2 (+ leng1 no1)<br />         pt2   (xyp-get-CurvePointAtDist e leng2)<br />   )<br />   (xyp-ZB pt1)<br />   (xyp-ZB pt2)<br />   (CMDLA1)<br /> )[/FONT]

笑掉大牙

跑题了吧，斑竹

大雪无痕

用LIST或LENGTHEN都可以

qw12

很好用！

huanyunzui

最初由 沙漠清泉 发布
[B]10楼主，你说的不是很明白，比如说有一段曲线是100，想从中截取一段30的曲线用等距分点能做的到吗？ [/B]

我试了行
我做了,就是太大,传不上去,