请教LISP编程高手帮忙，所要实现的功能如下：
有两个图层A和B，同属于图层A或者同属于B的两根梁相交，交线打段为井字线；分别属于图层A和B的两根梁相交，只打断属于图层A的梁线，而属于图层B的梁线不被打断
图层A和B最好能在LISP中编辑来设定的

这个lisp能够大大提高绘图速度，希望高手帮忙，不胜感激！
本人邮箱： zjh550501@163.com