怎么获得距pt点最近的文本值。

hncjddd

怎么获得距点最近的文本。

hncjddd

gzxl 发表于 2019-4-28 11:32
(1) 以点为中心，建立正方形
(2) 然后ssget "C"
(3) 如有多个文本，则取距离最近的文本

十分感谢 解决了  (setq ssg1 (ssget "c" (polar tp1 (/ pi 4) (* scal 0.0120711)) (polar tp1 (* pi 1.25) (* scal 0.0070711)) '((0 . "text"))))

gzxl

(1) 以点为中心，建立正方形
(2) 然后ssget "C"
(3) 如有多个文本，则取距离最近的文本
可以设置搜索的距离限制，重复(1)(2)(3)，有则退出循环

欢迎加入 测绘源码群548199736

烟盒迷唇

这个也不错

chwnin

这个方法不错。

轮回

gzxl 发表于 2019-4-28 11:32
(1) 以点为中心，建立正方形
(2) 然后ssget "C"
(3) 如有多个文本，则取距离最近的文本

群都没了吗？

skg123

我的处理方法，绘制多边形（接近圆圈）形成搜索半径；   
代码自

2. (setq No-j 0   j_ZDH -1
   
3.                                                                                                                         Cen npt
   
4.                                                                                                                         pt_list_ang nil
   
5.                                                                                                                 )
   
6.                                                                                                                         (repeat 36
   
7.                                                                                                                                          (setq pt_ang  (polar Cen (angtof (rtos (+ 0 (* 10  No-j)) 2 4) ) 0.5)
   
8.                                                                                                                                                    pt_list_ang (append (list pt_ang)  pt_list_ang)
   
9.                                                                                                                                         );计算搜索边界
   
10.                                                                                                                                         (setq No-j (+ 1 No-j)        )
    
11.                                                                                                                         ); End repeat
    
12.                                                                                                                         ; (princ pt_list_ang)
    
13.                                                                                                                         (setq SS_ZDH (ssget "_CP" pt_list_ang  (list(cons 0  "Mtext,text") (cons 8  "ZDH") )) );;全圈文字

(setq No-j 0   j_ZDH -1<br />                                                                                                                         Cen npt<br />                                                                                                                         pt_list_ang nil<br />                                                                                                                 )<br />                                                                                                                         (repeat 36<br />                                                                                                                                          (setq pt_ang  (polar Cen (angtof (rtos (+ 0 (* 10  No-j)) 2 4) ) 0.5) <br />                                                                                                                                                    pt_list_ang (append (list pt_ang)  pt_list_ang)<br />                                                                                                                                         );计算搜索边界<br />                                                                                                                                         (setq No-j (+ 1 No-j)        )<br />                                                                                                                         ); End repeat<br />                                                                                                                         ; (princ pt_list_ang)<br />                                                                                                                         (setq SS_ZDH (ssget "_CP" pt_list_ang  (list(cons 0  "Mtext,text") (cons 8  "ZDH") )) );;全圈文字