社区 › 源码共享 › 两个取点函数源码

尘缘一生 发表于 2021-8-30 14:53:39

两个取点函数源码

tigcat 发表于 2021-8-30 21:58:55

谢谢分享，不知道什么时候用

尘缘一生 发表于 2021-9-1 14:15:42

tigcat 发表于 2021-8-30 21:58
谢谢分享，不知道什么时候用

这两个函数很有作用的，存于论坛，以便不时之需吧。

zmzk 发表于 2022-11-14 18:25:15

有没有案例，怎么使用？

cchessbd 发表于 2022-11-17 17:40:00

太高级了，太高级了，太牛了，简直就是我的救星。
我打算基于此源码写一个画图的函数。就是不知道写的出来不。。。
太牛了，简直牛的1B！
太牛了，简直牛的1B！
太牛了，简直牛的1B！

自贡黄明儒 发表于 2022-11-18 13:28:22

本帖最后由 自贡黄明儒 于 2022-11-18 13:31 编辑


;;取点函数
(defun HH:getpoints (/ P PTS)
(if (setq p (getpoint "\n 起点:"))
    (setq pts (cons p pts))
)
(while (and p (setq p (getpoint p "\n 下一点:")))
    (redraw)
    (setq pts (cons p pts))
    (mapcar '(lambda (x y) (grdraw x y 2 2)) pts (cdr pts))
)
(if pts (reverse pts))
)

查看完整版本: 两个取点函数源码