如何提取文字和坐标点？

1633712236

各位大神，帮忙看看好嘛?
怎么提取封闭区域里的字和封闭区域的的端点坐标啊?并且让它们一 一对应啊？

1633712236

哦，最好提取出来以后排序也是按照文字的大小顺序排列A1 ;A2;A3....

永不言弃

2. 
   
3. 更多插件请加群或云盘下载
   
4. http://yunpan.cn/c3iAVqYptpwj9  访问密码 cc19
   
5. QQ群： 208388011
   
6. 
   
7. 
   
8. CASS淘宝店
   
9. https://shop144125783.taobao.com/?spm=2013.1.1000126.2.OPuimC
   
10. 
    
11. 
    
12. 视频网盘
    
13. https://yunpan.cn/cxxbsasRFynjQ  访问密码 0742
    
14. 
    
15. 
    
16. 
    
17. (defun c:tt();;输出PL线内的文字和PL线的起点坐标
    
18.   (vl-load-com)
    
19.   (setq ss (ssget (list (cons 0 "*POLYLINE"))))
    
20.   (setq k -1)
    
21.   (setq filetxt (open "C:\\坐标及文本.csv" "W"))
    
22.   (setq txt1 (strcat "文本内容" "," "X坐标" "," "Y坐标"))
    
23.   (write-line txt1 filetxt)
    
24.   (princ)
    
25.   (setq txtnum nil)
    
26.   (repeat (sslength ss)
    
27.     (setq ent (ssname ss (setq k (1+ k))))
    
28.     (setq plst (xlr_pljdzb ent))
    
29.     (setq X (rtos (nth 0 (car plst)) 2 3))
    
30.     (setq Y (rtos (nth 1 (car plst)) 2 3))
    
31.     (setq ss1 (ssget "WP" plst (list (cons 0 "TEXT"))))
    
32.     (if (/= ss1 nil)
    
33.       (setq txt2 (cdr (assoc 1 (entget (ssname ss1 0)))))
    
34.       (setq txt2 "")
    
35.       )
    
36.       (setq txt3 (list txt2 (list(strcat txt2 "," X "," Y))))
    
37.     (setq txtnum (cons txt3 txtnum))
    
38.     )
    
39.   (setq ss_en (vl-sort txtnum '(lambda (l1 l2) (< (car l1) (car l2)))))
    
40.   (foreach tx ss_en
    
41.     (setq tx1 (caadr tx))
    
42.     (write-line tx1 filetxt)
    
43.       (princ)
    
44.     )
    
45.   (close filetxt)
    
46.   )
    
47. 
    
48. (defun xlr_pljdzb (ename / i v lst);;获得_节点坐标
    
49.     (setq i -1)
    
50.     (while (setq v (vlax-curve-getpointatparam ename (setq i (1+ i))))
    
51.       (setq lst (cons v lst))
    
52.     )
    
53.     (reverse lst)
    
54.   )

<br /> 更多插件请加群或云盘下载<br /> http://yunpan.cn/c3iAVqYptpwj9  访问密码 cc19<br /> QQ群： 208388011<br /> <br /> <br /> CASS淘宝店<br /> https://shop144125783.taobao.com/?spm=2013.1.1000126.2.OPuimC<br /> <br /> <br /> 视频网盘<br /> https://yunpan.cn/cxxbsasRFynjQ  访问密码 0742<br /> <br /> <br /> <br /> (defun c:tt();;输出PL线内的文字和PL线的起点坐标<br />   (vl-load-com)<br />   (setq ss (ssget (list (cons 0 "*POLYLINE"))))<br />   (setq k -1)<br />   (setq filetxt (open "C:\\坐标及文本.csv" "W"))<br />   (setq txt1 (strcat "文本内容" "," "X坐标" "," "Y坐标"))<br />   (write-line txt1 filetxt)<br />   (princ)<br />   (setq txtnum nil)<br />   (repeat (sslength ss)<br />     (setq ent (ssname ss (setq k (1+ k))))<br />     (setq plst (xlr_pljdzb ent))<br />     (setq X (rtos (nth 0 (car plst)) 2 3))<br />     (setq Y (rtos (nth 1 (car plst)) 2 3))<br />     (setq ss1 (ssget "WP" plst (list (cons 0 "TEXT"))))<br />     (if (/= ss1 nil)<br />       (setq txt2 (cdr (assoc 1 (entget (ssname ss1 0)))))<br />       (setq txt2 "")<br />       )<br />       (setq txt3 (list txt2 (list(strcat txt2 "," X "," Y))))<br />     (setq txtnum (cons txt3 txtnum))<br />     )<br />   (setq ss_en (vl-sort txtnum '(lambda (l1 l2) (< (car l1) (car l2)))))<br />   (foreach tx ss_en<br />     (setq tx1 (caadr tx))<br />     (write-line tx1 filetxt)<br />       (princ)<br />     )<br />   (close filetxt)<br />   )<br /> <br /> (defun xlr_pljdzb (ename / i v lst);;获得_节点坐标<br />     (setq i -1)<br />     (while (setq v (vlax-curve-getpointatparam ename (setq i (1+ i))))<br />       (setq lst (cons v lst))<br />     )<br />     (reverse lst)<br />   )

1633712236

谢谢楼上的大神，谢谢