两个取点函数源码

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

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

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

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

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

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

有没有案例，怎么使用？

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

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

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

本帖最后由自贡黄明儒于 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))
)

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

两个取点函数源码

本帖子中包含更多资源