VBA在拱坝三维自动绘图程序中的应用_项目管理文章库

用户名密码

联盟服务关于我们联系方式收藏本站

PgMP认证，美国项目管理协会高端项目管理认证！大型项目与项目群管理Program Management全球权威认证

服
务
区

网站登录：会员企业专家服务商
企业服务：PMP培训内训课公开课
工具箱：发表文章提问题发案例

首页：动态 | 文库 | 下载 | 书架 | 访谈 | 专栏 | 专题 | 人才 | 培训 | 软件 | PMC

互动：活动 | 案例 | 问答 | 论坛 | 博客 | 圈子

应用：基础┊工程┊软件┊制造┊活动┊研发认证：PMP┊NPDP┊ACP┊PgMP┊IPMP┊P2┊ISPMP┊IMCP┊建造师┊MPM 特色：热点┊奖项

适合敏捷开发项目
敏捷项目管理最佳实践

重视项目商业分析
商业价值与需求分析能力

产品管理国际认证
全球产品管理最佳实践

单项目管理经典指南
年轻项目经理首选

北京 | 直播 | 录播

大型复杂项目全球标准
定位高级项目管理层

链接战略与项目
实现组织资源投资回报

信息系统项目管理师
系统集成项目管理工程师

计划 | 报名 | 经验

当前位置：文库首页 >> 文章内容

VBA在拱坝三维自动绘图程序中的应用

作者：黄堰江提交人：老黄[黄堰江] 属性：提交人原创发布时间：2006/6/10 点击：10733 【收藏本文】

1、先编写两个有用的子程序和子函数项目管理者联盟
项目管理者联盟
（1）、求某一确定高程H上横缝直线对应的中心角的子函数FengFeng。项目经理博客
要知道，确定某一高程H后，某坝块的左右横缝直线的中心角值是唯一确定的。这就考虑要建立一个求某一高程H上横缝直线的中心角的子函数。根据设计给出的坝顶横缝直线方程A*X+B*Y+C=0，项目管理者联盟
与拱轴线的坐标参数方程：X= RC * Tan(C * 3.1415926 / 180)项目管理者联盟
Y= ZC + 0.5 * RC * (Tan(C * 3.1415926 / 180)) ^ 2
联立，即可解得φ=arctg[(-A/B)-sqrt((-A/B)^2-2*Zc/Rc-2*C/B/Rc]，项目经理圈子
即φ是H、A、B、C、ZC 和 RC的函数。项目管理者联盟
项目管理者联盟
（2）、绘制某一确定高程H上两横缝之间的拱圈子程序GongquanDraw项目管理者联盟
A、程序逻辑分析图一：H高程某坝块拱圈示意图PgMp.mypm.net
先假设几个符号变量， H为某一确定高程，用α1、α2分别表示左右横缝对应的中心角，M为一个常数变量。这里要用到微分原理，将α1、α2对应横缝之间的弧长以M段短小的直线弦长代替，为减少误差，可以将M设置为40、50或60甚至更大，如图一。利用特征方程求出上、下游弧上各微分点的二维坐标值，再分别以上、下游微分点画出上游多段线弧UpPolyline和下游多段线弧DownPolyline，再把上、下游多段线弧合并成一条多段线Pline，即可利用UpPolyline和DownPolyline的Length属性和Pline的Area属性求出上、下游弧长及坝块面积。自动绘制图形后也可用尺寸标注等查询相关属性，也可以编写在图形中写入以属性值为字符串的文本的程序，在指定位置显示这些属性值文本。项目管理者联盟
项目管理者联盟文章
B、编程过程项目管理者联盟
先定义两个一维数组UpPoint和DownPoint变量，将上下游微分点的二维坐标点分别转为一维数组后存放在UpPoint和DownPoint中，数组下标下界为0，上界为2*M+1，再定义一个一维数组Point用来存放将多段线Pline的二维坐标点转为一维数组的值，数组下标下界为0，上界为4*M+3，然后定义三个ACAD实体变量：上游弧多段线UpPolyline，下游弧多段线DownPolyline，拱圈多段线PLINE。项目管理者联盟
项目管理者联盟
这里需要用到一个FOR…NEXT的循环结构，分别求出上下游坐标，即变量UpPoint和DownPoint的值，然后生成多段线UpPolyline和DownPolyline。部分程序如下：项目管理者联盟
For I = 0 To M项目管理者联盟
C = ALPHA1 + I * (ALPHA2 - ALPHA1) / M项目管理者联盟
T(I) = TC + (TA - TC) * (C / ALPHA) ^ 1.7948blog.mypm.net
CentrePoint(2 * I) = RC * Tan(C * 3.1415926 / 180)项目管理者联盟
CentrePoint(2 * I + 1) = ZC + 0.5 * RC * (Tan(C * 3.1415926 / 180)) ^ 2项目管理者联盟
UpPoint(2 * I) = CentrePoint(2 * I) + 0.5 * T(I) * Sin(C * 3.14159 / 180)项目管理者联盟
UpPoint(2 * I + 1) = CentrePoint(2 * I + 1) - 0.5 * T(I) * Cos(C * 3.14159 / 180)www.mypm.net
DownPoint(2 * I) = CentrePoint(2 * I) - 0.5 * T(I) * Sin(C * 3.14159 / 180)
DownPoint(2 * I + 1) = CentrePoint(2 * I + 1) + 0.5 * T(I) * Cos(C * 3.14159 / 180)club.mypm.net
Next I项目管理者联盟
Set UpPolyline = ThisDrawing.ModelSpace.AddLightWeightPolyline(UpPoint)pmp.mypm.net
Set DownPolyline = ThisDrawing.ModelSpace.AddLightWeightPolyline(DownPoint)club.mypm.net
For K = 0 To M项目管理者联盟
Point(2 * K) = UpPoint(2 * K)项目管理者联盟
Point(2 * K + 1) = UpPoint(2 * K + 1)项目管理者联盟
Next K项目管理者联盟
For L = M + 1 To 2 * M + 1PgMp.mypm.net
Point(2 * L) = DownPoint(4 * M - 2 * L + 2)项目管理者联盟
Point(2 * L + 1) = DownPoint(4 * M - 2 * L + 3)项目管理者联盟
Next L项目管理者联盟
Set PLine = ThisDrawing.ModelSpace.AddLightWeightPolyline(Point)项目管理者联盟
项目管理培训
这里给Point变量赋值时需要用到数学中的数列有关知识，要保证上下游弧上的微分点是一个方向排列，即顺时针或逆时针。然后利用MOVE命令将Pline平移到H高程，到此子程序完成使命。项目管理者联盟
项目管理者联盟
2、主程序的编写转自项目管理者联盟
项目管理者联盟
由于需要根据拱端、拱冠梁特性及参数方程，确定整个拱坝体型，先要定义两个一维数组XL、XR分别存放左右拱端半弦长值，然后编写程序用内插法计算出任一高程的拱端半弦长及半中心角αl、αr，并计算出此高程H上拱圈各参数，再调用求分缝直线中心角值的FengFeng子函数,求出各横缝直线的半中心角值，求出以上参数后，再调用GongquanDraw子程序画出H高程上的拱圈。项目管理者联盟
如果左右拱圈不对称，要分别编写主程序、子程序及子函数。pmp.mypm.net
项目管理者联盟
3、整个拱坝绘图程序blog.mypm.net
blog.mypm.net
这里又要用到一个微分原理，即在高程方向上，确定坝底和坝项高程H1、H2，然后利用一个循环结构调用子程序GongquanDraw绘制高程H1、H1+Δh、、H1+2*Δh、H1+3*Δh……、H2上各拱圈，最后再将各高程的拱圈生成面域后，沿高程方向伸长项目经理博客

本文为项目管理者联盟联盟会员原创文章，授权发布，非经同意不得转载！

[发表评论]

本站热点

栏目说明

《文库》栏目为项目管理者联盟网站核心栏目，收录了十大行业项目管理文章5000余篇，囊括了项目管理五个阶段、九个知识领域的相关文章，是广大项目管理爱好者学习的知识库，欢迎大家发表原创文章、转贴文章，或直接发给编辑。须联盟会员且登陆后才能发表文章。

项目管理活动

活动QQ群：531390275
免费积累PDU,仅500人
2022年项目管理活动计划
2021活动精彩回顾

原创排行榜

项目管理评论杂志	311	高扬	106
乔东	100	项目管理	84
高国伟	61	人月神话	60
张为	59	郭致星	52
蒋昕炜	46	肖杨	38
曾伟强	37	潘德有	36

搜索文章

关键词：

行业：

团队成本风险进度
沟通采购质量合同

更多>> 专题集锦

企业项目化管理

PMO实践与应用

如何处理项目客户关系

经理访谈

个人专栏

王树文

赵春明

高国伟

项目管理者联盟特刊

	联盟特刊是对网站会员发行的内部刊物，刊物内容包括：案例及分析等，得到了会员好评。
电子期刊：
特刊下载：
2017合刊 2016合刊 2015合刊 2014合刊 2010合刊 2009合刊 2008合刊 2004合刊 2005合刊 2006合刊 2007合刊

施工企业管理

	《施工企业管理》创刊于1986年1月，中国施工企业管理协会主办，是反映施工企业管理杂志。
浏览往期：

建造师杂志

	《建造师》杂志由清华国际工程项目管理研究院主办，是中国面向建设企业管理人的高端杂志。
浏览往期：

如转载本站文章，必须于文章开头处注明转自“项目管理者联盟”，并注明原作者

PMI,Project Management Professional, OPM3, PMBOK, PMP，PgMP，PfMP，PMI-ACP，PMI-PBA
and the PMI Registered Education Provider logo are registered trademarks of the Project Management Institute, Inc.