[LISP程序]：分享/一次FILLET多条非平行线

taner

该程序有一BUG,即无法控制FILLET的方向.请高手指教！

2. [font=courier]
   
3. (defun c:ff (/ A B C D E F G H I J k)
   
4.   (command "undo" "be")
   
5.   (setq k (getvar "osmode"))
   
6.   (setvar "osmode" 0)
   
7.   (INITGET 7)
   
8.   (setq        A
   
9.          (getpoint
   
10.            "\nPLEASE SELECT THE FIRST POINT OF THE FIRST SELECTION BY FENCE:"
    
11.          )
    
12.   )
    
13.   (INITGET 7)
    
14.   (setq        B
    
15.          (getpoint
    
16.            A
    
17.            "\nPLEASE SELECT THE SECOND POINT OF THE FIRST SELECTION BY FENCE:"
    
18.          )
    
19.   )
    
20.   (INITGET 7)
    
21.   (setq        C
    
22.          (getpoint
    
23.            "\nPLEASE SELECT THE FIRST POINT OF THE SECOND SELECTION BY FENCE:"
    
24.          )
    
25.   )
    
26.   (INITGET 7)
    
27.   (setq        D
    
28.          (getpoint
    
29.            C
    
30.            "\nPLEASE SELECT THE SECOND POINT OF THE SECOND SELECTION BY FENCE:"
    
31.          )
    
32.   )
    
33.   (setq rad (getreal "\nPLEASE INPUT THE RADIUS OF FILLET:"))
    
34.   (if (numberp rad)
    
35.     (command "fillet" "r" rad "")
    
36.   )
    
37.   (SETQ E (SSGET "F" (LIST A B)))
    
38.   (SETQ F (SSGET "F" (LIST C D)))
    
39.   (SETQ I (MIN (SSLENGTH E) (SSLENGTH F)))
    
40.   (SETQ J 0)
    
41.   (WHILE (<= J I)
    
42.     (SETQ G (SSNAME E J)
    
43.           H (SSNAME F J)
    
44.     )
    
45.     (COMMAND "FILLET" G H)
    
46.     (SETQ J (1+ J))
    
47.   )
    
48.   (setvar "osmode" k)
    
49.   (command "undo" "e")
    
50.   (PRINC)
    
51. )
    
52. [/font]

[font=courier]<br /> (defun c:ff (/ A B C D E F G H I J k)<br />   (command "undo" "be")<br />   (setq k (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (INITGET 7)<br />   (setq        A<br />          (getpoint<br />            "\nPLEASE SELECT THE FIRST POINT OF THE FIRST SELECTION BY FENCE:"<br />          )<br />   )<br />   (INITGET 7)<br />   (setq        B<br />          (getpoint<br />            A<br />            "\nPLEASE SELECT THE SECOND POINT OF THE FIRST SELECTION BY FENCE:"<br />          )<br />   )<br />   (INITGET 7)<br />   (setq        C<br />          (getpoint<br />            "\nPLEASE SELECT THE FIRST POINT OF THE SECOND SELECTION BY FENCE:"<br />          )<br />   )<br />   (INITGET 7)<br />   (setq        D<br />          (getpoint<br />            C<br />            "\nPLEASE SELECT THE SECOND POINT OF THE SECOND SELECTION BY FENCE:"<br />          )<br />   )<br />   (setq rad (getreal "\nPLEASE INPUT THE RADIUS OF FILLET:"))<br />   (if (numberp rad)<br />     (command "fillet" "r" rad "")<br />   )<br />   (SETQ E (SSGET "F" (LIST A B)))<br />   (SETQ F (SSGET "F" (LIST C D)))<br />   (SETQ I (MIN (SSLENGTH E) (SSLENGTH F)))<br />   (SETQ J 0)<br />   (WHILE (<= J I)<br />     (SETQ G (SSNAME E J)<br />           H (SSNAME F J)<br />     )<br />     (COMMAND "FILLET" G H)<br />     (SETQ J (1+ J))<br />   )<br />   (setvar "osmode" k)<br />   (command "undo" "e")<br />   (PRINC)<br /> )<br /> [/font]

XDSoft

最初由 taner 发布
[B]该程序有一BUG,即无法控制FILLET的方向.请高手指教！
[code]
(defun c:ff (/ A B C D E F G H I J k)
  (command "undo" "be")
  (setq k (getvar "osmode"))
  (setvar "osmode" 0)
  (INITGET... [/B]

你能给大家截取几个图上来吗？说明下怎么不能控制方向，并且说下你希望的结果。大家讨论讨论。

taner

如附件，我本想将屏上方线段的上端与屏幕下方的线段相连，但事与愿违.
即两组线段延伸相交后，短的部分将被截除.
但是，往往我们想保留短的部分.

谢谢指教！