三维实体被拉伸后数据怎么发生了变化，如何解决？？？

挚友02

(defun 3d__Solid ( e / e c cc ccc tem list_1 list_2 qc)
  (setq ORENT (entget e))
  (setq ACENT (GETACISDATAONLY (ACISDECODEENT ORENT)))
  (setq c 0 list_1 '())
  (repeat (length ACENT)
    (setq tem (cdr (nth c ACENT)))  
    ;(if (and (> (strlen tem) 90) (= (substr tem 1 25) "plane-surface $-1 -1 $-1 "))
     (if (= (substr tem 1 25) "plane-surface $-1 -1 $-1 ")
      (progn
        (setq tem (substr tem 26)  qc 0 list_2 '())
        (while (and (< qc 3)(setq ccc (str_sel tem " ")))         
           (setq tem1 (atof (substr tem 1 (- ccc 1))))
           (setq list_2 (cons tem1 list_2))
           (setq tem (substr tem (+ ccc 1)))
           (setq qc (+ qc 1))
        )
       
        (setq list_1 (cons (reverse list_2) list_1))
    ) )   
    (setq c (+ c 1))
  )
(reverse list_1)
)
三维实体被拉伸后数据怎么发生了变化，点坐标都不对了，如何解决？？？