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

gzbccy

我知道CASS功能中有高程点提取的功能，但是该功能只能将图面上所有的高程点全部提取到文件中。指定点提取只能一个一个提取。每次都要输入地物代码。麻烦。能否做一个批量提取高程点生成数据文件。就是框选内的高程点生成一个数据文件？

Student

下面是一个简单的代码：

;-------------------------------------------------------------------------------------------

;提取cass中的高程点->Dat文件

(defun c:b2d(/ p1 p2 ss sn si i x y e fw)
 (setq sn 0)
 (setq p1(getpoint "\n拾取选择框的一个角点:"))
 (if p1
  (setq p2(getcorner p1 "\n选择对角点:"))
 )
 (if p2
  (setq ss(ssget "c" p1 p2 (list(cons 8 "GCD")(cons 2 "GC200"))))
 )
 
 (if ss(progn
  (setq fw(open "d:\\ex.dat" "w"))
  (setq sn(sslength ss))
  (setq i 0)
  (while(< i sn)
   (setq si(ssname ss i))
   (setq pt(cdr(assoc 10 (entget si))))
   (setq x(rtos(car pt)2 3) y(rtos(cadr pt)2 3) e(rtos(caddr pt)2 3))
   (princ(strcat (itoa (1+ i))",GCD," x "," y "," e "\n") fw)
   (setq i(1+ i))
  )
  (close fw)
  (alert "OK")
 ))
 (princ)
)
;-------------------------------------------------------------------------------------

本代码并未优化、只供参考。

下面是测试结果：

1,GCD,1631.769,448.348,199.598
2,GCD,1636.579,445.412,197.584
3,GCD,1640.756,446.087,197.533
4,GCD,1642.382,446.844,197.705
5,GCD,1646.092,447.788,197.663
6,GCD,1670.749,443.778,198.698
7,GCD,1669.312,442.277,199.154
8,GCD,1667.745,441.424,199.123
9,GCD,1665.839,440.279,199.200

 

f4800

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

Student

问题不难
请发一小块带高程点的DWG上来

gzbccy

回复 Student 的帖子

请看附图：谢谢指教

gzbccy

回复 Student 的帖子

谢谢你，不过看到你的代码中，第三行和第五行像个火星文，看不懂哦。总之还是谢谢你

Student

"火星文"已改

gzbccy

回复 Student 的帖子

谢谢你哦。你是编程高手啊！佩服

daoshi2902

高手真多呀

姜洋布圯

各位高手，问如何将高程点属性里的Z值和属性hight值保持一致啊，现在我就受这个问题困扰。

004

此贴移至测绘版!!!
CASS中的高程点有hight属性??
0 (-1 . <图元名: 7ef9b078>)
1 (0 . INSERT)
2 (330 . <图元名: 7ef78c10>)
3 (5 . 3CF397)
4 (100 . AcDbEntity)
5 (67 . 0)
6 (410 . Model)
7 (8 . GCD)
8 (6 . Continuous)
9 (100 . AcDbBlockReference)
10 (66 . 1)
11 (2 . GC200)
12 (10 2.5556e+007 4.29611e+006 3110.82)
13 (41 . 1.0)
14 (42 . 1.0)
15 (43 . 1.0)
16 (50 . 0.0)
17 (70 . 0)
18 (71 . 0)
19 (44 . 0.0)
20 (45 . 0.0)
21 (210 0.0 0.0 1.0)
22 (-3 (SOUTH (1000 . 202101)) (EXPLODE (1070 . 1)))