圆弧堆中过滤出交叉口

chenjian2159

工作中，画道路的时候，有时候道路线中含有圆弧，而道路交叉口也是圆弧，需要在一堆圆弧中找出哪些圆弧是道路交叉口的圆弧，哪些是道路线中的圆弧，交叉口圆弧的半径可能都不一样，没什么规律，道路线是根据道路中心线相两边偏移相同的距离得到的。想了很久不知道有什么好方法，请明经的高手们帮忙解决下，万分感激！！！！

q3_2006

2. (defun c:tt ( / co e el i la ss)
   
3. (defun mklaco (la co)
   
4.   (if (= (tblsearch "layer" la) nil)
   
5.     (command "layer" "m" la "c" co la "")
   
6.     (command "layer" "t" la "s" la "c" co la "")
   
7.   )
   
8. )
   
9. (mklaco "交叉口半径" 3)
   
10.         (if (setq ss (ssget "x" '((0 . "arc") (8 . "道路线"))))
    
11.         (repeat (setq i (sslength ss))
    
12.             (setq e (ssname ss (setq i (1- i)))
    
13.                     el (entget e)
    
14.             )
    
15.             (if (equal (cdr (assoc 40 el)) 20 10)
    
16.                     (entmod (subst (cons 8 "交叉口半径") (assoc 8 el) el))
    
17.             )
    
18.         )
    
19.     )
    
20. )

(defun c:tt ( / co e el i la ss)<br /> (defun mklaco (la co)<br />   (if (= (tblsearch "layer" la) nil)<br />     (command "layer" "m" la "c" co la "")<br />     (command "layer" "t" la "s" la "c" co la "")<br />   )<br /> )<br /> (mklaco "交叉口半径" 3)<br />         (if (setq ss (ssget "x" '((0 . "arc") (8 . "道路线"))))<br />         (repeat (setq i (sslength ss))<br />             (setq e (ssname ss (setq i (1- i)))<br />                     el (entget e)<br />             )<br />             (if (equal (cdr (assoc 40 el)) 20 10)<br />                     (entmod (subst (cons 8 "交叉口半径") (assoc 8 el) el))<br />             )<br />         )<br />     )<br /> )

zml84

好判断
方案1：看左右相邻。若邻居长，自身短，则是。
方案2：不看相邻，只算增长系数，即可。

q3_2006

zml84 发表于 2014-2-28 10:28
好判断
方案1：看左右相邻。若邻居长，自身短，则是。
方案2：不看相邻，只算增长系数，即可。

专业 .....

Gu_xl

1. (defun c:tt (/ ss n el dr)
   
2.   (while (setq ss (ssget '((0 . "arc"))))
   
3.     (repeat (setq n (sslength ss))
   
4.       (setq el (entget(ssname ss (setq n (1- n)))))
   
5.       (setq dr (- (cdr (assoc 51 el)) (cdr (assoc 50 el))))
   
6.       (if (< dr 0) (setq dr (+ dr pi pi)))
   
7.       (if (> dr (/ pi 3)) ;;圆心角大于60度（具体大小可根据实际情况自己设置），则认为是交叉口
   
8.         (progn
   
9.           (if (assoc 370 el)
   
10.             (setq el (subst (cons 370 40) (assoc 370 el) el))
    
11.             (setq el (append el (list (cons 370 40))))
    
12.             )
    
13.           (if (assoc 62 el)
    
14.             (setq el (subst (cons 62 3) (assoc 62 el) el))
    
15.             (setq el (append el (list (cons 62 3))))
    
16.             )
    
17.           (entmod el)
    
18.           )
    
19.         )
    
20.       )
    
21.     )
    
22.   (princ)
    
23.   )

(defun c:tt (/ ss n el dr)<br />   (while (setq ss (ssget '((0 . "arc"))))<br />     (repeat (setq n (sslength ss))<br />       (setq el (entget(ssname ss (setq n (1- n)))))<br />       (setq dr (- (cdr (assoc 51 el)) (cdr (assoc 50 el))))<br />       (if (< dr 0) (setq dr (+ dr pi pi)))<br />       (if (> dr (/ pi 3)) ;;圆心角大于60度（具体大小可根据实际情况自己设置），则认为是交叉口<br />         (progn<br />           (if (assoc 370 el)<br />             (setq el (subst (cons 370 40) (assoc 370 el) el))<br />             (setq el (append el (list (cons 370 40))))<br />             )<br />           (if (assoc 62 el)<br />             (setq el (subst (cons 62 3) (assoc 62 el) el))<br />             (setq el (append el (list (cons 62 3))))<br />             )<br />           (entmod el)<br />           )<br />         )<br />       )<br />     )<br />   (princ)<br />   )

xyp1964

2. 
   
3. ;;只适于所提供的dwg文件
   
4. 
   
5. (if (setq ss (ssget '((0 . "circle") (40 . 20)))) (sssetfirst ss ss))
   

<br /> ;;只适于所提供的dwg文件<br /> <br /> (if (setq ss (ssget '((0 . "circle") (40 . 20)))) (sssetfirst ss ss))<br />