求一校正水平 垂直直线的程序

fxb0611

操作是这样的！ 选择对象包括直线 多线等 ，输入一个比例如果所选直线的x/y或者y/x小于这个比例就把它变成水平的 或者直的！
CSDN上有程序，但是我们明经通道这个专门弄CAD的居然没有！ 那位大神弄弄！ 我相信对于大神来说应该很简单！我真在思考学习中 希望大神能奉献一下 谢谢！ 其实这个还是很实用的！