怎么求多段线每段的长度与角度

hn10183051

要求选取多段线，返回2个表，一个表是每段线长，另一个表角度，按照图应该是返回8个长度尺寸与7个角度。

aws

1. ;---三个点求夹角，p2为顶点，返回角度
   
2. (defun polyline-deg(p1 p2 p3 / ang)
   
3.   (setq ang(-(angle p2 p3)(angle p2 p1)))
   
4.   (if(< ang 0)(setq ang(+(* 2.0 pi)ang)))
   
5.   (if(> ang pi)(setq ang(-(* 2.0 pi)ang)))
   
6.   (/(* ang 180)pi);弧度=（角度*pi）/180
   
7. )
   
8. ;---获取多段线子段线长度表
   
9. (defun get-subc-len(obj / a b lst n)
   
10.   (setq lst nil)
    
11.   (repeat(fix(setq n(vlax-curve-getEndParam obj)))
    
12.     (setq a(vlax-curve-getDistAtParam obj n))
    
13.     (setq b(vlax-curve-getDistAtParam obj(setq n(1- n))))
    
14.     (setq lst(cons(- a b)lst))
    
15.   )
    
16. )

;---三个点求夹角，p2为顶点，返回角度<br /> (defun polyline-deg(p1 p2 p3 / ang)<br />   (setq ang(-(angle p2 p3)(angle p2 p1)))<br />   (if(< ang 0)(setq ang(+(* 2.0 pi)ang)))<br />   (if(> ang pi)(setq ang(-(* 2.0 pi)ang)))<br />   (/(* ang 180)pi);弧度=（角度*pi）/180<br /> )<br /> ;---获取多段线子段线长度表<br /> (defun get-subc-len(obj / a b lst n)<br />   (setq lst nil)<br />   (repeat(fix(setq n(vlax-curve-getEndParam obj)))<br />     (setq a(vlax-curve-getDistAtParam obj n))<br />     (setq b(vlax-curve-getDistAtParam obj(setq n(1- n))))<br />     (setq lst(cons(- a b)lst))<br />   )<br /> )

hn10183051

aws 发表于 2025-4-3 13:21

谢谢大佬，有些时候多段线起点与终点刚好相反，有什么办法成一样

aws

hn10183051 发表于 2025-4-3 15:02
谢谢大佬，有些时候多段线起点与终点刚好相反，有什么办法成一样

没明白，什么叫起点和终点相反，两个点？

sysu-沼泽

aws 发表于 2025-4-3 15:36
没明白，什么叫起点和终点相反，两个点？

意思应该是前面1条多段线是从左到右，后面1条多段线是从右到左吧，两条多段线相反

Bao_lai

hn10183051 发表于 2025-4-3 15:02
谢谢大佬，有些时候多段线起点与终点刚好相反，有什么办法成一样

处理前先判断顺时针还是逆时针，不然就反转一下。