横断面数据提取

zbwei120

2. 
   
3. ;;;本程序命令为hdmout,仅针对图纸比例为1：1的情况而言，若比例不是1：1，请自行调整图纸比例
   
4. ;;;本程序需选择断面桩号、坐标系基准中心、选择基准中心处的断面高程数据
   
5. ;;;本程序所获得的数据为追加形式，一次采取一条断面，可以累加
   
6. (defun c:hdmout (/ s filename e n fn jd pt pts number str_1)
   
7.   (vl-load-com)
   
8.   (setq str_1 (cdr (assoc 1(entget (car (entsel "请选择一个断面桩号："))))))
   
9.   (setq point_1 (getpoint "\n 请选择坐标系基准中心位置"))
   
10.   (setq px_1 (car point_1)
    
11.       py_1 (cadr point_1))
    
12.   (setq e55 (cdr (assoc 1 (entget (car (entsel "\n 请选取该断面的中心高程数据:"))))))
    
13.   (setq bb (vl-string->list e55))
    
14.   (setq cc (vl-remove-if '(lambda (x) (> x 57)) bb))
    
15.   (setq de (vl-remove-if '(lambda (x) (< x 43)) cc))
    
16.   (setq height_1 (atof (vl-list->string de)))
    
17.   (if (setq s (ssget ":S" '((0 . "*POLYLINE")))) ;_点选带过滤形式
    
18.     (progn
    
19.       (setq e (ssname s 0)
    
20.             number (fix (vlax-curve-getendparam e))
    
21.             n (+ 1 number)
    
22.       )
    
23.       (if (not (setq filename
    
24.                       (getfiled "选择文件存储目录" "d:/断面线数据.txt" "txt" 33)
    
25.                )
    
26.           )
    
27.         (setq filename "c:\\断面线数据.txt")
    
28.       )
    
29.       (setq fn (open filename "a")
    
30.             jd n
    
31.       )
    
32.       (WRITE-LINE str_1 fn)
    
33.       (setvar "dimdec" 3)
    
34.       (repeat n
    
35.         (setq pt (vlax-curve-getpointatparam e (setq jd (1- jd))))
    
36.         (if (null pts)
    
37.           (setq pts (list pt))
    
38.           (if (not (equal pt (car pts) 1e-3))
    
39.             (setq pts (cons pt pts))
    
40.           )
    
41.         )
    
42.       )
    
43.       (setq n 1)
    
44.       (mapcar '(lambda (x)
    
45.                  (write-line
    
46.                    (strcat (itoa n)
    
47.                            ","
    
48.                             (rtos (- (car x) px_1))
    
49.                            ","
    
50.                            (rtos (+ height_1 (- (cadr x) py_1))) ;_与前面的 dimzin 配合采用用户 UNITS 精度设置
    
51.                    )
    
52.                    fn
    
53.                  )
    
54.                  (setq n (1+  n))
    
55.                )
    
56.               pts
    
57.       )
    
58.       (close fn)
    
59.     )
    
60.   )
    
61.   (princ"\n")
    
62. )
    
63. 
    

<br /> ;;;本程序命令为hdmout,仅针对图纸比例为1：1的情况而言，若比例不是1：1，请自行调整图纸比例<br /> ;;;本程序需选择断面桩号、坐标系基准中心、选择基准中心处的断面高程数据<br /> ;;;本程序所获得的数据为追加形式，一次采取一条断面，可以累加<br /> (defun c:hdmout (/ s filename e n fn jd pt pts number str_1)<br />   (vl-load-com)<br />   (setq str_1 (cdr (assoc 1(entget (car (entsel "请选择一个断面桩号："))))))<br />   (setq point_1 (getpoint "\n 请选择坐标系基准中心位置"))<br />   (setq px_1 (car point_1)<br />       py_1 (cadr point_1))<br />   (setq e55 (cdr (assoc 1 (entget (car (entsel "\n 请选取该断面的中心高程数据:"))))))<br />   (setq bb (vl-string->list e55))<br />   (setq cc (vl-remove-if '(lambda (x) (> x 57)) bb))<br />   (setq de (vl-remove-if '(lambda (x) (< x 43)) cc))<br />   (setq height_1 (atof (vl-list->string de)))<br />   (if (setq s (ssget ":S" '((0 . "*POLYLINE")))) ;_点选带过滤形式<br />     (progn<br />       (setq e (ssname s 0)<br />             number (fix (vlax-curve-getendparam e))<br />             n (+ 1 number)<br />       )<br />       (if (not (setq filename<br />                       (getfiled "选择文件存储目录" "d:/断面线数据.txt" "txt" 33)<br />                )<br />           )<br />         (setq filename "c:\\断面线数据.txt")<br />       )<br />       (setq fn (open filename "a")<br />             jd n<br />       )<br />       (WRITE-LINE str_1 fn)<br />       (setvar "dimdec" 3)<br />       (repeat n<br />         (setq pt (vlax-curve-getpointatparam e (setq jd (1- jd))))<br />         (if (null pts)<br />           (setq pts (list pt))<br />           (if (not (equal pt (car pts) 1e-3))<br />             (setq pts (cons pt pts))<br />           )<br />         ) <br />       )<br />       (setq n 1)<br />       (mapcar '(lambda (x)<br />                  (write-line<br />                    (strcat (itoa n)<br />                            ","<br />                             (rtos (- (car x) px_1))<br />                            ","<br />                            (rtos (+ height_1 (- (cadr x) py_1))) ;_与前面的 dimzin 配合采用用户 UNITS 精度设置<br />                    )<br />                    fn<br />                  )<br />                  (setq n (1+  n))<br />                )<br />               pts<br />       )<br />       (close fn)<br />     )<br />   )<br />   (princ"\n")<br /> )<br /> <br />

zbwei120

谢谢楼上
各位如有什么好建议，请说明一下，以便改正。

f4800

断面一般都是左负右正，如果能完善批量选择横断图再根据中线里程来提取高程点数据就完美了

13648893846

断面一般都是左负右正，如果能完善批量选择横断图再根据中线里程来提取高程点数据就完美了

dwjb

无详细帮助，不会用，大哥来个帮助或者动画

another2121

先收藏了。。。

yshf

不能处理首尾相接的多条直线、多段线或直线与多段线的组合，由于跟绘图时的先后顺序有关，提取的断面数据中，有的断面是自左向右，有的断面自右向左，不尽统一。

yfanzi

建议如下：
1.断面线应该输出的是图上自左到右的顺序，意即左正右负，符合一般的习惯
2.能加个选项就好了，选择保存为 1纬地格式2CASS格式3自定义格式（就是楼主程序自带的格式）
还是支持楼主的源码！

xingbing

不知道怎么用

skg123

楼主，高程点是 类型的，CASS中的高程点不能用，显示数据类型错误

pslstar

有些复杂了，感觉

skg123

yfanzi 发表于 2011-9-19 20:38
建议如下：
1.断面线应该输出的是图上自左到右的顺序，意即左正右负，符合一般的习惯
2.能加个选项就好了 ...

“意即左正右负”

大家是习惯左正右负 ，还是左负？
我习惯左负