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

zheng209 · 发表于 2015-9-13 07:20:33

要学习下这个

小媳妇fanfan · 发表于 2015-9-13 23:52:31

学习。。。。

qq84603709 · 发表于 2015-9-18 07:55:26

支持~~~~~~~~~~~~

风流少年时 · 发表于 2015-9-19 21:04:05

正需要这样的判断。

tsts · 发表于 2015-10-23 21:35:42

支持楼主的劳动成果

cshimao · 发表于 2015-10-24 11:58:35

楼主大公无私，分享精神值得学习。

xiaolong1487 · 发表于 2015-10-28 04:52:57

完美！学习一下！

ljxkm · 发表于 2015-10-28 12:26:31

学习一下，学习一下

hoongdou · 发表于 2015-11-5 23:07:01

看看。。。。。。。。。

crazylsp · 发表于 2015-11-7 15:40:01

(defun HH_PtInCurve (p ss / E E0)
  (cond ((equal (type ss) 'ENAME) ;当为图元
      (setq ss (ssadd ss (ssadd)));放入选择集。
      )
  )
  (setvar "nomutt" 1);显示命令提示和消息,1不显示。
  (setq e0 (entlast))
  (APPLY 'bpoly (list p ss '(1 0)));边界创建。
  (while (not (equal (getvar "cmdnames") "");判断命令是否结束。
      )
   (apply 'command (list ""));命令没结束就重复命令。
  )
  (setvar "nomutt" 0);显示命令提示和消息,1不显示。
  (cond ( (entnext e0) ;从最后一个图元开始
      (while (setq e (entnext e0)) ;下一个图元。
         (entdel e);删去图元。
      )
      T;条件为真。也就是 HH_PtInCurve返回值为true
      )
  )
)

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

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