十二月 2025

关于凸包的维基解释：在一个实数向量空间V中，对于给定集合X，所有包含X的凸集的交集S被称为X的凸包。

凸包有很多用途，网上流传着很多其他语言的代码，LISP的却很少，下面是我的LISP实现代码：

这是一个经典的几何算法题目。现在在CAD下用LISP程序编写。

功能是求覆盖点集的最小圆。

对于CAD的封闭曲线类物体，可利用此程序求其几何参数。

包括面积、周长、质心、惯性矩、主矩等等。

下面是其LISP代码:

在CAD中画衣柜有时候是一件比较麻烦的事情，对2012以上的版本，可以用动态图块来实现，但还是有点罗嗦。

我下面的程序实现比较简单，只要敲入一个命令，然后你就可以任意布置你的衣柜了。

下面是其实现的代码。

CAD中平齐物体的实现是通过align命令来实现的。
但在CAD编程中有时候需要对这个命令自定义，而且在某些情况下不适合用命令形式。
所以我编写了一个lisp程序，用户也可以根据这个程序定义更高级的平齐。
下面是实现的代码。