【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了“【精品】ExcelVBA开发渠道纵断面图辅助绘图程序实践与探讨 - 农林牧渔“提供大家参考，希望对大家有所帮助!

本文由 pingtou168 贡献 pdf 文档可能在 WAP 端浏览体验不佳。

    建议您优先选择 TXT，或下载源文件到本机查看。

     新疆农业大学学报２００９，３２（１）：８９～９２ Ｊｏｕｒｎａｌ ｏｆ Ｘｉｎｊｉａｎｇ Ａｇｒｉｃｕｌｔｕｒａｌ Ｕｎｉｖｅｒｓｉｔｙ 文章编号：１００７—８６１４（２００９）０１—００８９—０４ ＥｘｃｅｌＶＢＡ开发渠道纵断面图 辅助绘图程序实践与探讨 董文明１，马英杰１，崔 龙１，孔德庸 １０００９４） （１．新疆农业大学水利与土木工程学院，乌鲁木齐８３００５２；２．中国农业大学资源与环境学院。

    北京 摘要：使用Ｅｘｃｅｌ的ＶＢＡ编程功能， 将设计好的数据自动的输出为Ａｕｔｏ ＣＡＤ的命令组文件（Ｓｃｒｉｐｔ），在Ａｕ— ｔｏＣＡＤ里运行该命令组文件，即口ｒ快速的绘制渠道纵断面图。

    使用该程序时．还可根据各项目的特点修改局部参数 和预设图框内容，直接批量生成施工图．极大程度上减化了渠道设计人员的绘图工作。

     关键词： Ｅｘｃｅｌ；Ａｕｔｏ ＣＡＤ；ＶＢＡ编程；渠道纵断面图绘图；传统绘图方法 文献标识码：Ａ 中图分类号：ＴＶ２２２．１ Ｐｒａｃｔｉｃｅ ａｎｄ Ｄｉｓｃｕｓｓｉｏｎ ｏｎ Ａｕｘｉｌｉａｒｙ Ｄｒａｗｉｎｇ Ｒｏｕｔｉｎｅ ｏｆ Ｅｘｃｅｌ ＶＢＡ Ｄｅｖｅｌｏｐｍｅｎｔ Ｃｈａｎｎｅｌ Ｐｒｏｆｉｌｅ Ｄｉａｇｒａｍ ＤＯＮＧ （１．Ｃｏｌｌｅｇｅ ｏｆ Ｗｅｎ—ｍｉｎ９１，ＭＡ Ｙｉｎ－ｊｉｅｌ，ＣＵＩ Ｌｏｎ９１，ＫＯＮＧ Ｄｅ—ｙｏｎ９２ Ｗａｔｅｒ Ｘｉｎｊｉａ Ｃｏｎｓｅｒｖａｎｃｙ ａｎｄ Ｃｉｖｉｌ Ｅｎｇｉｎｅｅｒｉｎｇ，ｎｇ Ａｇｒｉｃｕｌｔｕｒａｌ Ｕｎｉｖｅｒｓｉｔｙ，Ｕｒｕｍｑｉ ８３００５２；２．Ｃｏｌｌｅｇｅ ｏｆ Ｒｅｓｏｕｒｃｅｓ ａｎｄ Ｅｎｖｉｒｏ Ｃｈｉｎａ Ａｇｒｉｃｕｌｔｕｒａｌ Ｕｎｉｖｅｒｓｉｔｎｍｅｎｔ Ｓｃｉｅｎｃｅ，ｙ，Ｂｅｉｊｉｎｇ １０００９４） Ｉｎ ｔｈｉｓ ｐａｐｅｒ，ｉｔ ｉｎｔｒｏｄｕｃｅｓ ｆｉｎｉｓｈ ｃａｎ Ａｂｓｔｒａｃｔ： ａｎ ｉｍｐｒｏｖｅｄ ｗａｙ ｔｏ ｔｏ ｈｅｌｐ ＵＳ ｔｏ ｃａｎａｌ ｒｕｎ ｐｒｏｆｉｌｅ ｄｉａｇｒａｍ．Ｔｈｅ ｉｎ ＡｕｔｏＣＡＤ，ｃａｎ ｈｅｌｐ ｗｉｔｈ ｔｈｅ ｈｅｌｐ ｏｆ ＶＢＡ ｐｒｏｇｒａｍｓ ｉｎ Ｅｘｃｅｌ ｗａｙ， ＵＳ ｔｏ ｍａｋｅ Ｓｃｒｉｐｔ ｆｉｌｅｓ ｗｈｉｃｈ ｂｅ ｆｉｎｉｓｈ ｔｈｅ ｃａｎａｌ ｐｒｏｆｉｌｅ ｄｉａｇｒａｍｓ ｅａｓｉｌｙ Ｗｈｅｎ ｐｒｏｇｒａｍｉｎｇ ｆｕｎｃｔｗｈｅｎ Ｗｅ ｄｅｓｉｇｎ ｃａｎａｌｓ．ｉｏｎ ｗａｓ ｍａｄｅ ｕｓｉｎｇ Ｅｘｃｅｌ ＶＢＡ，ｔｈｅ ｄｅｓｉｇｎｅｄ ｄａｔａ ｗｅｒｅ ａｕｔｏｍａｔｉｃａｌｌｙ ｏｕｔｐｕｔ ｆｏｒ ｔｈｅ ｃｏｍｍｏｎｄ ｇｒｏｕｐ ｏｆ ，ｔｈｅｎＡｕｔｏ ＣＡＤ ｆｉ ｌｅｓ （Ｓｃｒｉｐｔ） ａ ｃｈａｎｎｅｌ Ｐｒｏｆｉｌｅ ｄｉａｇｒａｍ ｃｏｕｌｄ ｉｍｍｅｄｉａｔｅｌｙ ｂｅ ｆｉｎｉｓｈｅｄ．Ｗｈｅｎ ｕｓｉｎｇ ｔｈｅ ｐｒｏｇｒａｍ，ｉｔ ｃｏｕｌｄ ｃｏｎ。

    － ｂｅ ｍｏｄｉｆｉｅｄ ｉｎ ａｃｃｏｒｄａｎｃｅ ｗｉｔｈ ｔｈｅ ｐｕｒｐｏｓｅ ｏｆ ｔｈｅ ｃｈａｒａｃｔｅｒｉｓｔｉｃｓ ｏｆ ｌｏｃａｌ ｍａｐ ｐｒｅ——ｓｅｔ ｐａｒａｍｅｔｅｒｓ ａｎｄ ｔｅｎｔ ｏｆ ｔｈｅ ｂｏｘ．Ｄｉｒｅｃｔｌｙ ｔｈｅ ｗｏｒｋｉｎｇ ｔＯ ａ ｄｒａｗｉｎｇ ｃｏｕｌｄ ｇｒｅａｔ ｅｘｔｅａｔ． ｂｅ ｐｒｏｄｕｃｅｄ ｏｎ ａ ｌａｒｇｅ ｓｃａｌｅ ｗｈｉｃｈ ｃｏｕｌｄ ｄｅｃｒｅａｓｅ ｄｒａｗｉｎｇ ｗｏｒｋ ｏｆ ｃｈａｎｎｅｌ ｄｅｓｉｇｎｅｒｓ Ｋｅｙ ｗｏｒｄｓ： Ｅｘｃｅｌ；ＡｕｔｏＣＡＤ；ＶＢＡ Ｐｒｏｇｒａｍｍｉｎｇ；ｃｈａｎｎｅｌ ｓ ｔｒａｄｉｔｉｏｎａｌ ｉｎｇ ｍｅｃｔｉｏｎｓ ａｕｘｉｌｉａｒｙｄｒａｗｉｎｇ；ｅｔｈｏｄ ｄｒａｗ— Ｅｘｃｅｌ电子表格是工程设计人员进行数据处理 的一种常用工具。

    特别是渠道设计 ，者，大部分利用 Ｅｘｃｅｌ表格处理断面数据（地面高程、渠底高程等） 但将数据录入到ＡｕｔｏＣＡＤ中绘制断面图却产生了 一定的困难，采用常规的手工录入数据，绘制各条设计线的方法，其效率和正确率都很低，一直以来，不 收稿日期：２００８—１０一１２ 基金项目：新疆水利水电重点学科基金项目 通讯作者：马英杰．Ｅ－ｍａｉｌ：ｄｗｍ＠ｘｊａｕ．ｅｄｕ．ｃｎ 少设计者在Ｅｘｃｅｌ和ＣＡＤ之间寻求着快捷、便利的 方法，诸如：复制、粘贴或利用手工编制ＣＡ