[求助]：请问子程序可以套用子程序吗?

yinzhenyu

以下是一个坐标排序子程序，套用了另一个获取图框顶点的子程序（见底部），但运行过程提示“错误: 参数类型错误:”，不知错在哪？

排序子程序：
[php](defun zhy_sort_se (se xory / newse nn index aal name lp cop item newsort n1 ind  ntt ty ll ur )
  (setq newse nil)
  (setq nn (sslength se))
  (setq index 0)
  (setq aal '())
  (repeat nn
    (setq name (ssname se index))
   
    (setq lp (entget name))
    (if        (or (= xory "-Y") (= xory "Y"))
      (setq coy (cadar (ax:GetBoundingBox lp)))
    )
    (if        (or (= xory "-X") (= xory "X"))
      (setq coy (caar (ax:GetBoundingBox lp)))
    )
    (if        (or (= xory "-XY") (= xory "XY"))
      (setq coy (+ (caar (ax:GetBoundingBox lp)) (cadar (ax:GetBoundingBox lp))))
    )   
    (setq item (list coy (cdr (assoc 5 lp))))
    (setq aal (cons item aal))
    (setq index (1+ index))
  )

  (if (= (substr xory 1 1) "-")
          (setq        newsort
                 (vl-sort aal
                          (function (lambda (e1 e2)
                                      (< (car e1) (car e2))
                                    )
                          )
                 )
          )
   
          (setq        newsort
                 (vl-sort aal
                          (function (lambda (e1 e2)
                                      (> (car e1) (car e2))
                                    )
                          )
                 )
          )
  )
   
  (setq n1 (length newsort))
  (setq ind 0)
  (repeat n1
    (setq ntt (nth ind newsort))
    (setq ind (1+ ind))
    (setq ty (handent (cadr ntt)))
    (if        (/= ty nil)
      (if (= newse nil)
        (setq newse (ssadd ty))
        (setq newse (ssadd ty newse))
      )
    )
  )
)
[/php]

获取图框顶点的子程序：
[php](defun ax:GetBoundingBox (sss / ll ur)
     (vla-getboundingbox (vlax-ename->vla-object sss) 'll 'ur)
     (mapcar 'vlax-safearray->list (list ll ur))
   )
[/php]

fsxm

(setq lp (entget name))   ！lp是一个表
(defun ax:GetBoundingBox (sss / ll ur)  ！sss要求是lisp图元
     (vla-getboundingbox (vlax-ename->vla-object sss) 'll 'ur)
     (mapcar 'vlax-safearray->list (list ll ur))
   )
(ax:GetBoundingBox lp) ！所以：“错误: 参数类型错误:”

yinzhenyu

谢谢楼上的，知道了。
我还想知道 (setq coy (+ (caar (ax:GetBoundingBox lp)) (cadar (ax:GetBoundingBox lp)))) 得出来是什么结果？我试过得出一个类似-224096.0-224096.0这样的数字，没什么意思，因此无法排序！