在ＣＡＳＳ中 图面拾取高程点 求累计值 和平均值（原）

004

能简单介绍下使用背景吗？

skg123

004 发表于 2014-12-13 01:07
能简单介绍下使用背景吗？

这个主要应用在场地平整时，测点凌乱没有成断面状，精度要求不高的情况下，快速计算出场地平均高程，进行估算土方量。

lizhigang.jin

选边线的比较好用，框选的不大好。界面不友好

liudehua14

非常感谢，很实用

iamdjz

这个功能不错，

知行ooo李肖坪

谢谢，学习一下………………

wu112031853

好！！！！！！！

willing0

感谢楼主无私奉献，受益匪浅！

willing0

谢谢谢谢谢谢学习

16699988885

更新代码本次共拾取31点, 高程平均值: 6.854, 最小高程: 6.621, 最大高程: 7.101, 坐标文件在D盘;"本次共拾取31点, 高程平均值: 6.854, 最小高程: 6.621, 最大高程:

1. (defun c:pjz (/ p1 p2 ss sn si i x y e fw)
   
2.   (prompt "\n**从CASS中提取高程点计算高程累计和 和平均数，请在命令行输入 pjz **")
   
3.   (setq sn 0) ; 初始化计数器
   
4.   (setq zh 0) ; 初始化高程累计和
   
5.   (setq ss (ssget (list (cons 8 "GCD") (cons 2 "GC200")))) ; 获取图层为GCD且名称为GC200的对象
   
6.   (if ss
   
7.     (progn
   
8.       (setq fw (open "d:\\ex.dat" "w")) ; 打开文件准备写入
   
9.       (setq sn (sslength ss)) ; 获取选择集中的对象数量
   
10.       (setq i 0) ; 初始化循环变量
    
11.       (while (< i sn)
    
12.         (setq si (ssname ss i)) ; 获取当前对象
    
13.         (setq pt (cdr (assoc 10 (entget si)))) ; 提取当前对象的3D坐标
    
14.         (setq x (rtos (car pt) 2 3)) ; X坐标
    
15.         (setq y (rtos (cadr pt) 2 3)) ; Y坐标
    
16.         (setq e (rtos (caddr pt) 2 3)) ; Z坐标（高程）
    
17.         
    
18.         (princ (strcat (itoa (1+ i)) ",GCD," x "," y "," e "\n") fw) ; 写入文件
    
19.         
    
20.         (setq pz (nth 2 pt)) ; 提取Z值
    
21.         (setq zh (+ zh pz)) ; 更新高程累计和
    
22.         (setq pj (/ zh (1+ i))) ; 计算当前平均值
    
23.         (setq si (rtos (1+ i) 2 0)) ; 当前点的数量
    
24.         (setq zh1 (rtos zh 2 3)) ; 高程累计和
    
25.         (setq pj1 (rtos pj 2 3)) ; 平均高程
    
26.         (setq pdz (strcat "本次共拾取" si "点, 高程累计值:" zh1 ", 高程平均值: " pj1 ", 坐标文件在D盘;"))
    
27.         
    
28.         (setq i (1+ i)) ; 更新循环变量
    
29.       )
    
30.       (close fw) ; 关闭文件
    
31.     )
    
32.   )
    
33.   (princ pdz) ; 输出结果到命令行
    
34. )

(defun c:pjz (/ p1 p2 ss sn si i x y e fw)<br />   (prompt "\n**从CASS中提取高程点计算高程累计和 和平均数，请在命令行输入 pjz **")<br />   (setq sn 0) ; 初始化计数器<br />   (setq zh 0) ; 初始化高程累计和<br />   (setq ss (ssget (list (cons 8 "GCD") (cons 2 "GC200")))) ; 获取图层为GCD且名称为GC200的对象<br />   (if ss<br />     (progn<br />       (setq fw (open "d:\\ex.dat" "w")) ; 打开文件准备写入<br />       (setq sn (sslength ss)) ; 获取选择集中的对象数量<br />       (setq i 0) ; 初始化循环变量<br />       (while (< i sn)<br />         (setq si (ssname ss i)) ; 获取当前对象<br />         (setq pt (cdr (assoc 10 (entget si)))) ; 提取当前对象的3D坐标<br />         (setq x (rtos (car pt) 2 3)) ; X坐标<br />         (setq y (rtos (cadr pt) 2 3)) ; Y坐标<br />         (setq e (rtos (caddr pt) 2 3)) ; Z坐标（高程）<br />         <br />         (princ (strcat (itoa (1+ i)) ",GCD," x "," y "," e "\n") fw) ; 写入文件<br />         <br />         (setq pz (nth 2 pt)) ; 提取Z值<br />         (setq zh (+ zh pz)) ; 更新高程累计和<br />         (setq pj (/ zh (1+ i))) ; 计算当前平均值<br />         (setq si (rtos (1+ i) 2 0)) ; 当前点的数量<br />         (setq zh1 (rtos zh 2 3)) ; 高程累计和<br />         (setq pj1 (rtos pj 2 3)) ; 平均高程<br />         (setq pdz (strcat "本次共拾取" si "点, 高程累计值:" zh1 ", 高程平均值: " pj1 ", 坐标文件在D盘;"))<br />         <br />         (setq i (1+ i)) ; 更新循环变量<br />       )<br />       (close fw) ; 关闭文件<br />     )<br />   )<br />   (princ pdz) ; 输出结果到命令行<br /> )

7.101, 坐标文件在D盘;"