请帮忙编一个绘制号码球的小程序。

(defun GetVal(fun msg key flag vla_tmp / val)
   (defun GetType(var / rVal)
       (cond
           ((= (type var) 'STR) (setq rVal var))
           ((= (type var) 'INT) (setq rVal (rtos var)))
           ((= (type var) 'REAL) (setq rVal (rtos var)))
           ((= (type var) 'LIST) (setq rVal (vl-princ-to-string var)))
       )
       rVal
   )
   (if (or (not (eval vla_tmp)) (= (eval vla_tmp) ""))
       (progn
           (initget key (if flag flag ""))
           (setq val (fun (strcat "\n" msg ":")))
       )
       (progn
           (initget key (if flag (1- flag) ""))
           (setq val (fun (strcat "\n" msg ":")))
           (if (or (not val) (= val "")) (setq val (eval vla_tmp)))
       )
   )
   (set vla_tmp val)
)(defun MakeLine(pt1 pt2 / TextDxf)
   (setq TextDxf '((0 . "LINE")
       (100 . "AcDbEntity")
       (67 . 0) (410 . "Model")
       (100 . "AcDbLine")
       )
   )
   (setq TextDxf (append TextDxf (list
           (cons 10 pt1)
           (cons 11 pt2)
           ;(cons 62 color)
           '(210 0.0 0.0 1.0)
        )
    )
   )
   (entmake TextDxf)
   (princ)
)(defun MakeCircle(pt R / ptInsert TextDxf)
   (setq TextDxf '((0 . "CIRCLE") (100 . "AcDbEntity")
       (67 . 0) (410 . "Model") (8 . "标注")
       (100 . "AcDbCircle")
       )
   )
   (setq TextDxf (append TextDxf (list
           (cons 10 pt)
           (cons 40 R)
           '(210 0.0 0.0 1.0)
        )
    )
   )
   (entmake TextDxf)
   (princ)
)(defun MakeText(pt1 str textheight / TextDxf)
   (setq TextDxf '(
           (0 . "TEXT")
           (100 . "AcDbEntity")           ; 需要所有 R12 之后版本的图元
           (100 . "AcDbText")    ; 将图元标记为 MTEXT
           )
   )
   (setq TextDxf (append TextDxf (list
           (cons 10 pt1)
           (cons 1 str)
           (cons 40 textheight)
           ;(cons 7   "HZ")
        )
    )
   )
   (entmake TextDxf)
   (princ)
)(defun c:draw( / pt pt2 ent_lines ent_circles ptl2 pt_lst)
   (setq pt (getpoint "\n输入起点:"))
   (if (not TextSize)
       (setq TextSize (getvar "textsize"))
   )
   (makeline pt (polar pt 0 1))
   (setq ent_lines (entget (entlast)))
   (makecircle pt textsize)
   (setq ent_Circles (entget (entlast)))
   (prompt "\n选择球位置")
   (while (= (car (setq pt2 (grread 2 4))) 5)
       (setq pt2 (cadr pt2))
       (setq ptl2 (polar pt2 (angle pt2 pt) textsize))
       (setq ent_lines (subst (cons 11 ptl2) (assoc 11 ent_lines) ent_lines))
       (entmod ent_lines)
       (setq ent_circles (subst (cons 10 pt2) (assoc 10 ent_circles) ent_circles))
       (entmod ent_circles)
   )
   (GetVal getreal "输入球大小" "" 7 'TextSize)
   (GetVal getstring "输入文字" "" 0 'Textstring)
   (cond
       ((= (car pt2) 3)
         (setq pt2 (cadr pt2))
         (setq ptl2 (polar pt2 (angle pt2 pt) textsize))
         (setq ent_lines (subst (cons 11 ptl2) (assoc 11 ent_lines) ent_lines))
         (entmod ent_lines)
         (setq ent_circles (subst (cons 10 pt2) (assoc 10 ent_circles) ent_circles))
         (setq ent_circles (subst (cons 40 textsize) (assoc 40 ent_circles) ent_circles))
         (entmod ent_circles)
         (setq pt_lst (textbox (list '(0 . "TEXT") (cons 1 textstring) (cons 40 textsize))))
         (if (/= textstring "")
             (maketext
   (list (- (car pt2) (/ (- (caadr pt_lst) (caar pt_lst)) 2.0)) (- (cadr pt2) (/ (- (cadadr pt_lst) (cadar pt_lst)) 2.0)))
   ;(polar pt2 (angle (cadr pt_lst) (car pt_lst)) (distance (car pt_lst) (cadr pt_lst)))
   textstring
   textsize)
         )
       )
   )
   (princ)
)