我的程序错在那里?

gdut_2005s

运行下列程序加载后出现  

; 错误: 参数太多

请问是什么原因??

(defun c:get_pn()
  (vl-load-com)
  (setq acad_document
  (vla-get-activedocument (vlax-get-acad-object))
 )
  (while (not (setq en1 (entsel \n"指定一个图形:")))
    (princ "\n没有指定任何图形对象，请重新指定对象...")
    );while end
  (setq handles (cdr (assoc 5 (entget (car en1))))
 activex_err (vl-catch-all-apply 'vla-getboundingbox
      (list (vla-handletoobject acad_document handles) 'llp 'urp)
        )
 )
  (if (vl-catch-all-error-p activex_err)
    (progn (alert (strcat "<>使用Activex方法出错!"
     "\n<>所选对象范围无限"
     "\n<>请重新指定对象...")
    )
      (c:get_p)
      );progn end
    (progn (princ "\n包含对象的方框角点:")
      (princ (setq llp (vlax-safearray->list llp)))
      (princ "")
      (princ (setq urp (vlax-safearray->list urp)))
      ;绘制方框
      (grdraw llp (list (car urp) (cadr llp)) 2 1)
      (grdraw (list (car urp) (cadr llp)) urp 2 1)
      (grdraw urp (list (car llp) (cadr urp)) 2 1)
      (grdraw (list (car llp) (cadr urp)) llp 2 1)
      );progn end
    );if end
  )
(defun c:get_p()
  (vl-load-com)
  (setq acad_document
  (vla-get-activedocument (vlax-get-acad-object))
 )
  (setq handles (cdr (assoc 5 (entget (car (entsel "\请指定一个图形:"))))))
  (vla-getboundingbox
    (vla-handletoobject acad_document handles) 'llp 'urp)
  (princ "\n包含对象的方框角点:")
  (princ (vlax-safearray->list llp))
  (princ "")
  (princ (vlax-safearray->list urp))
  (princ)
  )

王咣生

(while (not (setq en1 (entsel "\n指定一个图形:"))) ;字符串错了
    (princ "\n没有指定任何图形对象，请重新指定对象...")
    );while end