[討論]副程式裡呼叫其他副程式~ 我寫得有問題嗎?

請問~副程式裡呼叫其他副程式~
我寫得有問題嗎?
因為到主程式到副程式一都可以順利完成
可是副程式一裡~我呼叫了副程式二
結果就出不來了~
可以幫我看一下~
我哪裡寫得有問題嗎?
謝謝~
(defun c:atext-repeat()
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq rr (getreal "\n弧半徑: "))
(setq n 0)
(prompt"\n<<框選需要畫弧的線>>")
(setq ss (ssget '((8 . "TEXT") (0 . "line"))))
(repeat (sslength ss)
 (setq ssn (ssname ss n))
 (setq ssdata (entget ssn))
 (atext_arc)
 (setq n(+ 1 n))
);repeat end
(setvar "osmode" 1)
 (prin1)
 )
;副程式一
(defun rtd (a) (* a (/ 180 pi)))
(defun atext_arc()
 (setq pts (cdr (assoc 10 ssdata)))
 (setq pte (cdr (assoc 11 ssdata)))
 (command "arc" pte "e" pts "r" rr)
 (arc_cen)
 (prin1)
)
;;副程式二
(defun arc_cen()
(setq e0 (entlast))
(setq e1 (entget e0))
(setq c1 (cdr (assoc 10 e1)) ; center point
     a0 (cdr (assoc 50 e1)) ; start arc angle
     a1 (cdr (assoc 51 e1)) ; end arc angle
     i1 (if (> a1 a0) ; included angle
            (- a1 a0)
            (+ a1 (- (* pi 2) a0))
        )
 ) ; end SETQ
(prin1)
)

把副程式一與副程式二合併不是比較單純 ?

我試試看~謝謝你~

(defun c:atext-repeat()
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq rr (getreal "\n弧半徑: "))
(setq n 0)
(prompt"\n<<框選需要畫弧的線>>")
(setq ss (ssget '((8 . "TEXT") (0 . "line"))))
(repeat (sslength ss)
(setq ssn (ssname ss n))
(setq ssdata (entget ssn))
(atext_arc)
(setq n(+ 1 n))
);repeat end
(setvar "osmode" 1)
(prin1)
)
;副程式一
(defun rtd (a) (* a (/ 180 pi)))
(defun atext_arc()
(setq pts (cdr (assoc 10 ssdata)))
(setq pte (cdr (assoc 11 ssdata)))
(command "arc" pte "e" pts "r" rr)
(setq e0 (entlast))
(setq e1 (entget e0))
(setq c1 (cdr (assoc 10 e1)) ; center point
a0 (cdr (assoc 50 e1)) ; start arc angle
a1 (cdr (assoc 51 e1)) ; end arc angle
i1 (if (> a1 a0) ; included angle
(- a1 a0)
(+ a1 (- (* pi 2) a0))
)
p1 (osnap (cadr e0) "end") ; start point pick
p2 (polar c1 a1 r1) ; end point arc
) ; end SETQ
(prin1)
)

我試了~可是加了之後~前面執行畫弧的部分就沒辦法正確執行了~

(command "arc" pte "e" pts "r" rr)
請問一下由指定的弧起點+弧終點+指定半徑，可以劃出一條弧嗎?