研究过最大包围框的，请进

山人就是画坑的

Gu_xl 发表于 2014-5-12 20:05
程序:

[/post]

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

ymcui

非常不错，学习了

正在重生成模型

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

翼倥

学习学习

cyfdean

学习学习

wgij007

这个真的好。

念悬工具箱

;;;感谢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

学习学习，高手很多

849881146

支持一个，感觉不错

baby绑定命运线

学习一下大神的东西