[求助]：请帮忙看一下程序中的错误问题

faye_liman

我是大四毕业生，正在写用vba二次开发AutoCAD的毕业论文！我遇到了一些困难，需要帮助！程序附在附件里。这是一个vba的建筑程序。
我的e-mail是 faye_liman@yahoo.com.cn
如果能帮助我的话 ，请给我写信！！谢谢 ！！！

efan2000

程序当中的错误有：
1、vline1对象没有赋值。
2、GetPoint的提示字符串之前漏了逗号。
其它的可能是设计有误，没有得到正确的结果。

faye_liman

谢谢你.第一处错误我已经改了,可是第二处我没找到.另外,这个宏加载在CAD中能运行,只是答不到预期的效果,每次操作后会弹出错误提示"您框选的墙线少于四条",我就不太明白是怎么回事了

efan2000

第二处是这个地方：orientpt = ThisDrawing.Utility.GetPoint(, [/COLOR] "请选择要保留的一个角落:")。
Select函数的acSelectionSetCrossing
是选择位于矩形区域内或与其相交的对象，检查一下是否有的直线在选择区域外。
得不到正确的结果应该在后面操作中，比如直线的起点和终点没有正确的判断，还有可能是直线的位置也有关系。