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

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

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

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

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

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

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

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

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

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

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

终于出来了，不错

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

支持下

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

黄大侠又出精品了，瞧瞧

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

大师的吗东西

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

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

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

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

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

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

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

支持下长老

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

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

本帖子中包含更多资源

点评

评分

本帖被以下淘专辑推荐:

点评