能否根据起点终点定长定距等分曲线？
例如有一根曲线en，我之指定曲线上两点pt1，pt2，能不能实现两个功能：1，指定数量n，沿曲线定数等分
2，指定距离d，沿曲线pt1到pt2定距等分（距离小于d终止）
fanqinwei 发表于 2012-6-26 22:17
第一个是老版主lockmyeye
另一个是绝情一剑
这两个程序都把定数定距等分合成到一起，用时只要加以选择即 ...
好代码，多谢分享。要是能间隔着色把线段区分下就更好了 lidaxiu 发表于 2012-3-27 13:41
此论坛中一两年前就有这样的贴 子了吧，不知理解的是不是这个程序，先上个图，主要是能支持异面曲等分，忘...
我需要这个功能,能提供吗 所谓的等分,是取等分点还是等长裁截曲线? 本帖最后由 xyh 于 2012-3-26 15:28 编辑
先将曲线原位复制，再在2点打断，
再用cad的divide命令和measure命令即可满足要求
使用时先设置好pdmode和pdsize，或用块。
xyh 发表于 2012-3-26 15:26
先将曲线原位复制，再在2点打断，
再用cad的divide命令和measure命令即可满足要求
使用时先设置好pdmode和 ...
恩，好想法，谢谢呵。。。。 本帖最后由 tm20038175 于 2012-3-26 17:09 编辑
nzl1116 发表于 2012-3-26 14:30 static/image/common/back.gif
所谓的等分,是取等分点还是等长裁截曲线?
取等分点 本帖最后由 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)
**** Hidden Message *****
用me可以啊 Gu_xl 发表于 2012-3-26 18:59
;;等分曲线，返回点坐标
;;参数 Curve = 曲线图元名 p1 = 曲线上第一点 p2 = 曲线上第一点
;; Flag ...
哈哈，好！赞一个！！！
如果能有定距等分就更完美了，很受用！
谢谢啦。。。 哦，原来都实现啦！
没仔细看，太感谢了！……… 本帖最后由 LLXXZZ 于 2012-7-18 13:02 编辑
学习.围观中.....