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

技术工作室

谢谢楼主的分享

nianshaoqingshe

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

zzhangjunj

(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

感謝樓主分享~

寒潮大冬瓜

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

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