能否根据起点终点定长定距等分曲线？

tm20038175 · 发表于 2012-3-26 14:11

例如有一根曲线en，我之指定曲线上两点pt1，pt2，能不能实现两个功能：
1，指定数量n，沿曲线定数等分
2，指定距离d，沿曲线pt1到pt2定距等分（距离小于d终止）

sunny_8848 · 发表于 2018-5-22 11:05

fanqinwei 发表于 2012-6-26 22:17
第一个是老版主lockmyeye
另一个是绝情一剑
这两个程序都把定数定距等分合成到一起，用时只要加以选择即 ...

好代码，多谢分享。要是能间隔着色把线段区分下就更好了

song宋_74729 · 发表于 2018-9-30 12:08

lidaxiu 发表于 2012-3-27 13:41
此论坛中一两年前就有这样的贴子了吧，不知理解的是不是这个程序，先上个图，主要是能支持异面曲等分，忘 ...

我需要这个功能,能提供吗

nzl1116 · 发表于 2012-3-26 14:30

所谓的等分,是取等分点还是等长裁截曲线?

xyh · 发表于 2012-3-26 15:26

本帖最后由 xyh 于 2012-3-26 15:28 编辑

先将曲线原位复制，再在2点打断，
再用cad的divide命令和measure命令即可满足要求
使用时先设置好pdmode和pdsize，或用块。

tm20038175 · 发表于 2012-3-26 16:14

xyh 发表于 2012-3-26 15:26
先将曲线原位复制，再在2点打断，
再用cad的divide命令和measure命令即可满足要求
使用时先设置好pdmode和 ...

恩，好想法，谢谢呵。。。。

tm20038175 · 发表于 2012-3-26 17:09

本帖最后由 tm20038175 于 2012-3-26 17:09 编辑

nzl1116 发表于 2012-3-26 14:30
所谓的等分,是取等分点还是等长裁截曲线?

取等分点

Gu_xl · 发表于 2012-3-26 18:59

本帖最后由 Gu_xl 于 2012-3-26 19:10 编辑

;;等分曲线，返回点坐标
;;参数 Curve = 曲线图元名 p1 = 曲线上第一点 p2 = 曲线上第一点
;; Flag = T 定数等分曲线 nil 定长等分曲线
;; n = 当 Flag = T 时 n 为等分数，当Flag = nil 时 n 为等分长度
;;测试: (DivdeCurve (car(entsel "\n选择曲线:")) (getpoint "\n起点:") (getpoint "\n终点:") nil 15)

(defun DivdeCurve (CURVE P1 P2 FLAG N / D1 D2 D FUN D0 PTS)
(setq p1 (vlax-curve-getclosestpointto Curve p1)
d1 (vlax-curve-getDistAtPoint Curve p1)
p2 (vlax-curve-getclosestpointto Curve p2)
d2 (vlax-curve-getDistAtPoint Curve p2)
)
(if Flag
(setq d (/ (- d2 d1) n) )
(setq d (if (MINUSP (- d2 d1)) (* -1.0 n) n) )
)
(if (> d2 d1) (setq Fun '<) (setq Fun '>))
(setq d0 d1)
(while (apply fun (list (setq d0 (+ d0 d)) d2))
(setq pts (cons (vlax-curve-getPointAtDist curve d0) pts))
)
(reverse pts)
)

hao3ren · 发表于 2012-3-26 19:23

用me可以啊

tm20038175 · 发表于 2012-3-26 19:24

Gu_xl 发表于 2012-3-26 18:59
;;等分曲线，返回点坐标
;;参数 Curve = 曲线图元名 p1 = 曲线上第一点 p2 = 曲线上第一点
;; Flag ...

哈哈，好！赞一个！！！
如果能有定距等分就更完美了，很受用！
谢谢啦。。。

tm20038175 · 发表于 2012-3-26 19:27

哦，原来都实现啦！
没仔细看，太感谢了！………

LLXXZZ · 发表于 2012-3-27 12:41

本帖最后由 LLXXZZ 于 2012-7-18 13:02 编辑

学习.围观中.....

账号		自动登录	找回密码
密码			注册

能否根据起点终点定长定距等分曲线？

本帖子中包含更多资源