nyistjz 发表于 2017-12-14 23:53:07

长度测算，单位修改！

如下是测算长度一段代码，测量的结算是以毫米为单位进行统计，如果想总计以米为单位，小数点保留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 发表于 2017-12-15 13:40:22

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

xyp1964 发表于 2017-12-15 14:20:52


自贡黄明儒 发表于 2017-12-15 14:28:04

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

nyistjz 发表于 2017-12-15 17:13:37

谢谢楼上，是可以了！
页: [1]
查看完整版本: 长度测算，单位修改！