遇到LISP编程瓶颈问题，请教高手

waterair

我想沿面域边界绘制三维多段线，但没法实现。

我试过的方法：炸开面域，提取直线起点座标，然后绘制。但在三维空间里，面域炸开后直线的起点并非按顺序规则排列。特别是炸开后成4条直线的，基本无规律可言，其他数目的有一定规律，但也相当麻烦。有没有简单一点的办法呢？请教高手。