提取桩坐标及编号

wxynotes

按编号顺序提取桩（圆）的编号和坐标

2. ;;; ======================================================================
   
3. ;;; 定义一个新命令: SortTextExport
   
4. ;;; 功能:
   
5. ;;; 1. 让用户选择单行文字 (TEXT)
   
6. ;;; 2. 根据数值大小 (从小到大) 排序
   
7. ;;; 3. 将排序后的 "字符串,Y坐标,X坐标" 输出到桌面
   
8. ;;;
   
9. ;;; v2.0 更新:
   
10. ;;;   - 坐标 (X, Y) 优先使用 DXF 11 (对齐点)
    
11. ;;;   - 如果 DXF 11 不存在 (如默认左对齐), 则使用 DXF 10 (插入点)
    
12. ;;; ======================================================================
    
13. 
    
14. (defun c:SortTextExport ( / ss i ent edata text-val ins-pt align-pt pt-to-use num-val x-coord y-coord text-list sorted-list desktop-path outfile-path f item line)
    
15.   
    
16.   (princ "\n--- 文本排序导出工具 (使用对齐点) ---")
    
17.   
    
18.   ;; 1. 让用户框选选择单行文字 (DBText 在 LISP/DXF 中称为 "TEXT")
    
19.   (prompt "\n请框选要排序的单行文字(DBText): ")
    
20.   (setq ss (ssget '((0 . "TEXT"))))
    
21.   
    
22.   (if ss
    
23.     (progn
    
24.       (setq i 0)
    
25.       (setq text-list '()) ; 初始化一个空列表来存储数据
    
26.       
    
27.       ;; 遍历选择集
    
28.       (while (< i (sslength ss))
    
29.         (setq ent (ssname ss i))
    
30.         (setq edata (entget ent))
    
31.         
    
32.         ;; 提取数据
    
33.         (setq text-val (cdr (assoc 1 edata)))  ; 文本字符串 (DXF code 1)
    
34.         
    
35.         ;; --- 坐标提取逻辑 (已更新) ---
    
36.         (setq ins-pt (cdr (assoc 10 edata))) ; 插入点 (DXF code 10)
    
37.         (setq align-pt (cdr (assoc 11 edata))) ; 对齐点 (DXF code 11), 如果存在
    
38.         
    
39.         ;; 将文本字符串转换为数值
    
40.         (setq num-val (atof text-val))
    
41.         
    
42.         ;; 确定要使用的坐标
    
43.         ;; 如果 DXF code 11 (对齐点) 存在, 则使用它
    
44.         ;; 否则, 使用 DXF code 10 (插入点)
    
45.         (if align-pt
    
46.           (setq pt-to-use align-pt)
    
47.           (setq pt-to-use ins-pt)
    
48.         )
    
49. 
    
50.         (setq x-coord (car pt-to-use))
    
51.         (setq y-coord (cadr pt-to-use))
    
52.         ;; --- 更新结束 ---
    
53. 
    
54.         ;; 将数据存储在一个列表中，格式为: (数值 字符串 Y X)
    
55.         (setq text-list (cons (list num-val text-val y-coord x-coord) text-list))
    
56.         
    
57.         (setq i (1+ i))
    
58.       ) ; end while
    
59.       
    
60.       (if (not (null text-list))
    
61.         (progn
    
62.           ;; 2. 根据单行文字的数值大小排序 (从小到大)
    
63.           (setq sorted-list
    
64.             (vl-sort text-list
    
65.               (function (lambda (a b) (< (car a) (car b))))
    
66.             )
    
67.           )
    
68.          
    
69.           ;; 3. 将排序后的单行文字的...输出到桌面
    
70.          
    
71.           ;; 找到桌面路径 (适用于 Windows)
    
72.           (if (setq desktop-path (strcat (getenv "USERPROFILE") "\\Desktop"))
    
73.             (progn
    
74.               (setq outfile-path (strcat desktop-path "\\SortedTextData.csv"))
    
75.               
    
76.               ;; 尝试打开文件进行写入
    
77.               (if (setq f (open outfile-path "w"))
    
78.                 (progn
    
79.                   ;; 写入数据
    
80.                   (foreach item sorted-list
    
81.                     ;; item 是 (数值 字符串 Y X)
    
82.                     (setq line (strcat
    
83.                                  (cadr item)    ; 字符串
    
84.                                  ","
    
85.                                  (rtos (caddr item) 2 8) ; Y坐标 (rtos 转换为字符串, 2=小数, 8=精度)
    
86.                                  ","
    
87.                                  (rtos (cadddr item) 2 8) ; X坐标
    
88.                                ))
    
89.                     (write-line line f)
    
90.                   )
    
91.                   (close f)
    
92.                   (alert (strcat "数据已成功导出到: \n" outfile-path))
    
93.                 )
    
94.                 (alert (strcat "错误: 无法写入文件! \n" outfile-path "\n请检查权限。"))
    
95.               )
    
96.             )
    
97.             (alert "错误: 无法找到桌面路径。")
    
98.           )
    
99.         )
    
100.         (prompt "\n未在所选对象中找到有效的文本。")
     
101.       )
     
102.     )
     
103.     (prompt "\n未选择任何对象。")
     
104.   )
     
105.   
     
106.   (princ) ; 退出时不在命令行显示 nil
     
107. )
     
108. 
     
109. (princ "\n已加载 SortTextExport  命令 (v2.0)，请输入  SortTextExport  运行。")
     
110. (princ)

;;; ======================================================================<br /> ;;; 定义一个新命令: SortTextExport <br /> ;;; 功能:<br /> ;;; 1. 让用户选择单行文字 (TEXT)<br /> ;;; 2. 根据数值大小 (从小到大) 排序<br /> ;;; 3. 将排序后的 "字符串,Y坐标,X坐标" 输出到桌面<br /> ;;;<br /> ;;; v2.0 更新:<br /> ;;;   - 坐标 (X, Y) 优先使用 DXF 11 (对齐点)<br /> ;;;   - 如果 DXF 11 不存在 (如默认左对齐), 则使用 DXF 10 (插入点)<br /> ;;; ======================================================================<br /> <br /> (defun c:SortTextExport ( / ss i ent edata text-val ins-pt align-pt pt-to-use num-val x-coord y-coord text-list sorted-list desktop-path outfile-path f item line)<br />   <br />   (princ "\n--- 文本排序导出<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a> (使用对齐点) ---")<br />   <br />   ;; 1. 让用户框选选择单行文字 (DBText 在 LISP/DXF 中称为 "TEXT")<br />   (prompt "\n请框选要排序的单行文字(DBText): ")<br />   (setq ss (ssget '((0 . "TEXT"))))<br />   <br />   (if ss<br />     (progn<br />       (setq i 0)<br />       (setq text-list '()) ; 初始化一个空列表来存储数据<br />       <br />       ;; 遍历选择集<br />       (while (< i (sslength ss))<br />         (setq ent (ssname ss i))<br />         (setq edata (entget ent))<br />         <br />         ;; 提取数据<br />         (setq text-val (cdr (assoc 1 edata)))  ; 文本字符串 (DXF code 1)<br />         <br />         ;; --- 坐标提取逻辑 (已更新) ---<br />         (setq ins-pt (cdr (assoc 10 edata))) ; 插入点 (DXF code 10)<br />         (setq align-pt (cdr (assoc 11 edata))) ; 对齐点 (DXF code 11), 如果存在<br />         <br />         ;; 将文本字符串转换为数值<br />         (setq num-val (atof text-val))<br />         <br />         ;; 确定要使用的坐标<br />         ;; 如果 DXF code 11 (对齐点) 存在, 则使用它<br />         ;; 否则, 使用 DXF code 10 (插入点)<br />         (if align-pt<br />           (setq pt-to-use align-pt)<br />           (setq pt-to-use ins-pt)<br />         )<br /> <br />         (setq x-coord (car pt-to-use))<br />         (setq y-coord (cadr pt-to-use))<br />         ;; --- 更新结束 ---<br /> <br />         ;; 将数据存储在一个列表中，格式为: (数值 字符串 Y X)<br />         (setq text-list (cons (list num-val text-val y-coord x-coord) text-list))<br />         <br />         (setq i (1+ i))<br />       ) ; end while<br />       <br />       (if (not (null text-list))<br />         (progn<br />           ;; 2. 根据单行文字的数值大小排序 (从小到大)<br />           (setq sorted-list <br />             (vl-sort text-list <br />               (function (lambda (a b) (< (car a) (car b))))<br />             )<br />           )<br />           <br />           ;; 3. 将排序后的单行文字的...输出到桌面<br />           <br />           ;; 找到桌面路径 (适用于 Windows)<br />           (if (setq desktop-path (strcat (getenv "USERPROFILE") "\\Desktop"))<br />             (progn<br />               (setq outfile-path (strcat desktop-path "\\SortedTextData.csv"))<br />               <br />               ;; 尝试打开文件进行写入<br />               (if (setq f (open outfile-path "w"))<br />                 (progn<br />                   ;; 写入数据<br />                   (foreach item sorted-list<br />                     ;; item 是 (数值 字符串 Y X)<br />                     (setq line (strcat<br />                                  (cadr item)    ; 字符串<br />                                  ","<br />                                  (rtos (caddr item) 2 8) ; Y坐标 (rtos 转换为字符串, 2=小数, 8=精度)<br />                                  ","<br />                                  (rtos (cadddr item) 2 8) ; X坐标<br />                                ))<br />                     (write-line line f)<br />                   )<br />                   (close f)<br />                   (alert (strcat "数据已成功导出到: \n" outfile-path))<br />                 )<br />                 (alert (strcat "错误: 无法写入文件! \n" outfile-path "\n请检查权限。"))<br />               )<br />             )<br />             (alert "错误: 无法找到桌面路径。")<br />           )<br />         )<br />         (prompt "\n未在所选对象中找到有效的文本。")<br />       )<br />     )<br />     (prompt "\n未选择任何对象。")<br />   )<br />   <br />   (princ) ; 退出时不在命令行显示 nil<br /> )<br /> <br /> (princ "\n已加载 SortTextExport  命令 (v2.0)，请输入  SortTextExport  运行。")<br /> (princ)

liufii

多谢分享！