[求助]：高手请进，帮我看下这个程序

ding9736

此程序是将座标尺寸调整与源尺寸对齐的，但是当座标尺寸用“拉伸”命令拉伸过后，就没反应了，请帮我看下，是哪里出错了
****************************************************
;;对齐座标尺寸线
(defun cancel (AA) (princ))
(defun C:dq
        (/
         ;|cdatr enz px py n xpt dqfx s1 ss en ent pt cmd|;
        )
  (setq *error* cancel)
  (vl-load-com)
  (setq cdatr (rtos (getvar "cdate") 2 8))
  (setq cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "ucs" "save" cdatr)
  (command "ucs" "W")
  (setq s1 (entsel "\n请选择参照尺寸:"))
  (setq    enz (entget (car s1))
    pt1 (assoc 14 enz)
    px  (cadr pt1)
    py  (caddr pt1)
    n   0
  )
  (setq xpt (cdr (assoc 70 enz)))
  (if (or (= xpt 38) (= xpt 166))
    (setq dqfx 38)
  )                    ;判定为y方向
  (if (or (= xpt 102) (= xpt 230))
    (setq dqfx 102)
  )                    ;判定为x方向
  (progn (if (= dqfx 38)        ;y方向的选择集
       (setq ss (ssget
              '((-4 . "<or")
            (70 . 38)
            (70 . 166)
            (-4 . "or>")
               )
            )
       )
     )
     (if (= dqfx 102)        ;x方向的选择集
       (setq ss (ssget
              '((-4 . "<or")
            (70 . 102)
            (70 . 230)
            (-4 . "or>")
               )
            )
       )
     )
     (if ss
       (repeat (sslength ss)
         (setq en (ssname ss N))
         (setq ent (entget en))
         (progn (if    (= dqfx 38)    ;如果为y方向，重组座标
              (setq pt (list px
                     (caddr (assoc 14 ent))
                     (cadddr (assoc 14 ent))
                   )
              )
            )
            (if    (= dqfx 102)    ;如果为x方向，重组座标
              (setq pt (list (cadr (assoc 14 ent))
                     py
                     (cadddr (assoc 14 ent))
                   )
              )
            )
         )
         (setq ent (subst (cons 14 pt) (assoc 14 ent) ent))
         (setq N (1+ N))
         (entmod ent)
         (entupd en)
       )
     )
  )
  (command "ucs" "Restore" cdatr)
  (command "ucs" "DEL" cdatr)
  (setvar "cmdecho" cmd)
  (princ)
)