[求助]：求救画弧编程

wxl1981807

我编一个程，任意点取四个点，将四个点以P1ine相连，并在最短边画上
个半圆弧，最长边画两个相等的半圆。现在有问题，不能得出结果。哪位高手指点一下

(defun C:bj()
  (setvar "cmdecho" 0)
  (setq p1(getpoint "n/第一点 point"))
  (setq p2(getpoint "n/第二点 point"))
  (setq p3(getpoint "n/第三点 point"))
  (setq p4(getpoint "n/第四点 point"))
  (command "line" p1 p2 p3 p4 "c")
  (setq s1 (distance p1 p2))
  (setq s2 (distance p2 p3))
  (setq s3 (distance p3 p4))
  (setq s4 (distance p4 p1))
  (setq cc ())
  (setq cc (cons(list s1 p1 p2) cc))
  (setq cc (cons(list s2 p2 p3) cc))
  (setq cc (cons(list s3 p3 p4) cc))
  (setq cc (cons(list s4 p4 p1) cc))
  (setq smax (max s1 s2 s3 s4))
  (setq smin (max s1 s2 s3 s4))
  (setq a1 (assoc smax cc))
  (setq b1 (cadr a1))
  (setq b2 (caddr a1))
  (setq b3 (polar b1 (angle b2 b1) (/a1 2)))
  (setq a2 (assoc smin cc))
  (setq b4 (cadr a2))
  (setq b5 (caddr a2))
  (command "arc" b1 "e" b3 "a" 180)
  (command "arc" b3 "e" b2 "a" 180)
  (command "arc" b4 "e" b5 "a" 180)
  )

zxq0220

[php]
(defun C:bj()
(setvar "cmdecho" 0)
(setq p1 (getpoint "n/第一点 point"))
(setq p2 (getpoint "n/第二点 point"))
(setq p3 (getpoint "n/第三点 point"))
(setq p4 (getpoint "n/第四点 point"))
(command "line" p1 p2 p3 p4 "c")
(setq s1 (distance p1 p2))
(setq s2 (distance p2 p3))
(setq s3 (distance p3 p4))
(setq s4 (distance p4 p1))
(setq cc (list))
(setq cc (cons (list s1 p1 p2) cc))
(setq cc (cons (list s2 p2 p3) cc))
(setq cc (cons (list s3 p3 p4) cc))
(setq cc (cons (list s4 p4 p1) cc))
(setq smax (max s1 s2 s3 s4))
(setq smin (min s1 s2 s3 s4));<--这里用了MAX
(setq a1 (assoc smax cc))
(setq b1 (cadr a1))
(setq b2 (caddr a1))
(setq b3 (polar b1 (angle b1 b2) (/ smax 2)));<--这里用了A1且A1与除号间无空格
(setq a2 (assoc smin cc)); ^--这里B1和B2反了
(setq b4 (cadr a2))
(setq b5 (caddr a2))
(command "arc" b1 "e" b3 "a" 180)
(command "arc" b3 "e" b2 "a" 180)
(command "arc" b4 "e" b5 "a" 180)
)
[/php]

xyp1964

2. [FONT=courier new]
   
3. ;|任意点取四个点，将四个点以Pline相连，并在最
   
4. 短边画上个半圆弧，最长边画两个相等的半圆|;
   
5. (defun C:test ()
   
6.   (setq        os (getvar "osmode")
   
7.         ce (getvar "cmdecho")
   
8.   )
   
9.   (setvar "cmdecho" 0)
   
10.   (setq        p1   (getpoint "\n第一点 point")
    
11.         p2   (getpoint p1 "\n第二点 point")
    
12.         p3   (getpoint p2 "\n第三点 point")
    
13.         p4   (getpoint p3 "\n第四点 point")
    
14.         s1   (distance p1 p2)
    
15.         s2   (distance p2 p3)
    
16.         s3   (distance p3 p4)
    
17.         s4   (distance p4 p1)
    
18.         cc   '()
    
19.         cc   (cons (list s1 p1 p2) cc)
    
20.         cc   (cons (list s2 p2 p3) cc)
    
21.         cc   (cons (list s3 p3 p4) cc)
    
22.         cc   (cons (list s4 p4 p1) cc)
    
23.         smax (max s1 s2 s3 s4)
    
24.         smin (min s1 s2 s3 s4)
    
25.         a1   (assoc smax cc)
    
26.         b1   (cadr a1)
    
27.         b2   (caddr a1)
    
28.         b3   (polar b1 (angle b1 b2) (/ (car a1) 2.0))
    
29.         a2   (assoc smin cc)
    
30.         b4   (cadr a2)
    
31.         b5   (caddr a2)
    
32.   )
    
33.   (setvar "osmode" 0)
    
34.   (command "pline" p1 p2 p3 p4 "c")
    
35.   (command "arc" b1 "e" b3 "a" 180)
    
36.   (command "arc" b3 "e" b2 "a" 180)
    
37.   (command "arc" b4 "e" b5 "a" 180)
    
38.   (setvar "osmode" os)
    
39.   (setvar "cmdecho" ce)
    
40.   (princ)
    
41. )
    
42. [/FONT]

[FONT=courier new]<br /> ;|任意点取四个点，将四个点以Pline相连，并在最<br /> 短边画上个半圆弧，最长边画两个相等的半圆|;<br /> (defun C:test ()<br />   (setq        os (getvar "osmode")<br />         ce (getvar "cmdecho")<br />   )<br />   (setvar "cmdecho" 0)<br />   (setq        p1   (getpoint "\n第一点 point")<br />         p2   (getpoint p1 "\n第二点 point")<br />         p3   (getpoint p2 "\n第三点 point")<br />         p4   (getpoint p3 "\n第四点 point")<br />         s1   (distance p1 p2)<br />         s2   (distance p2 p3)<br />         s3   (distance p3 p4)<br />         s4   (distance p4 p1)<br />         cc   '()<br />         cc   (cons (list s1 p1 p2) cc)<br />         cc   (cons (list s2 p2 p3) cc)<br />         cc   (cons (list s3 p3 p4) cc)<br />         cc   (cons (list s4 p4 p1) cc)<br />         smax (max s1 s2 s3 s4)<br />         smin (min s1 s2 s3 s4)<br />         a1   (assoc smax cc)<br />         b1   (cadr a1)<br />         b2   (caddr a1)<br />         b3   (polar b1 (angle b1 b2) (/ (car a1) 2.0))<br />         a2   (assoc smin cc)<br />         b4   (cadr a2)<br />         b5   (caddr a2)<br />   )<br />   (setvar "osmode" 0)<br />   (command "pline" p1 p2 p3 p4 "c")<br />   (command "arc" b1 "e" b3 "a" 180)<br />   (command "arc" b3 "e" b2 "a" 180)<br />   (command "arc" b4 "e" b5 "a" 180)<br />   (setvar "osmode" os)<br />   (setvar "cmdecho" ce)<br />   (princ)<br /> )<br /> [/FONT]

wxl1981807

谢谢两位高手，特别是二楼的大侠还清楚的把我错的地方都标出来，三楼的大侠又把我程序优化了，谢谢两位