判断点是否在曲线内------完美版

自贡黄明儒 · 发表于 2014-11-22 08:51

本帖最后由自贡黄明儒于 2022-9-7 13:03 编辑

这么完美的一个版本，在晓东上顶的高手居然不多

;;判断点是否在曲线内
;;(HH:PtInCurve (getpoint) (car (entsel)))
;;判断点在封闭图形内自贡黄明儒 2014.11.22
;;(HH_PtInCurve (getpoint) (ssget))
;;(HH_PtInCurve (getpoint) (car(entsel)))
(defun HH_PtInCurve (p ss / E E0)
  (cond ((equal (type ss) 'ENAME) (setq ss (ssadd ss (ssadd)))))
  (setvar "nomutt" 1)
  (setq e0 (entlast))
  (APPLY 'bpoly (list p ss '(1 0)))
  (while (not (equal (getvar "cmdnames") "")) (apply 'command (list "")))
  (setvar "nomutt" 0)
  (cond ((entnext e0) (while (setq e (entnext e0)) (entdel e)) T))
)

本程序很短，虽然大家都喜欢长的

点和对象可以不在屏幕上，照样有效。

d1742647821 · 发表于 2023-2-13 13:53

带command。。。还好意思说是完美版
应该用纯数学的方法进行判断

vbnewer · 发表于 2022-9-7 14:32

收藏了，虽然暂时还用不上，感觉很厉害的样子

yaojing38 · 发表于 2023-2-11 22:13

谢谢黄前辈，，正好学习下

小菜123 · 发表于 2014-11-22 09:15

高手都有这个函数了，所以顶得少

819534890 · 发表于 2014-11-22 09:21

终于出来了，不错

【KAIXIN】 · 发表于 2014-11-22 09:29

支持下

USER2128 · 发表于 2014-11-22 09:40

黄大侠又出精品了，瞧瞧

cable2004 · 发表于 2014-11-22 09:49

大师的吗东西

wzg356 · 发表于 2014-11-22 10:20

没有最好，只有更适合自己的，谢谢分享！

鱼与熊掌 · 发表于 2014-11-22 10:27

顶贴支持~~~~~~~~~~~~~~~~~~~~~

maiko · 发表于 2014-11-22 10:30

没有最好，只有更适合自己的，谢谢分享！

lucas_3333 · 发表于 2014-11-22 11:41

支持下长老

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

[源码] 判断点是否在曲线内------完美版

本帖子中包含更多资源

点评

评分

本帖被以下淘专辑推荐:

点评