skg123 发表于 2009-12-10 10:58:00

计算面积很有用

heying08 发表于 2009-12-25 00:02:00

LZ.......你好&nbsp; 我想问怎样能解决点线矛盾（即高程点和等高线的高程矛盾）&nbsp; 并高亮显示方便修改&nbsp;&nbsp; <a href="mailto:172741475@qq.com">172741475@qq.com</a>&nbsp; 真诚等待各位的回复&nbsp; 谢谢！！！

zmyjy8258 发表于 2009-12-30 09:44:00

<p>顶楼的，CASS斑图中：</p><p>1 怎么样把面积设置成以亩为位；</p><p>2&nbsp;能不能把地块编号、地类代号、面积的样式灵活设置；</p><p>3 能够以斑图统计每一块的面积同时也能按地类汇总。</p>

skg123 发表于 2010-5-6 17:05:00

<p>CASS横断面处理的时候，不能把将断面线保存数据（平距，高程），</p><p>提取横断面线，不让不确定中点位置，这个在公路中用的很多，需要改进。</p>

ndsasdf 发表于 2010-5-9 19:12:00

在这里我有回家的感觉 ，感谢楼主对测绘行业的无私奉献，让我在这里学习到了更加多的测绘知识，谢谢，学习中··········

461045462 发表于 2010-5-15 20:05:00

<p>7楼的文件下载怎么是</p><p>局域网查看工具V1.60.exe</p><p>&nbsp;</p>

461045462 发表于 2010-5-15 20:58:00

<p>我想问问cass8.0填充的命令不知放在哪个文件里？</p><p>因为沙地的符合点太小，我想把它改为图纸上0.2mm,点间隔2mm的圆点填充而成的小点。</p><p>不知如何修改，望指教。谢谢</p>

njcknfy 发表于 2010-7-14 13:55:00

检查等高线点线矛盾的思路

<p>图面上的等高线和高程点的高程值之间的矛盾问题,通过程序检查是可以的，我的具体的思路是以每个高程点从0度至360度，按每隔30度循环，长度为10倍等高距做(SSGET "F" (LIST POINT1 POINT2))的集合，如果选择集有两根等高线，就判断两根等高线高程是递减还是递增,递减则判断高程值减等高距的值是否为两根等高线之间的高程值，递增则判断高程点的值加等高距是否为两根等高线之间的高程值，如存在不符合条件则判断等高线与高程点点线不符。当然，遇到陡坎等其它情况时会有意外，但对于等高线密集的地形图此方法很有效，比人工判断的效率还是高很多的，具体的源码如下：</p>
<p><font face="Verdana">(defun check_GCD_DGX&nbsp; (point_pt denggaoju)<br/>;;;检查高程点与周围等高线的一致性<br/>;;;(check_GCD_DGX point_pt denggaoju)<br/>;;;(setq point_pt (getpoint) denggaoju 0.5)<br/>&nbsp; (setq&nbsp;ang_setp&nbsp;&nbsp; 0.0<br/>&nbsp;dgx_fxlist nil<br/>&nbsp;gcddgx_err T<br/>&nbsp;gcd_H&nbsp;&nbsp;&nbsp; (nth 2 point_pt))<br/>&nbsp; (setq ang_i 0)<br/>&nbsp; (repeat 12<br/>&nbsp;&nbsp;&nbsp; (setq point_pt1 (list (nth 0 point_pt) (nth 1 point_pt))<br/>&nbsp;&nbsp; point_pt2 (polar (list (nth 0 point_pt) (nth 1 point_pt))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ang_setp<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (* 10.0 denggaoju)))<br/>&nbsp;&nbsp;&nbsp; (setq point_list (list point_pt1 point_pt2))<br/>&nbsp;&nbsp;&nbsp; (setq dgx_s&nbsp;(ssget "F"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; point_list<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (list (cons -4 "&lt;AND")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons 0 "*POLYLINE")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons -4 "&lt;OR")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons 8 "DGX")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons 8 "OLD_DGX")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons -4 "OR&gt;")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons -4 "AND&gt;"))))<br/>&nbsp;&nbsp;&nbsp; (if&nbsp;dgx_s<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn (setq dgx_i 0<br/>&nbsp;&nbsp;&nbsp;&nbsp; dgx0_list nil)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (repeat (sslength dgx_s)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq dgx_ename (ssname dgx_s dgx_i))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq dgx_handent (cdr (assoc 5 (entget dgx_ename))))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq dgx_object (vlax-ename-&gt;vla-object dgx_ename))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq dgx_gcz (vla-get-Elevation dgx_object))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq dgx0_list (append dgx0_list (list dgx_gcz)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq dgx_i (1+ dgx_i)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (/= dgx0_list nil)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn (setq dgx_fxlist (append dgx_fxlist<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (list (list ang_i dgx0_list))))))))<br/>&nbsp;&nbsp;&nbsp; (setq ang_setp (+ ang_setp (/ pi 3.0)))<br/>&nbsp;&nbsp;&nbsp; (setq ang_i (1+ ang_i)))<br/>&nbsp; (setq check_i 0)<br/>&nbsp; (while (&lt; check_i (length dgx_fxlist))<br/>&nbsp;&nbsp;&nbsp; (setq dgx0_list (nth check_i dgx_fxlist))<br/>&nbsp;&nbsp;&nbsp; (if&nbsp;(&gt; (length (cadr dgx0_list)) 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn (setq dgx_1 (nth 0 (cadr dgx0_list))<br/>&nbsp;&nbsp;&nbsp;&nbsp; dgx_2 (nth 1 (cadr dgx0_list)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cond ((&lt; dgx_1 dgx_2)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn (if (or (&lt; (+ gcd_H denggaoju) dgx_1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (&gt; (+ gcd_H denggaoju) dgx_2))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq gcddgx_err nil<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; check_i&nbsp;&nbsp;&nbsp; (length dgx_fxlist)))))<br/>&nbsp;&nbsp;&nbsp;&nbsp; ((&gt; dgx_1 dgx_2)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn (if (or (&gt; (- gcd_H denggaoju) dgx_1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (&lt; (- gcd_H denggaoju) dgx_2))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq gcddgx_err nil<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; check_i&nbsp;&nbsp;&nbsp; (length dgx_fxlist)))))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (t nil))))<br/>&nbsp;&nbsp;&nbsp; (setq check_i (1+ check_i)))<br/>&nbsp; gcddgx_err)</font></p>

水清平 发表于 2010-7-22 08:31:00

如果电子地形图上的高程点没有高程属性，即只有X\Y值，没有Z值，也就是Z值是在图面上用文本表示的，那怎样将地形点提出X\Y\Z值呢？谢谢

461045462 发表于 2010-9-6 10:40:00

<p>请问楼主</p>
<p>cass的程序文件是一个什么名称呢？查了很久都不知道。</p>
<p>我想利用他的程序编辑一些命令使用。</p>
<p>请发送到<a href="mailto:461045462@qq.com">461045462@qq.com</a></p>
<p>请指教。</p>
<p>谢谢</p>
页: 10 11 12 13 14 15 16 17 18 19 [20] 21 22 23 24 25 26 27 28 29
查看完整版本: 自己动手,改进CASS中欠缺的功能