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

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
不错！赞一个！

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

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

bai2000 发表于 2012-7-4 18:58
能加上曲线等分的功能就更好了

这个功能有很多工具可以实现的你还可以看看这个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

很好的程序

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

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

本帖子中包含更多资源

相关帖子