[求助]如何在两个闭合图形间搭桥？

ZZXXQQ

试一下下面的程序，看看能否满足楼主的要求。

2. (DEFUN C:FBRIDGE ()
3. (SETVAR "CMDECHO" 0)
4. (COMMAND ".UNDO" "BE")
5. (SETQ W (GETDIST "\nWidth of Bridge <10> : ")
6.       W (IF W W 10)
7.       W05 (* W 0.5)
8.       OLDS (GETVAR "OSMODE"))
9. (SETVAR "OSMODE" 512)
10. (SETQ PT1 (GETPOINT "\nFirst Point 第一点 :"))
11. (SETQ PT2 (GETPOINT PT1 "\nSecond Point 第二点 :"))
12. (SETVAR "OSMODE" 0)
13. (SETQ A (+ (ANGLE PT1 PT2) (/ PI 2))
14.       PT3 (POLAR PT1 A (- W05))
15.       PT4 (POLAR PT1 A W05)
16.       PT5 (POLAR PT2 A (- W05))
17.       PT6 (POLAR PT2 A W05))
18. (COMMAND "XLINE" PT3 PT5 "") (SETQ E1 (ENTLAST))
19. (COMMAND "XLINE" PT4 PT6 "") (SETQ E2 (ENTLAST))
20. (COMMAND "TRIM" E1 E2 "" PT1 PT2 "")
21. (COMMAND "ERASE" E1 E2 "")
22. (SETVAR "OSMODE" 1)
23. (COMMAND "LINE" PT3 PT5 "" "LINE" PT4 PT6 "")
24. (COMMAND ".UNDO" "E")
25. (SETVAR "OSMODE" OLDS)
26. (SETVAR "CMDECHO" 1)
27. (PRINC)
28. )
29. (PRINC)

复制代码