[求助]：合并线段是不是只能用于正交UCS,

lzhksoft

在非正交坐标系里面合并的2个线段会消失

eachy

最初由 lzhksoft 发布
[B]在非正交坐标系里面合并的2个线段会消失 [/B]

\Lisp\Obj_curve.lsp 文件中，以下部分增加蓝色代码即可，下版工具箱更正。

2. 
   
3. (defun c:Curve_JOIN (/ OBJ1 OBJ2 wmend2)
   
4.   (defun wmend2 (e0 e1 / mm mma 2pi p1 p2 p3 p4 q1 q2 qa1 qa2 r a1 a2 d d1
   
5.                     tfla tfs
   
6.                 )
   
7.     (if (not (equal (car e0) (car e1)))
   
8.       (progn
   
9.         (setq mm 0.1
   
10.               mma -0.1
    
11.               2pi (+ pi pi)
    
12.         )
    
13.         (xdrx_setenttodb (car e0))
    
14.         (if (setq p1 (xdrx_getentdxf 10)
    
15.                   tfla (= "LINE" (xdrx_getentdxf 0))
    
16.             )
    
17.           (setq p2 (xdrx_getentdxf 11))
    
18.           (setq r (xdrx_getentdxf 40)
    
19.                 a1 (xdrx_getentdxf 50)
    
20.                 a2 (xdrx_getentdxf 51)
    
21.           )
    
22.         )
    
23.         (xdrx_setenttodb (car e1))
    
24.         (cond
    
25.           ((and
    
26.              tfla
    
27.              (= "LINE" (xdrx_getentdxf 0))
    
28.              (< (abs (xdrx_p2ldist (setq q1 (xdrx_getentdxf 10)
    
29.                                          q2 (xdrx_getentdxf 11)
    
30.                                    )
    
31.                                    p1 p2
    
32.                      )
    
33.                 ) mm
    
34.              )
    
35.              (< (abs (xdrx_p2ldist q1 p1 p2)) mm)
    
36.            )
    
37.             (setq d 0)
    
38.             (mapcar
    
39.               '(lambda (pt1 pt2)
    
40.                  (if (> (setq d1 (distance pt1 pt2))
    
41.                         d
    
42.                      )
    
43.                    (setq d d1
    
44.                          p3 pt1
    
45.                          p4 pt2
    
46.                    )
    
47.                  )
    
48.                )
    
49.               (list p1 p1 p1 p2 p2 q1)
    
50.               (list q1 q2 p2 q1 q2 q2)
    
51.             )
    
52.             (entdel (car e0))
    
53.             (xdrx_modent 10 p3 11 p4)
    
54.           )
    
55.           ((and
    
56.              (not tfla)
    
57.              (= "ARC" (xdrx_getentdxf 0))
    
58.              (equal (xdrx_getentdxf 10) p1 mm)
    
59.              (equal (xdrx_getentdxf 40) r mm)
    
60.            )
    
61.             (setq a (angle p1 (last e1))
    
62.                   qa1 (- a (xdrx_getentdxf 50))
    
63.                   qa2 (- (xdrx_getentdxf 51) a)
    
64.                   tfs (> (if (> qa1 mma)
    
65.                            qa1
    
66.                            (+ 2pi qa1)
    
67.                          ) (if (> qa2 mma)
    
68.                              qa2
    
69.                              (+ 2pi qa2)
    
70.                            )
    
71.                       )
    
72.             )
    
73.             (entdel (car e0))
    
74.             (if tfs
    
75.               (xdrx_modent 51 a2)
    
76.               (xdrx_modent 50 a1)
    
77.             )
    
78.           )
    
79.           ((command ".fillet" "r" 0 ".fillet" e0 e1))
    
80.         )
    
81.       )
    
82.     )
    
83.   )
    
84.   (if (and
    
85.         (setq OBJ1 (xdrx_entsel "\n请拾取第一根线(LINE)或弧(ARC) <退出>:" '
    
86.                                 ((0 . "line,arc"))
    
87.                    )
    
88.         )
    
89.         (setq OBJ2 (xdrx_entsel "\n再拾取第二根线(LINE)或弧(ARC)进行连接 <退出>: "
    
90.                                 '((0 . "line,arc"))
    
91.                    )
    
92.         )
    
93.       )
    
94.     (progn
    
95.       (xdrx_begin)
    
96.       [COLOR=BLUE](xdrx_ucson)[/COLOR]
    
97.       (wmend2 OBJ1 OBJ2)
    
98.       [COLOR=BLUE]((xdrx_ucsoff)[/COLOR]
    
99. 
    
100.       (xdrx_end)
     
101.     )
     
102.   )
     
103.   (princ)
     
104. )

<br /> (defun c:Curve_JOIN (/ OBJ1 OBJ2 wmend2)<br />   (defun wmend2 (e0 e1 / mm mma 2pi p1 p2 p3 p4 q1 q2 qa1 qa2 r a1 a2 d d1<br />                     tfla tfs<br />                 )<br />     (if (not (equal (car e0) (car e1)))<br />       (progn<br />         (setq mm 0.1<br />               mma -0.1<br />               2pi (+ pi pi)<br />         )<br />         (xdrx_setenttodb (car e0))<br />         (if (setq p1 (xdrx_getentdxf 10)<br />                   tfla (= "LINE" (xdrx_getentdxf 0))<br />             )<br />           (setq p2 (xdrx_getentdxf 11))<br />           (setq r (xdrx_getentdxf 40)<br />                 a1 (xdrx_getentdxf 50)<br />                 a2 (xdrx_getentdxf 51)<br />           )<br />         )<br />         (xdrx_setenttodb (car e1))<br />         (cond<br />           ((and<br />              tfla<br />              (= "LINE" (xdrx_getentdxf 0))<br />              (< (abs (xdrx_p2ldist (setq q1 (xdrx_getentdxf 10)<br />                                          q2 (xdrx_getentdxf 11)<br />                                    )<br />                                    p1 p2<br />                      )<br />                 ) mm<br />              )<br />              (< (abs (xdrx_p2ldist q1 p1 p2)) mm)<br />            )<br />             (setq d 0)<br />             (mapcar<br />               '(lambda (pt1 pt2)<br />                  (if (> (setq d1 (distance pt1 pt2))<br />                         d<br />                      )<br />                    (setq d d1<br />                          p3 pt1<br />                          p4 pt2<br />                    )<br />                  )<br />                )<br />               (list p1 p1 p1 p2 p2 q1)<br />               (list q1 q2 p2 q1 q2 q2)<br />             )<br />             (entdel (car e0))<br />             (xdrx_modent 10 p3 11 p4)<br />           )<br />           ((and<br />              (not tfla)<br />              (= "ARC" (xdrx_getentdxf 0))<br />              (equal (xdrx_getentdxf 10) p1 mm)<br />              (equal (xdrx_getentdxf 40) r mm)<br />            )<br />             (setq a (angle p1 (last e1))<br />                   qa1 (- a (xdrx_getentdxf 50))<br />                   qa2 (- (xdrx_getentdxf 51) a)<br />                   tfs (> (if (> qa1 mma)<br />                            qa1<br />                            (+ 2pi qa1)<br />                          ) (if (> qa2 mma)<br />                              qa2<br />                              (+ 2pi qa2)<br />                            )<br />                       )<br />             )<br />             (entdel (car e0))<br />             (if tfs<br />               (xdrx_modent 51 a2)<br />               (xdrx_modent 50 a1)<br />             )<br />           )<br />           ((command ".fillet" "r" 0 ".fillet" e0 e1))<br />         )<br />       )<br />     )<br />   )<br />   (if (and<br />         (setq OBJ1 (xdrx_entsel "\n请拾取第一根线(LINE)或弧(ARC) <退出>:" '<br />                                 ((0 . "line,arc"))<br />                    )<br />         )<br />         (setq OBJ2 (xdrx_entsel "\n再拾取第二根线(LINE)或弧(ARC)进行连接 <退出>: "<br />                                 '((0 . "line,arc"))<br />                    )<br />         )<br />       )<br />     (progn<br />       (xdrx_begin)<br />       [COLOR=BLUE](xdrx_ucson)[/COLOR]<br />       (wmend2 OBJ1 OBJ2)<br />       [COLOR=BLUE]((xdrx_ucsoff)[/COLOR]<br /> <br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )