学了三天vba，当做一个小小的练习，欢迎大家批评指正。可以自动绘制避雷针的保护范围，软件做的比较傻，如果是两根不等高避雷针，那么H1必须是高的，避雷针保护范围是使用折线法。将压缩包解压到c盘根目录，然后在cad内输入命令appload 加载la.lsp，然后输入laa命令就可以调出界面了。非常简单，有问题欢迎和我探讨。
内容简介 某30米高独立避雷针图 本次设计为：某30米高独立避雷针图 图纸包括： 30米高独立避雷针基础图、30米高独立避雷针详图及安装图共两张图纸。 2 3
每根接地极的接地电阻应不大于10欧姆，在施工时，必须进行实地测定。运营阶段每年在雷雨季节以前亦必须检查接地级和接地电阻，以策安全。 接地线及接地装置应镀锌，以防锈蚀，并与塔内主筋焊接。 避雷针应镀锌以防锈蚀，外涂银灰色油漆，并与塔内主筋焊接。 图纸内容： 接地极构造图 避雷针平面布置图 主塔侧面图 主塔立面图 避雷针立面图 避雷针尖大样 加劲板大样 避雷针材料数量表
