求子程序教程

838510233

如图所下，子程序怎么用

2. (defun c:tt()
   
3.   (setq a(sr_ss 30))
   
4.   (princ a)
   
5.   )
   
6. 
   
7. (defun sr_ss(jd)
   
8.   (setq jd(* (/ pi 180) jd))
   
9.   )

(defun c:tt()<br />   (setq a(sr_ss 30))<br />   (princ a)<br />   )<br /> <br /> (defun sr_ss(jd)<br />   (setq jd(* (/ pi 180) jd))<br />   )

烟盒迷唇

很明显的啊，看不懂嘛？