社区 › AutoLISP/Visual LISP 编程技术 › 研究过最大包围框的，请进

山人就是画坑的 发表于 2015-12-18 15:37:44

Gu_xl 发表于 2014-5-12 20:05 static/image/common/back.gif
程序:



这个对于spline的处理实在是。。。。。牛破天了

ymcui 发表于 2015-12-18 16:06:24

非常不错，学习了

正在重生成模型 发表于 2015-12-20 21:37:40

很好很好很好很好很好很好很好很好很好很好

翼倥 发表于 2016-5-4 17:16:13

学习学习

cyfdean 发表于 2018-10-29 15:14:53

学习学习

wgij007 发表于 2019-11-8 18:37:17

这个真的好。

念悬工具箱 发表于 2021-4-18 18:33:07

;;;感谢lostbalance与作者，原帖： http://bbs.mjtd.com/thread-178146-1-1.html
(defun intersect (a b)
      (if
            (or
                (and ;;b左下角在a框内
                  (<= (caar a) (caar b) (caadr a))
                  (<= (cadar a) (cadar b) (cadadr a))
                )
                (and ;;b左上角在a框内
                  (<= (caar a) (caar b) (caadr a))
                  (<= (cadar a) (cadadr b) (cadadr a))
                )
                (and ;;b右上角在a框内
                  (<= (caar a) (caadr b) (caadr a))
                  (<= (cadar a) (cadadr b) (cadadr a))
                )
                (and ;;b右下角在a框内
                  (<= (caar a) (caadr b) (caadr a))
                  (<= (cadar a) (cadar b) (cadadr a))
                )
                (and ;;a框部分包含在b框内
                  (<= (caar a) (caar b) (caadr a)) ;;xa1<=xb1<=xa2
                  (>= (cadar a) (cadar b)) ;;ya1>=yb1
                  (<= (cadadr a) (cadadr b)) ;;ya2<=yb2
                )
            )
            (list
                (apply 'mapcar (cons 'min (append a b)))
                (apply 'mapcar (cons 'max (append a b)))
            )
      )
    )

78946299 发表于 2022-3-29 21:07:52

学习学习，高手很多

849881146 发表于 2022-8-31 13:37:21

支持一个，感觉不错

baby绑定命运线 发表于 2023-3-25 03:33:58

学习一下大神的东西

查看完整版本: 研究过最大包围框的，请进