旋转卡壳

/db_自贡黄明儒_

哪位高手能帮忙用lisp完成?

st788796

把其它点用 trans 到当前边，然后排序找出 car 最大， last 最小和最大，实际上就是求出了两个边长，计算面积，这一部分用 AcGeBoundBlock2d 很简单，Autolisp 也可以写，你试着写写

st788796

再补充一个条件，点集要先求出凸包，而且逆时针凸包用起来要方便些

st788796

临时写了一个和一条边对齐的 Rectang 函数，没有测试

1. (defun MaxRectangOnSide        (p1 p2 pts / lst vy minx maxx area)
   
2.   (setq        v    (mapcar '- p2 p1)
   
3.         lst  (mapcar '(lambda (x)
   
4.                         (trans (mapcar '- x p1) 0 v)
   
5.                       )
   
6.                      pts
   
7.              )
   
8.         vy   (vl-sort lst '(lambda (x1 x2) (> (car x1) (car x2))))
   
9.         vxl  (vl-sort lst '(lambda (x1 x2) (< (last x1) (last x2))))
   
10.         minx (last (car vxl))
    
11.         maxx (last (last vxl))
    
12.         area (* vy (- maxx minx))
    
13.   )
    
14.   (list        area ;_矩形面积
    
15.         (polar p1 (angle p1 p2) minx) ;_矩形角点
    
16.         (angle p1 p2) ;_边
    
17.         vy ;_垂直边方向长度
    
18.         (- maxx minx) ;_沿边方向长度
    
19.   )
    
20. )

(defun MaxRectangOnSide        (p1 p2 pts / lst vy minx maxx area)<br />   (setq        v    (mapcar '- p2 p1)<br />         lst  (mapcar '(lambda (x)<br />                         (trans (mapcar '- x p1) 0 v)<br />                       )<br />                      pts<br />              )<br />         vy   (vl-sort lst '(lambda (x1 x2) (> (car x1) (car x2))))<br />         vxl  (vl-sort lst '(lambda (x1 x2) (< (last x1) (last x2))))<br />         minx (last (car vxl))<br />         maxx (last (last vxl))<br />         area (* vy (- maxx minx))<br />   )<br />   (list        area ;_矩形面积<br />         (polar p1 (angle p1 p2) minx) ;_矩形角点<br />         (angle p1 p2) ;_边<br />         vy ;_垂直边方向长度<br />         (- maxx minx) ;_沿边方向长度<br />   )<br /> )

XDSoft

前几天ST发的帖子， 求 最小包围盒 就是用的旋转卡壳的算法，你去看看帖子。

iLisp

在AutoCAD中 点描述的对象是最基础对象，凡是点描述的都可在AcGe找到对应类，这些算法Autodesk已经提供了，用autolisp还去闷头实现已有高级算法及函数，浪费时间就是浪费生命！