[求助]：画弧形半圆键形

ygrzz

求高人纠错
我想画弧形半圆键形

这个弧度函数让我糊涂了
下面程序错在那里大伙帮忙看看

;; ---------------------------
(defun c:hj (/ p0 p1 dis widf disf ang1 p2 p3 p4 p5)
    (setq p0 (getpoint "\n>请指定弧心:"))
    (setq p1 (getpoint p0 "\n>>指定弧键中心点:"))
    (setq dis (distance p0 p1))
    (setq widf wid)
    (if (null widf)
        (setq widf 5)
    )
    (setq wid (getdist (strcat "\n>>>输入半圆键半径默认< " (rtos widf) " >...:")))
    (if (null wid)
        (setq wid widf)
    )
    (setq disf dis)
    (if (null disf)
        (setq disf 20)
    )
    (setq dish (getdist (strcat "\n>>>输入中心弧长默认< " (rtos disf)
                                " >... >>>: "
                        )
               )
    )
    (if (null dish)
        (setq dish disf)
    )                                  ;   (setq os (getvar "osmode"))
    (setq ang1 (abs (/ (- (* 0.5 dish) wid) dis)))
    (setq p2 (polar p0 (+ (angle p0 p1) ang1) (- dis wid)))
    (setq p3 (polar p0 (- (angle p0 p1) ang1) (- dis wid)))
    (setq p4 (polar p0 (+ (angle p0 p1) ang1) (+ dis wid)))
    (setq p5 (polar p0 (- (angle p0 p1) ang1) (+ dis wid))) ;   (setvar "osmode"
                                       ; 0)
    (command "pline" "a" "non" p2 "non" p3 "non" p5 "non" p4 "cl") ;   (setvar
                                       ; "osmode" os)
    (princ (strcat "\nok！^.^ 已完成！:" (rtos dish) "×" (rtos wid)))
    (princ)
)