[求助]如何在很多线LINE,ARC中自动找出条件相同的线合并成一条线？

hkzwsy

条件：
LINE 只要在同一条直线上多条直线
合并成一条直线
ARC 圆心相同半径样的多条弧合并成一条弧

meflying

如果两条直线中间有空隙，是否要延长将空隙填上？
ARC就更无法确定了，如果有空隙，就会有两个，要填该填哪一个呢？

hkzwsy

LINE可以通过计算4个点的距离进行比较得距离最长2点合并成一条直线
ARC可以通过计算4个点的周长进行比较得财最长2点合并合并成一条弧
问题是怎样删除其中一个图元，并且更新另外一个图元来和其他图元继续比较

meflying

我的话你好象一点的没看，问题是两个对象如果不相互连接，比如说中间是断开的，如何处理？

hkzwsy

中间断开只要小于或等于10MM之间都要合成一条线

Ea

对直线
Pedit -〉m -〉选择 -〉y -〉J -〉输入合并距离

或者

2. (defun l2pl (l_name / s2 n e)
   
3.   (setq        s2 (ssget (list        '(-4 . "<AND")
   
4.                         '(0 . "LINE,*POLYLINE,ARC")
   
5.                         (cons 8 l_name)
   
6.                         '(-4 . "<NOT")
   
7.                         '(-4 . "<AND")
   
8.                         '
   
9.                          (0 . "*POLYLINE")
   
10.                         '(70 . 1)
    
11.                         '(-4 . "AND>")
    
12.                         '
    
13.                          (-4 . "NOT>")
    
14.                         '(-4 . "AND>")
    
15.                   )
    
16.            )
    
17.   )
    
18.   (if s2
    
19.     (progn
    
20.       (setq n (sslength s2))
    
21.       (setq i 0)
    
22.       (repeat n
    
23.         (if (setq e (ssname s2 i))
    
24.           (progn
    
25.             (if        (wcmatch (cdr (assoc 0 (entget e))) "*POLYLINE")
    
26.               (command ".pedit" e "j" s2 "" "")
    
27.               (command ".pedit" e "y" "j" s2 "" "")
    
28.             )
    
29.             (if        (= (cdr (assoc 70 (entget e))) 1)
    
30.               (progn
    
31.                 (ssdel e s0)
    
32.                 (setq n (1- n))
    
33.               )
    
34.             )
    
35.           )
    
36.         )
    
37.         (setq i (1+ i))
    
38.       )
    
39.     )
    
40.   )
    
41. )
    
42. (defun C:C_L2PL        ()
    
43.   (prompt "\n请选择要连接成POLYLINE的LINE(线)和ARC(弧)<退出>:"
    
44.   )
    
45.   (l2pl "*")
    
46.   (princ)
    
47. )

(defun l2pl (l_name / s2 n e)<br />   (setq        s2 (ssget (list        '(-4 . "<AND")<br />                         '(0 . "LINE,*POLYLINE,ARC")<br />                         (cons 8 l_name)<br />                         '(-4 . "<NOT")<br />                         '(-4 . "<AND")<br />                         '<br />                          (0 . "*POLYLINE")<br />                         '(70 . 1)<br />                         '(-4 . "AND>")<br />                         '<br />                          (-4 . "NOT>")<br />                         '(-4 . "AND>")<br />                   )<br />            )<br />   )<br />   (if s2<br />     (progn<br />       (setq n (sslength s2))<br />       (setq i 0)<br />       (repeat n<br />         (if (setq e (ssname s2 i))<br />           (progn<br />             (if        (wcmatch (cdr (assoc 0 (entget e))) "*POLYLINE")<br />               (command ".pedit" e "j" s2 "" "")<br />               (command ".pedit" e "y" "j" s2 "" "")<br />             )<br />             (if        (= (cdr (assoc 70 (entget e))) 1)<br />               (progn<br />                 (ssdel e s0)<br />                 (setq n (1- n))<br />               )<br />             )<br />           )<br />         )<br />         (setq i (1+ i))<br />       )<br />     )<br />   )<br /> )<br /> (defun C:C_L2PL        ()<br />   (prompt "\n请选择要连接成POLYLINE的LINE(线)和ARC(弧)<退出>:"<br />   )<br />   (l2pl "*")<br />   (princ)<br /> )

圆弧要编程了

龙龙仔

;;EA兄的程序有些小問題,改了一下!

(defun L2PL_LAI        (L_NAME / S2 E I)
  (setq        S2 (ssget (list        '(-4 . "<AND")
                        '(0 . "LINE,*POLYLINE,ARC")
                        (cons 8 L_NAME)
                        '(-4 . "<NOT")
                        '(-4 . "<AND")
                        '(0 . "*POLYLINE")
                        '(70 . 1)
                        '(-4 . "AND>")
                        '(-4 . "NOT>")
                        '(-4 . "AND>")
                  )
           )
  )
  (if S2
    (progn
      (setq N 0)
      (repeat (sslength S2)
        (if (entget (setq E (ssname S2 N)))
          (if (wcmatch (cdr (assoc 0 (entget E))) "*POLYLINE")
            (command ".pedit" E "j" S2 "" "")
            (command ".pedit" E "y" "j" S2 "" "")
          )
        )
        (setq N (1+ N))
      )
    )
  )
)

(defun C:C_L2PL_LAI ()
  (prompt "\n請選擇要連接成POLYLINE的LINE(線)和ARC(弧)<退出>:"
  )
  (L2PL_LAI "*")
  (princ)
)