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

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

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)
)

luoyiandy 发表于 2024-10-12 10:01:49

能把每个点间的数据导出EXCEL表格吗？

nyistjz 发表于 2024-10-12 13:30:58

是不是这个效果？
页: 1 2 [3]
查看完整版本: 随心随意测距