请问XDRX中的某些函数没有反应啊

天若有情007

请问有大神知道XDRX中的某些函数没有反应啊？比如XDSoft老大铁中的
http://bbs.xdcad.net/thread-668002-1-1.html  xdrx_entity_TransformedCopy
就没有反应啊 ，还有一些**函数没有反应，请大神帮忙测试啊

;|
   不等比缩放
|;
(defun c:msc( / mat_scl mat0 pj scl_x scl_y ss)
   (if (and (setq ss (ssget))
            (setq pj (getpoint "\n基点<退出>:"))
            (setq scl_x (getreal "\nX比例系数<退出>:"))
            (setq scl_y (getreal "\nY比例系数<退出>:"))
       )
     (progn
        (xdrx_begin)
        (setq mat0 (xdrx_matrix_identity 3))
        (setq mat_scl ($XDLSP_Matrix_SetScale pj (list scl_x scl_y 1.0))) ;;比例变换矩阵
        (xdrx_entity_TransformedCopy ss mat_scl)
        (command ".erase" ss "")
        (xdrx_end)
     )
   )
   (princ)
)

(defun $XDLSP_Matrix_SetScale (pj scl / mat_t1 mat_t2 mat0 mat2)
  (if (and
        (= 'LIST (type scl))
        (= (length scl) 3)
      )
    (progn
      (setq mat2 (xdrx_matrix_identity 3))
      (setq mat_t1 (xdrx_matrix_settranslation mat2 (mapcar
                                                      '-
                                                      '(0 0 0)
                                                      pj
                                                    )
                   )
            mat_t2 (xdrx_matrix_settranslation mat2 (mapcar
                                                      '-
                                                      pj
                                                      '(0 0 0)
                                                    )
                   )
      )
      (setq mat0 (list (mapcar
                         '*
                         (car mat2)
                         (list (car scl) 0 0 0)
                       ) (mapcar
                           '*
                           (cadr mat2)
                           (list 0 (cadr scl) 0 0)
                         ) (mapcar
                             '*
                             (caddr mat2)
                             (list 0 0 (caddr scl) 0)
                           ) (cadddr mat2)
                 )
      )
      ($xdlsp_matrix_product (list mat_t2 mat0 mat_t1))
    )
  )
)
;|
矩阵左乘组合函数
|;
(defun $xdlsp_matrix_product (matL / _m1 _m2)
  (if (> (length matl) 1)
    (progn
      (setq _m1 (reverse matL)
            _m2 (car _m1)
      )
      (while (setq _m1 (cdr _m1))
        (setq _m2 (xdrx_matrix_product (car _m1) _m2))
      )
      _m2
    )
  )
)