社区 › AutoLISP/Visual LISP 编程技术 › 判断点是否在曲线内------完美版

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
      )   
)
)

查看完整版本: 判断点是否在曲线内------完美版