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

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

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 (/ (- y2y1) 2)))
(setq x ( + x1 (/ (- x2x1) 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

有此程序高程点内插方便多了
页: [1] 2 3
查看完整版本: 南方cass两种情况加高程点--源码，运行视屏