技术工作室 发表于 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

感谢分享，学习一下，:handshake
页: 8 9 10 11 12 13 14 15 16 17 [18]
查看完整版本: 高程点内插程序(已更新)