获取多义线点坐标,RTK放样时有用。可以选 择PLINE获取坐标导入RTK.

zhb236623

1. ;;获取多义线点坐标
   
2. (defun c:gp1()
   
3. (princ"函数功能：获取多义线点坐标.    ")
   
4. (setvar "cmdecho" 0)
   
5. (setq ffn (getfiled "选取文件" "D:/temp/" "txt" 1))
   
6. (setq ff (open ffn "w"))
   
7. (close ff)
   
8. (princ "\n选取PLINE多义线...")
   
9. (setq ss (ssget))
   
10. (setq i 0)
    
11. (setvar "pdmode" 33)
    
12. (repeat (sslength ss)
    
13. (setq ssn (ssname ss i))
    
14. (setq endata (entget ssn))
    
15. (setq n 0)
    
16. (repeat (length endata)
    
17. (setq pp (nth n endata))
    
18. (setq key (car pp))
    
19. (if (= key 10)
    
20. (progn
    
21. (setq x_temp (cadr pp))
    
22. (setq y_temp (caddr pp))
    
23. (setq x (rtos x_temp 2 4)) ;;把x后小数点变为四位输出
    
24. (setq y (rtos y_temp 2 4)) ;;把y后小数点变为四位输出
    
25. ;;(command "point" (list x y))
    
26. (setq ff (open ffn "a"))
    
27. (princ "," ff)
    
28. (princ x ff)
    
29. (princ "," ff)
    
30. (princ y ff)
    
31. (princ "\n" ff)
    
32. (close ff)
    
33. )
    
34. )               
    
35. (setq n (1+ n))
    
36. )
    
37. ;;(setq ff (open ffn "a"))
    
38. ;;(princ "End\n" ff)
    
39. ;;(close ff)
    
40. (setq i (1+ i))
    
41. )
    
42. (princ (strcat "\n文件写至=> " ffn))
    
43. (prin1)
    
44. )  

复制代码

把文本文件改为aa.txt->aa.csv   在第一列加点号就可以了。再改为aa.txt就可以导入RTK   本人用LEICA 1200可用，节省大量输点时间。。。。。。。。。。。

1. 
   
2. (defun c:gp1()
   
3. (princ"函数功能：获取多义线点坐标.    ")
   
4. (setvar "cmdecho" 0)
   
5. (setq ffn (getfiled "选取文件" "D:/zhb/" "txt" 1))
   
6. (setq ff (open ffn "w"))
   
7. (close ff)
   
8. (princ "\n选取PLINE多义线...")
   
9. (setq ss (ssget))
   
10. (setq i 0)
    
11. (setq ii 1)    ;;输出点号
    
12. (setvar "pdmode" 33)
    
13. (repeat (sslength ss)
    
14. (setq ssn (ssname ss i))
    
15. (setq endata (entget ssn))
    
16. (setq n 0)
    
17. (repeat (length endata)
    
18. (setq pp (nth n endata))
    
19. (setq key (car pp))
    
20. (if (= key 10)
    
21. (progn
    
22. (setq x_temp (cadr pp))
    
23. (setq y_temp (caddr pp))
    
24. (setq x (rtos x_temp 2 3)) ;;把x后小数点变为四位输出
    
25. (setq y (rtos y_temp 2 3)) ;;把y后小数点变为四位输出
    
26. (setq iii (itoa ii))
    
27. (setq ff (open ffn "a"))
    
28. (princ iii ff)
    
29. (princ "," ff)
    
30. (princ x ff)
    
31. (princ "," ff)
    
32. (princ y ff)
    
33. (princ "\n" ff)
    
34. (close ff)
    
35. (setq ii (1+ ii))
    
36. )
    
37. )               
    
38. (setq n (1+ n))
    
39. )
    
40. (setq ii ii)
    
41. (setq i (1+ i))
    
42. )
    
43. (princ (strcat "\n文件写至=> " ffn))
    
44. (prin1)
    
45. )

复制代码

重新放上新程序，导出点坐标格式为
1,554892.782,2742945.704
2,553892.142,2742845.120
这个格式可以直接放到LEICA RTK 1200里面，然后放样用。

fanqinwei

如果，楼主能想法，不仅能得到多义线的坐标，还能得到相关点的高程，那就太好了。

zhb236623

fanqinwei 发表于 2011-7-21 20:52
如果，楼主能想法，不仅能得到多义线的坐标，还能得到相关点的高程，那就太好了。

我們出去放樣只要平面坐標就可以了，高程的話是測量範疇了。获取点高程也是可以实现的。。。。。。

折翼天使

谢谢楼主谢谢楼主。。。。。。

折翼天使

谢谢楼主。。。。。。

纳兰龙珠

[把文本文件改为aa.txt->aa.csv   在第一列加点号就可以了。再改为aa.txt就可以导入RTK] ，这句话什么意思，请详细点谢谢

纳兰龙珠

请问代码是怎么用的

纳兰龙珠

zhb236623 发表于 2011-9-21 20:15
我們出去放樣只要平面坐標就可以了，高程的話是測量範疇了。获取点高程也是可以实现的。。。。。。

你是做什么的，怎么那么专一直放平面位置啊

zhb236623

纳兰龙珠 发表于 2011-12-30 22:34
你是做什么的，怎么那么专一直放平面位置啊

红线放样。

ahuohuo

呵呵，我用的是坐标点导出的功能，直接将坐标导出成dat文件，然后用excel打开~