高程点内插程序(已更新)

技术工作室 · 发表于 2023-3-16 23:18:50

谢谢楼主的分享

nianshaoqingshe · 发表于 2023-5-16 10:12:40

框选图面高程点、两段高程点，计算内插高程点的算法应该是对的，但图面等高线三角网算法是错的，高程内插的值也有很大的漏洞。

zzhangjunj · 发表于 2023-6-25 10:09:36

(setq pl (vl-sort pl (function (lambda (a b) (< (car a) (car b)))))
         bb (list (apply 'mapcar (cons 'min pl)) (apply 'mapcar (cons 'max pl)))
         x1 (caar bb)
         x2 (caadr bb)
         y1 (cadar bb)
         y2 (cadadr bb)
   )
bb (list (apply 'mapcar (cons 'min pl)) (apply 'mapcar (cons 'max pl)))
程序运行到这段代码时出错
Application Error: 0 :- 参数类型错误: numberp: nil; 错误: *error* 函数中出错ADS 请求错误

bluefcc1 · 发表于 2023-11-28 14:19:21

感謝樓主分享~

寒潮大冬瓜 · 发表于 2024-5-15 23:58:30

skg123 发表于 2013-6-17 23:46
修改了一下，输出为CASS的格式，方便把内插点再应用

感谢大侠分享！
gxl-cs:gcd函数参数个数不正确189→26
gxl-cs:gcd 函数参数个数不正确213→29
gxl-cs:gcd函数参数个数不正确223→26
我用飞诗打开显示的

16699988885 · 发表于 2024-12-7 09:44:56

怎么下载大佬

jim66xy · 发表于 2025-1-7 18:15:30

代码在哪里？

yjpyjp · 发表于 2025-1-11 13:56:49

不知道为什么，有些图纸就会出错

会显示：内插高程点; 错误: 除数为零

gzxl · 发表于 2025-1-12 10:48:32

yjpyjp 发表于 2025-1-11 13:56
不知道为什么，有些图纸就会出错

会显示：内插高程点; 错误: 除数为零

出错的地方，加上一个微小值，比如 +0.000001可避免除数为零

ceshi · 发表于 2025-1-13 10:37:47

感谢分享，学习一下，

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

高程点内插程序(已更新)

本帖子中包含更多资源