SD 치수선 나누기 오류(캐드 파일 업로드) > 질문 및 오류신고

제가 같은 오류를 재연해 내지 못했습니다.
죄송합니다만, 해당 파일을 올려 주시면 분석해 드리겠습니다.
치수만 있는 파일이면 될 것 같습니다.

캐드 파일ㄹ 업로드 해놨습니다.

• 삭제

파일을 보면.. 20,000 으로 된 치수가...
시작점과 끝점의 Z값이 달라서 그렇습니다. FLT 는 이런 경우까지 고려되지 않았거든요..
치수를 LIST 명령어로 찍어 보시면 값을 볼 수 있습니다.

이 치수를 삭제하시고 다시 Z값 0 으로 그리시던가, 옆의 치수를 CC 로 복제 하시면 될 거여요.

혹은 아래 함수로 Z값을 0으로 일치시키는 것도 가능합니다.

(defun c:xxx ( / ss n ent enx p13 p14 n13 n14)
  (xi:startS)
  (if (setq ss (ssget ":L" '((0 . "DIMENSION"))))
      (progn
        (xi:StartUndo xi_acDoc)
        (repeat (setq n (sslength ss))
            (setq ent (ssname ss (setq n (1- n)))
                  enx (entget ent)
                  p13 (cdr (assoc 13 enx))
                  p14 (cdr (assoc 14 enx))
                  n13 (list (car p13) (cadr p13) 0)
                  n14 (list (car p14) (cadr p14) 0)
            )
            (entmod
              (subst
                  (cons 14 n14)
                  (assoc 14 enx)
                  (subst
                    (cons 13 n13)
                    (assoc 13 enx)
                    enx
                  )
              )
            )
        )
        (xi:EndUndo xi_acDoc)
      )
  )
  (xi:Ends)
)

답도 없고...