定距等分和定数等分曲线

aws

2. ;---根据段数等分曲线，返回点表。
   
3. (defun div-n-curve(obj n / d end palst pts)
   
4.   (setq end(vlax-curve-getEndParam obj));---端点参数值
   
5.   (setq d(/ end n));---求出每段的参数递进值
   
6.   (setq palst nil)
   
7.   (setq palst(cons end palst))
   
8.   (while
   
9.     (>(setq end(- end d))0)
   
10.     (setq palst(cons end palst))
    
11.   )
    
12.   (if(not(vlax-curve-isClosed obj));---如果不是封闭曲线，就把起点参数值也加进去
    
13.     (setq palst(cons 0 palst))
    
14.   )
    
15.   (setq pts(mapcar '(lambda(x)(vlax-curve-getPointAtParam obj x))palst))
    
16. )
    
17. ;---根据距离等分曲线，返回点表。
    
18. (defun div-mm-curve(obj mm / len n pts sum)
    
19.   (setq len(vlax-curve-getdistatparam obj(vlax-curve-getendparam obj)))
    
20.   (setq n(fix(/ len mm)));---求出段数
    
21.   (setq pts nil)
    
22.   (setq pts(cons(vlax-curve-getStartPoint obj)pts));---起点加入到点表
    
23.   (setq sum mm)
    
24.   (repeat n
    
25.     (setq pts(cons(vlax-curve-getPointAtDist obj sum)pts))
    
26.     (setq sum(+ sum mm))
    
27.   )
    
28.   (if(not(vlax-curve-isClosed obj))
    
29.     (setq pts(cons(vlax-curve-getEndPoint obj)pts));---如果不是封闭曲线，就把终点加入到点表
    
30.   )
    
31.   (reverse pts)
    
32. )

;---根据段数等分曲线，返回点表。<br /> (defun div-n-curve(obj n / d end palst pts)<br />   (setq end(vlax-curve-getEndParam obj));---端点参数值<br />   (setq d(/ end n));---求出每段的参数递进值<br />   (setq palst nil)<br />   (setq palst(cons end palst))<br />   (while<br />     (>(setq end(- end d))0)<br />     (setq palst(cons end palst))<br />   )<br />   (if(not(vlax-curve-isClosed obj));---如果不是封闭曲线，就把起点参数值也加进去<br />     (setq palst(cons 0 palst))<br />   )<br />   (setq pts(mapcar '(lambda(x)(vlax-curve-getPointAtParam obj x))palst))<br /> )<br /> ;---根据距离等分曲线，返回点表。<br /> (defun div-mm-curve(obj mm / len n pts sum)<br />   (setq len(vlax-curve-getdistatparam obj(vlax-curve-getendparam obj)))<br />   (setq n(fix(/ len mm)));---求出段数<br />   (setq pts nil)<br />   (setq pts(cons(vlax-curve-getStartPoint obj)pts));---起点加入到点表<br />   (setq sum mm)<br />   (repeat n<br />     (setq pts(cons(vlax-curve-getPointAtDist obj sum)pts))<br />     (setq sum(+ sum mm))<br />   )<br />   (if(not(vlax-curve-isClosed obj))<br />     (setq pts(cons(vlax-curve-getEndPoint obj)pts));---如果不是封闭曲线，就把终点加入到点表<br />   )<br />   (reverse pts)<br /> )

因为不想用command命令，所以就临时写了个等分曲线的函数，分享给大家



另外，我本来想用这个方法获取属性，结果报错了
(setq len(vlax-get obj 'length));---获取曲线的长度

原因：ActiveX 服务器返回错误: 未知名称: "LENGTH"

是哪里用错了吗？类似的还有
(vlax-get obj 'startpoint);---获取曲线的起点
(vlax-get obj 'endpoint);---获取曲线的终点

aws

tryhi 发表于 2024-7-15 09:24
一般曲线转折线不是看切线角度决定疏密的吗？比如半径很大拐弯很缓加点较疏，半径小拐弯急加点较密

你说的这种情况，我觉得不是用角度来判断，而是用弦高来判断，这种方式可以更加准确的把样条曲线转换成多段线。且容差值等于弦高

tryhi

aws 发表于 2024-7-15 09:36
你说的这种情况，我觉得不是用角度来判断，而是用弦高来判断，这种方式可以更加准确的把样条曲线转换成多 ...

好像有点道理，不知道CAD转SHP是不是用的弦高

tryhi

aws 发表于 2024-7-14 21:41
没有呢，没遇到这种场景

一般曲线转折线不是看切线角度决定疏密的吗？比如半径很大拐弯很缓加点较疏，半径小拐弯急加点较密

bai2000

(setq obj (vlax-ename->vla-object en))?
(setq OBJ  (vla-get-activeselectionset DOC))?哪个obj

qazxswk

怎么用？举个栗子。

你有种再说一遍

http://bbs.mjtd.com/forum.php?mo ... A%CF%DF%B3%A4%B6%C8

善用搜索

tryhi

有没有定角度分的？

glcsq

谢谢分享。

aws

tryhi 发表于 2024-7-14 13:56
有没有定角度分的？

没有呢，没遇到这种场景

aws

qazxswk 发表于 2024-7-13 21:34
怎么用？举个栗子。

我是用来（setq ss（ssget “cp” pts））

czb203

aws 发表于 2024-7-14 21:42
我是用来（setq ss（ssget “cp” pts））

:lo节点精度不够吗，搞这么密的点集