基于 VBA 的 CAD 二次开发绘制无缝线路布置图.pdfVIP

·轨道工程· 基于ＶＢＡ 的ＣＡＤ 二次开发绘制 无缝线路布置图 龚小平 （中铁第五勘察设计院集团有限公司　北京　１０２６００） 摘　要　在对铁路无缝线路布置图的构成要素进行分析的基础上，基于ＡｕｔｏＣＡＤ ＶＢＡ 的编程原理，利用ＶＢＡ 对 ＣＡＤ进行二次开发来绘制无缝线路布置图。首先将与绘制无缝线路布置图有关的数据汇总组织并生成成多个Ｅｘ ｃｅｌ表，然后建立ＣＡＤ和Ｅｘｃｅｌ之间的通信，找到绘图元素坐标在 ＣＡＤ 图中的对应关系，最后自动循环绘制无缝线 路布置图，为直接在ＣＡＤ 图形环境下实现无缝线路布置图的绘制提供了一种高效、准确的技术方法。 关键词　ＶＢＡ　ＣＡＤ二次开发　Ｅｘｃｅｌ　无缝线路布置图 中图分类号　ＴＰ３１１．５２；Ｕ２１３．９　　文献标识码　Ａ　　文章编号　１００９ ４５３９ （２０１５）０１ ００３９ ０４ ＣＡＤ Ｓｅｃｏｎｄａｒｙ Ｄｅｖｅｌｏｐｍｅｎｔ ｏｆＣＷＲ ＬａｙｏｕｔＤｒａｗｉｎｇ Ｂａｓｅｄ ｏｎ ＶＢＡ Ｇｏｎｇ Ｘｉａｏｐｉｎｇ （Ｃｈｉｎａ Ｒａｉｌｗａｙ Ｆｉｆｔｈ Ｓｕｒｖｅｙ ａｎｄ Ｄｅｓｉｇｎ Ｉｎｓｔｉｔｕｔｅ Ｇｒｏｕｐ Ｃｏ．Ｌｔｄ．，Ｂｅｉｊｉｎｇ １０２６００，Ｃｈｉｎａ） Ａｂｓｔｒａｃｔ　Ｏｎ ｔｈｅｂａｓｉｓｏｆａｎａｌｙｚｉｎｇｔｈｅｃｏｎｓｔｉｔｕｅｎｔｅｌｅｍｅｎｔｓｏｆｔｈｅｃｏｎｔｉｎｕｏｕｓｗｅｌｄｅｄｒａｉｌ（ＣＷＲ）ｌａｙｏｕｔｏｆｒａｉｌｗａｙａｎｄｔｈｅ ｐｒｏｇｒａｍｍｉｎｇ ｐｒｉｎｃｉｐｌｅ ｏｆＶｉｓｕａｌ Ｂａｓｉｃ ｆｏｒ Ａｐｐｌｉｃａｔｉｏｎｓ（ＶＢＡ）ｉｎ ＡｕｔｏＣＡＤ，ｔｈｅ ＣＡＤ ｓｅｃｏｎｄａｒｙ ｄｅｖｅｌｏｐｍｅｎｔ ｏｆＣＷＲｌａｙ ｏｕｔ ｉｓ ｄｒａｗｎ ｂａｓｅｄ ｏｎ ＶＢＡ．Ｆｉｒｓｔｌｙ，ｔｈｅ ｒｅｌｅｖａｎｔ ｄａｔａ ｕｓｅｄ ｔｏ ｄｒａｗ ＣＷＲｌａｙｏｕｔ ａｒｅ ａｇｇｒｅｇａｔｅｄ ａｎｄ ｏｒｇａｎｉｚｅｄ ｉｎｔｏ ｓｅｖｅｒａｌ Ｅｘｃｅｌ ｗｏｒｋｓｈｅｅｔｓ．Ｔｈｅｎ ｔｈｅ ｃｏｍｍｕｎｉｃａｔｉｏｎ ｂｅｔｗｅｅｎ ＣＡＤ ａｎｄ Ｅｘｃｅｌ ｉｓ ｂｕｉｌｔ ｕｐ ｔｈｒｏｕｇｈ ｆｉｎｄｉｎｇ ｔｈｅ ｃｏｒｒｅｓｐｏｎｄｅｎｃｅｓ ｏｆｔｈｅ ｆｉｇｕｒｅ ｅｌｅｍｅｎｔｓ ｃｏｏｒｄｉｎａｔｅｓ ｉｎ ＣＡＤ ｇｒａｐｈｉｃｓ．Ａｔ ｌａｓｔ ｔｈｅ ＣＷＲｌａｙｏｕｔ ｉｓ ｄｒａｗｎ ａｕｔｏｍａｔｉｃａｌｌｙ ａｎｄ ｃｉｒｃｕｌａｒｌｙ ｗｈｉｃｈ ｐｒｏｖｉｄｅｓ ａｎ ｅｆｆｉｃｉｅｎｔ ａｎｄ ａｃｃｕｒａｔｅ ｔｅｃｈｎｉｑｕｅ ｔｏ ｒｅａｌｉｚｅ ｔｈｅ ｄｒａｗｉｎｇ ｏｆＣＷＲｌａｙｏｕｔ ｄｉｒｅｃｔｌｙ ｉｎ ＣＡＤ ｇｒａｐｈｉｃａｌ ｅｎｖｉｒｏｎｍｅｎｔ． Ｋｅｙ ｗｏｒｄｓ　ＶＢＡ；ＣＡＤ ｓｅｃｏｎｄａｒｙ ｄｅｖｅｌｏｐｍｅｎｔ；Ｅｘｃｅｌ；ＣＷＲｌａｙｏｕｔ 对于铁路轨道设计，绘制无缝线路布置图是一 １　引言 项非常重要的工作，在没有专业软件的帮助下，手 ＶＢＡ（Ｖｉｓｕａｌ Ｂａｓｉｃ ｆｏｒ Ａｐｐｌｉｃａｔｉｏｎｓ）是一个功能 工绘制无缝线路布置图显得非常繁琐。此外，设计 强大的开发工具，利用ＶＢＡ对ＣＡＤ进行二次开发， 图完成后，如果线、站、桥、隧等专业的设计发生变 同时结合Ｅｘｃｅｌ办公软件可以成百上千倍地提高绘 化，对无缝线路布置图影响很大，即便一个很小的 图工作效率。该开发工具在各行各业尤其在土木 改变如一个道岔位置、桥梁长度的变化均可能使得 工程行业，如线路、轨道、路基、桥梁、隧道等专业