南方cass两种情况加高程点--源码，运行视屏

soly2006 · 发表于 2011-11-20 14:03:26

1、南方cass中加高程点目前只是把高程点或等高线生成数据文件后加高程点，但有时只局部加些点，效果就很差，作地形图的同志们都深有体会，就差那么几个点还生什么dat文件，简直浪费时间。
2、有些线状地物高程点不够，质检的有话说，谁TMD能保证每个地方都打点，办法就是画图时加呗！
奉上两源码，有改进的不忘贴上来，大家受益，再简单的程序，也得有人做。
还是那句话，不要钱也不要币！
命令：mm011 线状加高程
mm029 等高线间加高程

线状加高程点:

等高线间加高程点

lioun4105 · 发表于 2017-11-26 20:09:41

线状加高程加出来的高程点和字离得很远，而且不能合成连在一起，能修改成连在一起就好了

yjycad · 发表于 2022-10-5 11:07:28

非常棒

，要是加的点是CASS正常点就更棒了

yuanziyou · 发表于 2011-11-20 14:39:10

感谢分享!
感觉还不错!

425017842 · 发表于 2011-11-20 15:35:05

支持，发一个CASS两高程点中间内插高程的源码

(defun c:gcjz ()
(setvar "osmode" 4)
(command "setpara" "")
(while(setq P1 (getpoint "\n 选择第一个点:"))
(setq z1 (caddr p1))
(while(if (= 0 z1) (setq P1 (getpoint "\n 所选高程点为0，请重新选择第一个点:")))
(setq z1 (caddr p1))
(= 0 z1)
)
(setq y1 (car p1))
(setq x1 (cadr p1))
(setq z1 (caddr p1))
(setq P2 (getpoint "\n 选择第二个点:"))
(setq z2 (caddr p2))
(while(if (= 0 z2) (setq P2 (getpoint "\n 所选高程点为0，请重新选择第二个点:"))
(if(= z1 z2) (setq P2 (getpoint "\n 所选高程点与第一点重合，请重新选择第二个点:"))))
(setq z2 (caddr p2))
(= 0 z2)
)
(setq y2 (car p2))
(setq x2 (cadr p2))
(setq z2 (caddr p2))0
(setq y ( + y1 (/ (- y2 y1) 2)))
(setq x ( + x1 (/ (- x2 x1) 2)))
(setq z ( + z1 (/ (- z2 z1) 2)))
(setq p (list y x z))
(command "dd" "202101" 1 p z)
(command)
)
)

czb203 · 发表于 2011-11-21 10:55:34

为什么我加载了用不了啊没什么效果呢

李龙山 · 发表于 2011-11-28 23:17:16

下载学习一次

zyhandw · 发表于 2011-11-29 09:06:38

很多高手都是搞测绘的啊！呵呵，同行啊！

julia67 · 发表于 2011-12-4 14:47:45

同行顶顶顶顶

chaozhong116 · 发表于 2011-12-4 20:02:24

不错，线状加点

cuyongping · 发表于 2011-12-5 16:52:51

不错，线状加点

qfkxc · 发表于 2011-12-6 13:15:53

有此程序高程点内插方便多了

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

南方cass两种情况加高程点--源码，运行视屏

本帖子中包含更多资源

评分

本帖被以下淘专辑推荐:

相关帖子