随心随意测距

wanhongron · 发表于 2022-5-17 22:32:16

cad中的测距命令dist只能一次测两个点的距离，有一次可连续测多个点的命令吗？就像地图那种累加测法

自贡黄明儒 · 发表于 2022-5-18 14:29:25

(defun c:tt1 (/ N P1 P2)
(setq n 0)
(setq p1 (getpoint "\n 测距起点:"))
(while (and p1 (setq p2 (getpoint p1 "\n 测距开始:")))
(setq n (+ (distance p1 p2) n))
(setq p1 p2)
)
(princ n)
(princ)
)

song宋_74729 · 发表于 2022-5-17 23:29:34

本帖最后由 song宋_74729 于 2022-5-18 10:33 编辑

试试这个

(defun c:lxcj (/ 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 ptp1 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 (setqp1 (getpoint "\n 请指定重新开始点:"))

(setqpt (getpoint p1 "\n 请指定下一点:"))

(grdrawpt p1 1 1)

(ifp1

(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 dist1 2 2)"）>>>>>>>"))

(princ(strcat "（共测量了"(rtos (+ M 1) 2 0) "条线）"))

(if (zeropdist1)

(princ " 零长度尺寸，请重新测量!")

) ;_ 结束if

(princ)

) ;_ 结束defun

20060510412 · 发表于 2022-5-17 22:39:57

做一个多段线，然后获取多段线的长度，这种代码很容易获取。

liufii · 发表于 2022-5-18 08:47:27

song宋_74729 发表于 2022-5-17 23:29
试试这个
(DEFUN C:ll ()
(SETVAR "CMDECHO" 0)

这个测量后的距离不是累加的。

song宋_74729 · 发表于 2022-5-18 10:22:37

liufii 发表于 2022-5-18 08:47
这个测量后的距离不是累加的。

已修改累加

liufii · 发表于 2022-5-18 11:30:13

本帖最后由 liufii 于 2022-5-18 11:32 编辑

song宋_74729 发表于 2022-5-18 10:22
已修改累加

多谢分享！

试了下出现错误，只能测量一段，错误如下：

请指定开始点:
请指定下一点:
本段长度为10467.87参数类型错误: 二维/三维点: nil

magicheno · 发表于 2022-5-18 13:53:37

多谢分享学习了

wanhongron · 发表于 2022-5-18 15:25:22

谢谢大家的帮助

，自贡黄明儒侠的程序短小精悍，如果能留下路径虚线就更完美了

gzcsun · 发表于 2022-5-18 15:33:58

(defun c:tt1(/ N n1 P1 p22 P2)
  (setq n 0)
(setq n1 0)
  (setq p1 (getpoint "\n 测距起点:"))
(setq p22 (strcat "\n 测距开始"))
  (while (and p1 (setq p2 (getpoint p1 p22)))
(setq n (+ (distance p1 p2) n))
(grdraw p1 p2 1 1)
(setq p1 p2)
(setq n1(+ n1 1))
(setq p22 (strcat "\n " (rtos n1) "点 "(rtos n 2 2)))
  )
  (princ)
)

账号		自动登录	找回密码
密码			注册

[提问] 随心随意测距

本帖子中包含更多资源

点评