给定起终点，如何提取线段连线关系表

itoboy

如图两两点号间线段是独立的，可根据线段属性提取到分段连线关系表("RQ28" "RQ27" "RQ27" "RQ22" "RQ22" "RQ21" "RQ24" "RQ27" "RQ25" "RQ24" "RQ26" "RQ25" "RQ24" "RQ20")或(("RQ28" "RQ27") ( "RQ27" "RQ22") ( "RQ22" "RQ21") ( "RQ24" "RQ27") ( "RQ25" "RQ24") ( "RQ26" "RQ25") ("RQ24" "RQ20"))，给定起点RQ26，终点RQ21，如何计算得到连续线段连线关系表（"RQ26" "RQ25" "RQ24" "RQ27" "RQ22" "RQ21"），请大神帮忙

vectra

1. (setq lst '(("RQ28" "RQ27")
   
2.             ("RQ27" "RQ22")
   
3.             ("RQ22" "RQ21")
   
4.             ("RQ24" "RQ27")
   
5.             ("RQ25" "RQ24")
   
6.             ("RQ26" "RQ25")
   
7.             ("RQ24" "RQ20")
   
8.            )
   
9. )
   
10. 
    
11. ;; (getpath "RQ26" "RQ21")
    
12. (defun getpath (start end / next PD)
    
13.   (if (null path)
    
14.     (setq path (list start))
    
15.     (setq path (cons start path))
    
16.   )
    
17. 
    
18.   (if (= start end)
    
19.     (setq lst nil)
    
20.     (if        lst
    
21.       (progn
    
22.         (if (setq next (getnext start))
    
23.           (cond
    
24.             ((= 1 (length next))
    
25.              (getpath (car next) end)
    
26.             )
    
27.             ((> (length next) 1)
    
28.              (setq pd (length path))
    
29.              (while next
    
30.                (getpath (car next) end)
    
31.                
    
32.                (setq next (cdr next))
    
33.                ;; 路径回退到分支处
    
34.                (while (and (/= end (car path)) (> (length path) pd))
    
35.                  (setq path (cdr path))
    
36.                )
    
37.              )
    
38.             )
    
39.           )
    
40.         )
    
41.       )
    
42.     )
    
43.   )
    
44. )
    
45. 
    
46. 
    
47. ;; (getnext "RQ26")
    
48. (defun getnext (s / next)
    
49.   (setq next (vl-remove-if-not '(lambda (e) (member s e)) lst))
    
50. 
    
51.   ;; 总路径表中移除查到的项防止路径返回
    
52.   (setq lst (vl-remove-if '(lambda (e) (member e next)) lst))
    
53. 
    
54.   (if next
    
55.     (mapcar '(lambda (e1) (car (vl-remove-if '(lambda (e) (= s e)) e1)))
    
56.             next
    
57.     )
    
58.   )
    
59. )
    
60. 
    
61. 
    
62. ;;;_$ (findpath "RQ26" "RQ21" lst)
    
63. (defun findpath        (start end lst / path)
    
64.   (getpath start end)
    
65.   (reverse path)
    
66. )
    

(setq lst '(("RQ28" "RQ27")<br />             ("RQ27" "RQ22")<br />             ("RQ22" "RQ21")<br />             ("RQ24" "RQ27")<br />             ("RQ25" "RQ24")<br />             ("RQ26" "RQ25")<br />             ("RQ24" "RQ20")<br />            )<br /> )<br /> <br /> ;; (getpath "RQ26" "RQ21")<br /> (defun getpath (start end / next PD)<br />   (if (null path)<br />     (setq path (list start))<br />     (setq path (cons start path))<br />   )<br /> <br />   (if (= start end)<br />     (setq lst nil)<br />     (if        lst<br />       (progn<br />         (if (setq next (getnext start))<br />           (cond<br />             ((= 1 (length next))<br />              (getpath (car next) end)<br />             )<br />             ((> (length next) 1)<br />              (setq pd (length path))<br />              (while next<br />                (getpath (car next) end)<br />                <br />                (setq next (cdr next))<br />                ;; 路径回退到分支处<br />                (while (and (/= end (car path)) (> (length path) pd))<br />                  (setq path (cdr path))<br />                )<br />              )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br /> )<br /> <br /> <br /> ;; (getnext "RQ26")<br /> (defun getnext (s / next)<br />   (setq next (vl-remove-if-not '(lambda (e) (member s e)) lst))<br /> <br />   ;; 总路径表中移除查到的项防止路径返回<br />   (setq lst (vl-remove-if '(lambda (e) (member e next)) lst))<br /> <br />   (if next<br />     (mapcar '(lambda (e1) (car (vl-remove-if '(lambda (e) (= s e)) e1)))<br />             next<br />     )<br />   )<br /> )<br /> <br /> <br /> ;;;_$ (findpath "RQ26" "RQ21" lst)<br /> (defun findpath        (start end lst / path)<br />   (getpath start end)<br />   (reverse path)<br /> )<br />

_$ (findpath "RQ24" "RQ28" lst)
("RQ24" "RQ27" "RQ28")
_$ (findpath "RQ22" "RQ28" lst)
("RQ22" "RQ27" "RQ28")
_$ (findpath "RQ22" "RQ26" lst)
("RQ22" "RQ27" "RQ24" "RQ25" "RQ26")
_$ (findpath "RQ26" "RQ20" lst)
("RQ26" "RQ25" "RQ24" "RQ20")
_$ (findpath "RQ26" "RQ28" lst)
("RQ26" "RQ25" "RQ24" "RQ27" "RQ28")
_$ (findpath "RQ26" "RQ21" lst)
("RQ26" "RQ25" "RQ24" "RQ27" "RQ22" "RQ21")

lisperado

10明经币？

虽然不是很了解，排列思路如下

1. (defun c:tt (/ l i s p e r a d o )
   
2.   (setq r 2.0 ) ； 设定字体比列参数 1:2
   
3.   (if (and (setq e (car (entsel "\n拾取多义线。。 ")))
   
4.            (progn (redraw e 3)
   
5.                   (princ "\n选取邻近 RQ#文字。。 ")
   
6.                   (setq s (ssget '((0 . "TEXT") (1 . "*RQ*"))))
   
7.                   )
   
8.            )
   
9.     (setq l (mapcar 'cdr
   
10.                     (vl-remove nil
    
11.                                (vl-sort        (mapcar        '(lambda (x)
    
12.                                                    (setq o (vlax-ename->vla-object x)
    
13.                                                          p (vlax-get o 'InsertionPoint)
    
14.                                                          a (vlax-curve-getclosestpointto e p)
    
15.                                                          d (distance p a)
    
16.                                                          )
    
17.                                                    (if (<= d (* (vla-get-Height o) r))
    
18.                                                      (cons (vlax-curve-getdistatpoint e a) (vlax-get o 'TextString))
    
19.                                                      )
    
20.                                                    )
    
21.                                                 (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
    
22.                                                 )
    
23.                                         '(lambda (a b) (< (car a) (car b)))
    
24.                                         )
    
25.                                )
    
26.                     )
    
27.           )
    
28.     )
    
29.   (textscr)
    
30.   l
    
31.   )
    

(defun c:tt (/ l i s p e r a d o )<br />   (setq r 2.0 ) ； 设定字体比列参数 1:2<br />   (if (and (setq e (car (entsel "\n拾取多义线。。 ")))<br />            (progn (redraw e 3)<br />                   (princ "\n选取邻近 RQ#文字。。 ")<br />                   (setq s (ssget '((0 . "TEXT") (1 . "*RQ*"))))<br />                   )<br />            )<br />     (setq l (mapcar 'cdr<br />                     (vl-remove nil<br />                                (vl-sort        (mapcar        '(lambda (x)<br />                                                    (setq o (vlax-ename->vla-object x)<br />                                                          p (vlax-get o 'InsertionPoint)<br />                                                          a (vlax-curve-getclosestpointto e p)<br />                                                          d (distance p a)<br />                                                          )<br />                                                    (if (<= d (* (vla-get-Height o) r))<br />                                                      (cons (vlax-curve-getdistatpoint e a) (vlax-get o 'TextString))<br />                                                      )<br />                                                    )<br />                                                 (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))<br />                                                 )<br />                                         '(lambda (a b) (< (car a) (car b)))<br />                                         )<br />                                )<br />                     )<br />           )<br />     )<br />   (textscr)<br />   l<br />   )<br />

但先判断是否起点RQ26，以及终点RQ21？
再reverse

itoboy

lisperado 发表于 2018-10-26 16:43
10明经币？

虽然不是很了解，排列思路如下

十分感谢你的回复，怎么提取的可以不用管哈，现在只需要对表进行计算就ok，回家后再试试你的思路

llsheng_73

线段表(("RQ28" "RQ27") ( "RQ27" "RQ23") ( "RQ22" "RQ21") ( "RQ24" "RQ27") ( "RQ25" "RQ24") ( "RQ26" "RQ25") ("RQ24" "RQ20"))和图不对应
给定起点RQ26，终点RQ21，从图上看可以得到结果（"RQ26" "RQ25" "RQ24" "RQ27" "RQ22" "RQ21"）,但是从线段表看是得不到这个结果的。。。

itoboy

llsheng_73 发表于 2018-11-1 17:06
线段表(("RQ28" "RQ27") ( "RQ27" "RQ23") ( "RQ22" "RQ21") ( "RQ24" "RQ27") ( "RQ25" "RQ24") ( "RQ26"  ...

是我发帖时的失误，后来发现本来以为改了，结果好像没有保存上，第二个应该是 ( "RQ27" "RQ22")

itoboy

vectra 发表于 2018-10-26 00:42
_$ (findpath "RQ24" "RQ28" lst)
("RQ24" "RQ27" "RQ28")
_$ (findpath "RQ22" "RQ28" lst)

万分感谢