长度测算，单位修改！

nyistjz

如下是测算长度一段代码，测量的结算是以毫米为单位进行统计，如果想总计以米为单位，小数点保留3位，应该怎么修改？
谢谢！

;;==============连续测距=================
(defun c:lengthgauge (/ pt pts dist1 dist2 p1 N)
  (setq pt (getpoint "\n 请指定开始点: "))
  (setq p1 (getpoint pt "\n 请指定下一点: "))
  (SETQ DIST1 (DISTANCE P1 Pt))
  (PRINC (strcat "\n 本段长度为" (rtos dist1 2 2)))
  (grdraw pt p1 1 1)
  (if        p1
         (PROGN
                (setq pts (cons p1 (list pt)))
                (SETQ DIST1 (DISTANCE (car pts) (last pts)))
                (PRINC (strcat "  累计长度为" (rtos dist1 2 2)))
                (setq M 0)
                (while
                  (if        pt
                         (progn (initget 128 "F")
                                          (setq pt (getpoint
                                                                         p1
                                                                         "\n 下一点[下一点(NEXT)/重新开始点(F)]<NEXT>: "
                                                                         ) ;_ 结束getpoint
                                                          ) ;_ 结束setq
                                          ) ;_ 结束progn
                         ) ;_ 结束if
                        (if (= pt "F")
                          (progn        (setq p1 (getpoint "\n 请指定重新开始点: "))
                                                (setq pt (getpoint p1 "\n 请指定下一点: "))
                                                (grdraw pt p1 1 1)
                                                (if p1
                                                  (PROGN (setq pts (cons p1 (list pt))))
                                                  ) ;_ 结束if
                                                ) ;_ 结束progn
                          ) ;_ 结束if
                        (setq pts (cons pt pts))
                        (if (>= (length pts) 2)
                          (grdraw pt p1 1 1)
                          ) ;_ 结束if
                        (SETQ DIST2 (DISTANCE p1 pt))
                        (PRINC (strcat "\n 本段长度为" (rtos dist2 2 2)))
                        (SETQ DIST1 (+ (DISTANCE P1 Pt) dist1))
                        (PRINC (strcat "  累计长度为" (rtos dist1 2 2)))
                        (setq p1 pt)
                        (SETQ M (1+ M))
                        ) ;_ 结束while
                ) ;_ 结束PROGN
         ) ;_ 结束if
  (princ (strcat "\n>>>>>共测量了" (rtos (+ M 1) 2 0) "条线,总长度= " (rtos dist1 2 2)"mm"))
  (if        (zerop dist1)
         (princ "   零长度尺寸，请重新测量!")
         ) ;_ 结束if
  (princ)
  ) ;_ 结束defun

nyistjz

这个有朋友能帮忙修改一下吗？

xyp1964

自贡黄明儒

(princ (strcat "\n>>>>>共测量了" (rtos (+ M 1) 2 0) "条线,总长度= " (rtos (/ dist1 1000) 2 2)"m"))

nyistjz

谢谢楼上，是可以了！