提取CASS中的高程点数据到dat文件（CASS格式）

skg123

修改一下，可以计算平均值 和 高程累计和

2. (defun c:pjz(/ p1 p2 ss sn si i x y e fw)
   
3. (prompt "**从CASS中提取高程点计算高程累计和 和平均数，请在命令行输入 pjz **")
   
4. (setq sn 0)
   
5. (setq zh 0)
   
6.   (setq ss(ssget  (list(cons 8 "GCD")(cons 2 "GC200"))))
   
7. (if ss(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. ;=====提取坐标=================
    
14.    (setq pt(cdr(assoc 10 (entget si))))
    
15.    (setq x(rtos(car pt)2 3) y(rtos(cadr pt)2 3) e(rtos(caddr pt)2 3))
    
16.    (princ(strcat (itoa (1+ i))",GCD," x "," y "," e "\n") fw)
    
17.    (setq i(1+ i))
    
18. ;=====计算平均值==============
    
19. (setq pz (nth 2 pt));提取测量坐标洗z值
    
20. (setq pz1 (rtos (nth 2 pt)));提取测量坐标系Z值
    
21. (setq zh (+ zh pz))
    
22. (setq pj (/ zh i))
    
23. (setq si (rtos 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.   )
    
29.   (close fw)
    
30. 
    
31. ))
    
32. (princ pdz)
    
33. )

(defun c:pjz(/ p1 p2 ss sn si i x y e fw)<br /> (prompt "**从CASS中提取高程点计算高程累计和 和平均数，请在命令行输入 pjz **")<br /> (setq sn 0)<br /> (setq zh 0)<br />   (setq ss(ssget  (list(cons 8 "GCD")(cons 2 "GC200"))))<br /> (if ss(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 /> ;=====提取坐标=================<br />    (setq pt(cdr(assoc 10 (entget si))))<br />    (setq x(rtos(car pt)2 3) y(rtos(cadr pt)2 3) e(rtos(caddr pt)2 3))<br />    (princ(strcat (itoa (1+ i))",GCD," x "," y "," e "\n") fw)<br />    (setq i(1+ i))<br /> ;=====计算平均值==============<br /> (setq pz (nth 2 pt));提取测量坐标洗z值<br /> (setq pz1 (rtos (nth 2 pt)));提取测量坐标系Z值<br /> (setq zh (+ zh pz))<br /> (setq pj (/ zh i))<br /> (setq si (rtos 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 />   )<br />   (close fw)<br /> <br /> ))<br /> (princ pdz)<br /> )

我一直微笑梦

Student 发表于 2011-2-15 17:34
本帖最后由 Student 于 2011-2-17 09:12 编辑 下面是一个简单的代码：
;------------------------------- ...

大神，这个编码是怎么用的呢？

tongtong3489

比较理想的效果了

f4800

记好  不错的源码。。。感谢分享