怎样做一个带参数的螺纹孔图形的程序

(defun err(msg)
   (princ msg)
   (command "_.undo" "e")
   (command "u")
   (setq *error* errtmp)
   (setvar "osmode" os)
   (princ "请建立Center层!")
   (princ)
)(defun GetVal(fun msg key flag vla_tmp / val)
   (if (not (eval vla_tmp))
       (progn
           (initget key (if flag flag ""))
           (setq val (fun (strcat msg ":")))
       )
       (progn
           (initget key (if flag (1- flag) ""))
           (setq val (fun (strcat msg ":")))
           (if (not val) (setq val (eval vla_tmp)))
       )
   )
   (set vla_tmp val)
)(defun c:lw( / d d2 pt lay)
   (setvar "cmdecho" 0)
   (command "_.undo" "be")
   (setq errtmp *error*)
   (setq *error* err)
   (setq ty_tmp d_tmp)
   (setq d (getval getreal "外螺纹,输入直径或[内螺纹(I)]" "I" 7 'ty_tmp))
   (if (= d "I")
       (progn
           (setq d (getval getreal "内螺纹,输入直径" "" 7 'd_tmp))
           (setq d2 (/ d 1.1))
       )
       (setq d2 (* d 1.1))
   )
   (initget 1)
   (setq pt (getpoint "输入中心:"))   
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (command "_.circle" pt (/ d 2.0))
   (command "_.arc" "c" pt (polar pt (/ pi 18.0) (/ d2 2.0)) (polar pt (+ (/ (* pi 3.0) 2.0) (/ pi 18.0)) (/ d2 2.0)))
   (setq lay (getvar "clayer"))
   (command "_.clayer" "Center")
   (command "_.line" (polar pt (/ pi 2.0) (* 5.0 (/ d 7.0))) (polar pt (/ (* pi 3.0) 2.0) (* 5.0 (/ d 7.0))) "")
   (command "_.line" (polar pt 0 (* 5.0 (/ d 7.0))) (polar pt pi (* 5.0 (/ d 7.0))) "")
   (command "_.clayer" lay)
   (command "_.undo" "e")
   (setq *error* errtmp)
   (setvar "osmode" os)
   (princ)
)