随心随意测距

gzcsun · 发表于 2022-5-21 15:11:35

本帖最后由 gzcsun 于 2022-5-21 17:13 编辑

----------------------

wanhongron · 发表于 2022-5-21 16:17:37

院长很厉害，可是用不了，no function definition: XYP-START

wanhongron · 发表于 2022-5-21 17:11:18

真希望院长能给下源码

cj52000 · 发表于 2022-5-21 17:20:57

gzcsun 发表于 2022-5-21 14:56
(rtos n 2 2)
改为
(rtos n 2 3)

收到！！！

wanhongron · 发表于 2022-5-22 10:40:00

哪位大侠可以做出像院长这种效果

song宋_74729 · 发表于 2022-6-16 12:39:39

cj52000 发表于 2022-5-18 21:11
大师，很好用，能否把小数位数改为3位小数，谢谢！

(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 3)))
  )
  (princ)
)

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

[提问] 随心随意测距