请问怎么用LISP提取每个圆圈或者方框内的文字然后把文字合并起来？

qqask

如图所示，要把每个圆圈或者方框内的上下文字合并起来。

比如说中间的文字要提取出PDG-832A和SF-3606。
网上AI找了些代码，但都写得不全或者运行错误。

1. (defun c:MergeTextInCircles (/ ss i ename txtpos txt txtlist mergedtxt)
   
2.   ; 初始化变量
   
3.   (setq txtlist nil)
   
4.   (setq mergedtxt "")
   
5. 
   
6.   ; 选择包含文字的圆
   
7.   (setq ss (ssget "S=C;X;"))
   
8.   if ss
   
9.     ; 遍历选择集中的每个圆
   
10.     (repeat (sslength ss)
    
11.       (setq i (ssname ss (setq i (1+ i))))
    
12.       (setq circEnt (entget i))
    
13.       (if circEnt
    
14.         (progn
    
15.           ; 获取圆的中心点
    
16.           (setq circCtr (cdr (assoc 10 circEnt)))
    
17.           ; 查找圆内的所有文字对象
    
18.           (mapcar
    
19.             '(lambda (ename)
    
20.               (setq txtEnt (entget ename))
    
21.               (if txtEnt
    
22.                 (progn
    
23.                   ; 获取文字位置和内容
    
24.                   (setq txtpos (cdr (assoc 10 txtEnt)))
    
25.                   (setq txt (cdr (assoc 1 txtEnt)))
    
26. 
    
27.                   ; 这里需要添加逻辑来确保文字在圆内
    
28.                   ; ...
    
29. 
    
30.                   ; 将文字内容添加到列表
    
31.                   (setq txtlist (cons txt txtlist))
    
32.                 )
    
33.               )
    
34.             )
    
35.             ; 这里应该是获取圆内所有文字对象的命令或函数
    
36.             ; 例如使用空间搜索或其他方法
    
37.             )
    
38.           )
    
39.         )
    
40.       )
    
41.     )
    
42.     ; 合并文字
    
43.     (foreach txt txtlist
    
44.       (setq mergedtxt (strcat mergedtxt txt "\P")) ; 假设"\P"在AutoCAD中用作换行符
    
45.     )
    
46.     ; 假设我们在第一个圆的中心创建合并的文字对象
    
47.     (if txtlist
    
48.       (command "_.text" (car circCtr) "" mergedtxt)
    
49.     )
    
50.   )
    
51.   (princ)
    
52. )
    
53. 
    
54. ; 加载LISP程序并运行命令
    
55. (load "pmerge_text_in_circles")
    
56. (princ "\nLISP程序已加载。输入 'MergeTextInCircles' 来运行。")
    
57. (princ)

(defun c:MergeTextInCircles (/ ss i ename txtpos txt txtlist mergedtxt)<br />   ; 初始化变量<br />   (setq txtlist nil)<br />   (setq mergedtxt "")<br /> <br />   ; 选择包含文字的圆<br />   (setq ss (ssget "S=C;X;"))<br />   if ss<br />     ; 遍历选择集中的每个圆<br />     (repeat (sslength ss)<br />       (setq i (ssname ss (setq i (1+ i))))<br />       (setq circEnt (entget i))<br />       (if circEnt<br />         (progn<br />           ; 获取圆的中心点<br />           (setq circCtr (cdr (assoc 10 circEnt)))<br />           ; 查找圆内的所有文字对象<br />           (mapcar<br />             '(lambda (ename)<br />               (setq txtEnt (entget ename))<br />               (if txtEnt<br />                 (progn<br />                   ; 获取文字位置和内容<br />                   (setq txtpos (cdr (assoc 10 txtEnt)))<br />                   (setq txt (cdr (assoc 1 txtEnt)))<br /> <br />                   ; 这里需要添加逻辑来确保文字在圆内<br />                   ; ...<br /> <br />                   ; 将文字内容添加到列表<br />                   (setq txtlist (cons txt txtlist))<br />                 )<br />               )<br />             )<br />             ; 这里应该是获取圆内所有文字对象的命令或函数<br />             ; 例如使用空间搜索或其他方法<br />             )<br />           )<br />         )<br />       )<br />     )<br />     ; 合并文字<br />     (foreach txt txtlist<br />       (setq mergedtxt (strcat mergedtxt txt "\P")) ; 假设"\P"在<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>中用作换行符<br />     )<br />     ; 假设我们在第一个圆的中心创建合并的文字对象<br />     (if txtlist<br />       (command "_.text" (car circCtr) "" mergedtxt)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> ; 加载LISP程序并运行命令<br /> (load "pmerge_text_in_circles")<br /> (princ "\nLISP程序已加载。输入 'MergeTextInCircles' 来运行。")<br /> (princ)

你有种再说一遍

这个问题可大可小啊.
大就是性能考虑,要构建各种树,不过四叉树就好了...
小就是暴力选择...

marcoyuwen

这种P&ID图的测点，使用属性块，方便提取信息、统计数量。

e2002

设计信息的组织很重要，否则都是这种用分散的文字去表示实际需要关联的内容，最后还想用程序来获取，哪有这种好事？