提取文字插入点坐标【测量坐标格式】

skg123

(setq ent (entget (ssname ss i)))
(setq typeA (cdr (assoc 1 ent)))
       (setq sxyz (strcat typeA"," sn ","  sy ","  sx11  ","  sz))，代码这么修改后，可以将图面的文字序号变成点号序号；

偏爱云~小吴

赞一个，不错的东西

shmily_yjx

我是初学者，这个东西怎么用啊

skg123

2. (defun c:TQZB()
   
3. (princ "\n选择所需输出的点或文字:")
   
4. ;(setq ss (ssget ));;选取坐标点
   
5. (setq ss(ssget (list(cons 8 "GCD")(cons 2 "GC200"))))
   
6. (setq n (sslength ss ));计算坐标点数量
   
7. (setq ff (open (getfiled "文件保存为" "f:/" "dat" 1) "w"));保存路径
   
8. (setq i 0)
   
9. (repeat n
   
10. (setq spt (ssname ss i ))
    
11. (setq ept (entget spt))
    
12. (if (= (cdr (assoc 0 ept)) )
    
13. (progn
    
14. (setq lxyz (cdr (assoc 10 ept)))
    
15. (setq sx (rtos (nth 1 lxyz)));将坐标值实数转换成字符
    
16. (setq sy (rtos (nth 0 lxyz)))
    
17. (setq sz (rtos (nth 2 lxyz)))
    
18. (setq i1 (+ i 1));计算点序号
    
19. (setq sn (rtos i1 2 0));将序号实数转换成字符
    
20. (setq sxyz (strcat sn",," sy "," sx "," sz))
    
21. (write-line sxyz ff)
    
22. )
    
23. )
    
24. (setq i (+ i 1))
    
25. );repeat
    
26. )
    
27. (prompt "*提取地图中的高程点坐标值 << 命令:TQZB >> *输出格式（点号,, Y，X，Z）**")
    
28. (prin1)

(defun c:TQZB()<br /> (princ "\n选择所需输出的点或文字:")<br /> ;(setq ss (ssget ));;选取坐标点<br /> (setq ss(ssget (list(cons 8 "GCD")(cons 2 "GC200"))))<br /> (setq n (sslength ss ));计算坐标点数量<br /> (setq ff (open (getfiled "文件保存为" "f:/" "dat" 1) "w"));保存路径<br /> (setq i 0)<br /> (repeat n<br /> (setq spt (ssname ss i ))<br /> (setq ept (entget spt))<br /> (if (= (cdr (assoc 0 ept)) )<br /> (progn<br /> (setq lxyz (cdr (assoc 10 ept)))<br /> (setq sx (rtos (nth 1 lxyz)));将坐标值实数转换成字符<br /> (setq sy (rtos (nth 0 lxyz)))<br /> (setq sz (rtos (nth 2 lxyz)))<br /> (setq i1 (+ i 1));计算点序号<br /> (setq sn (rtos i1 2 0));将序号实数转换成字符<br /> (setq sxyz (strcat sn",," sy "," sx "," sz))<br /> (write-line sxyz ff)<br /> )<br /> )<br /> (setq i (+ i 1))<br /> );repeat<br /> )<br /> (prompt "*提取地图中的高程点坐标值 << 命令:TQZB >> *输出格式（点号,, Y，X，Z）**")<br /> (prin1)

zenum

学习了  谢谢分享

qunaihan

赞一个，真是不错的东西!

qunaihan

读取桩基的编号文本，将编号作为点号。运行时出现：错误: 语法错误。

fyw12345

确实有用，对于学习lisp输出excel很有帮助！

yefei812678

不错
不错
不错