[LISP函数]：请问以下lisp程序错在哪？运行不了啊！

yinzhenyu

目的：找出矩形框的左下、右上点，然后连一线。
出错信息： ; 错误: 参数类型错误: lentityp <Selection set: 6>

[PHP]
;;取得物体的包围盒：（返回左下角，右上角坐标）
;;返回一个单独图元的范围
(defun ax:GetBoundingBox (ss / ll ur)
           (vla-getboundingbox (vlax-ename->vla-object ss) 'll 'ur)
           (mapcar 'vlax-safearray->list (list ll ur))
)

(defun c:pd (/ bd  zx ys ent)
   (setq ent (ssget))
   (setq bd (ax:getboundingbox ent))
                (setq x1 (caar bd)
                      x2 (caadr bd)
                      y1 (cadar bd)
                      y2 (cadadr bd)
                                     )
                (setq zx (list  x1 y1))
                (setq ys (list  x2 y2))
                (command "line" zx  ys)
   (princ)
)
[/PHP]

我是autocad2002的。

Underway

(setq pts (acet-geom-ss-extents ent T))
   (setvar "OsMode" 0)
   (vl-cmdf "line" (car pts) (cadr pts) "")

Tested 2004; Sorry No 2002。

zml84

y1 (cadar bd)
y2 (cadadr bd)

CADADR 函数不正确！