CAD的VBA编译时出现编译错误,过程太大

代码在百度网盘里,求大伙帮忙看看,谢谢

链接:https://pan.baidu.com/s/1Iw-48pvDkw1xnCiylKaogQ
提取码:og53

把过程拆开,分为几个函数。如果涉及变量,可以用参数传递。