[求助]高手请帮我看看我的程序是什么原因。

xstlf

我想达到通过窗口选择后变成右图的样子，但我每次运行这程序。有时总不能完全满意。


有时会变成下面这图的样子，只修理了一半。这是为什么呀。

xstlf

附上我的，LISP文件


       

xstlf

此问题总算自己找到答案了，原来是选择集的问题。我把完成后的发上来。给搞建筑设计的朋友参考，并帮我改正。