객체 높이값 0으로 바꾸니깐 엄뚱한 위치로 이동됩니다

첨부파일 보시면 객체가 있는데요 이객체의 높이값을 0으로 바꿨더니 엄뚱한 위치로 이동되더라구요
저번에도 유사한 질문을 올린적ㅇ ㅣ있는데

그때 kor님께서
(defun c:test()
 (and
  (setq sel (car (entsel “nSelect a Lwpolyline:”)))
  (progn
   (setq ent (entget sel) ev (cdr (assoc 38 ent)))
   (setq nps (mapcar ‘(lambda (p) (trans (append (cdr p) (list ev)) sel 2)) (vl-remove-if-not ‘(lambda (x) (= (car x) 10)) ent)))
   (setq nps (mapcar ‘(lambda (p) (cons 10 (list (car p) (cadr p)))) nps))
   (setq bnt (vl-remove-if ‘(lambda (x) (member (car x) ‘(38 10 210))) ent))
   (entmod (append bnt (list (cons 38 0.0)) nps  (list (cons 210 (list 0.0 0.0 1.0)))))
  )
 )
 (princ)
)
이리습을 만들어 주셨는데 이리습으로도 원래위치로 이동이 안되더라구요….

아래는 해당객체의 속성값인데
-3번속성값이 있는데 이값은 vl-remove 이걸써도 없어지지도 않고
암튼 이상하네요….
어디가 잘못된건지 문의드립니다.

((-1 . <Entity name: 4b3c9030>) (0 . LWPOLYLINE) (330 . <Entity
name: 422f6cf8>) (5 . A6) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 .
AAC001) (100 . AcDbPolyline) (90 . 3) (70 . 128) (43 . 0.0) (38 . 61181.4) (39
. 0.0) (10 -375879.0 -473465.0) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 -375876.0
-473462.0) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 -375869.0 -473459.0) (40 . 0.0)
(41 . 0.0) (42 . 0.0) (210 -0.149804 0.360279 0.920738) (-3 (MStation (1000 .
Lnkg) (1002 . {) (1004 . 0B1076981910000000000000000000000000000000000000)
(1002 . }))))