keokie 发表于 2012-7-4 10:18:54

[源码]曲线上指定距离画垂线和测量曲线上两点相对距离的小程序

第一次发源码 大家轻拍。这里的曲线可以是非闭合的任意线，包括直线、多段线、圆弧、样条曲线。
主要有两个功能，xper：线上指定距离画垂线
可以输入一个或一组长度数据，数据可正可负，中间用空格隔开，回车确认。
有两种模式供选择，相对是指相对上一个基点，绝对是指相对开始选择的基点。


                            xper2：测量曲线上两点相对距离






`中微子 发表于 2024-10-2 00:35:06

很好!很强大!有一个bug.
就是竖直线时会出错,提示除数为0
(setq tanxy (vlax-Curve-GetFirstDeriv el
                        (vlax-Curve-GetParamatDist el dist4)))
这一句里(car tanxy)为0

hao3ren 发表于 2012-7-4 10:36:03

好程序，很简洁

hf423 发表于 2012-7-4 14:27:19

非常感谢，顶你！

xiaxiang 发表于 2012-7-4 17:27:17

本帖最后由 xiaxiang 于 2012-7-4 17:27 编辑

(setq zh_li (vl-remove-if '(lambda(x)
                  (= 'SYM (type x))) (read (strcat "(" ys_str ")"))   ;这句大妙！不错！赞一个！

bai2000 发表于 2012-7-4 18:58:26

能加上曲线等分的功能就更好了

keokie 发表于 2012-7-5 09:11:09

xiaxiang 发表于 2012-7-4 17:27 static/image/common/back.gif
不错！赞一个！

谢谢斑竹，其实这句论坛里有，我借用的，很佩服大神们天马行空的想象力

keokie 发表于 2012-7-5 09:12:20

bai2000 发表于 2012-7-4 18:58 static/image/common/back.gif
能加上曲线等分的功能就更好了

这个功能有很多工具可以实现的你还可以看看这个http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92651

梦醒才知原是梦 发表于 2012-7-5 10:51:25

收藏备用~~~~

346728937 发表于 2012-7-19 18:09:04

很好很强大

c735023723 发表于 2012-8-1 22:14:47

很好的程序
页: [1] 2 3 4
查看完整版本: [源码]曲线上指定距离画垂线和测量曲线上两点相对距离的小程序