SendKeys“B”,True

　　SendKeys“A”,True

　　SendKeys“R”,True

　　SendKeys“U”,True

　　SendKeys“N”,True

　　SendKeys“”,True

　　SendKeys“S”,True

　　SendKeys“T”,True

　　SendKeys“A”,True

　　SendKeys“R”,True

　　SendKeys“T”,True

　　SendKeys“P”,True

　　SendKeys“R”,True

　　SendKeys“O”,True

　　SendKeys“G”,True

　　SendKeys“R”,True

　　SendKeys“A”,True

　　SendKeys“M”,True

　　SendKeys“{ENTER}”,True

　　EndSub

　　加载工程前,启动器程序将自身窗口隐藏,完成上述操作后,该程序自动退出。

　　2)图形绘制技术[4,5]。本系统大部分的运算工作是通过各种算法计算各控制点坐标,将这些控制点按规则绘图就形成各种限界图形。系统结合AutoCAD的画图工具,实现了自动绘图功能,以下是系统绘图功能的相关技术。

　　要画图必须先确定画图的起点,可以让程序把点移动到开始点,即设置当前点,以下为设置当前绘制起点函数MoveTo(ptCurrent为当前点):

　　PublicFunctionMoveTo

　　ptCurrent=ptNew

　　EndFunction

　　VBA里内置了画线段语句AddLine,确定了线段的起点和终点之后就可以连接这两点画线段。因为AutoCAD里点的定义方式是三维的(X,Y,Z),但断面是二维的(X,Y),故要把每点的Z值设为0。以下是通过两点绘制线段函数LinePoints(ptStart为起点,ptEnd为终点)。

　　　pS=ptStart

　　pE=ptEnd

　　apStart(0)=pS.X:apStart(1)=pS.Y:apStart(2)=0

　　apEnd(0)=pE.X:apEnd(1)=pE.Y:apEnd(2)=0

　　ThisDrawing.ModelSpace.AddLineapStart,apEndEndFunction

　　为了能连续地画线,可以把前一线段的终点设为后一线段的起点,这样可以提高画线效率,并且不用重新设置线段的起点即设置当前绘制起点函数MoveTo只在画图形的第一点及中间打断的线段的第一点调用。以下为连续画线段函数LineTo:

　　LinePointsptCurrent,ptEnd

　　ptCurrent=ptEnd

　　EndFunction

　　为了方便标注及在AutoCAD绘图窗口的观察,限界图纸上要把控制点突出表示。本系统选用在各控制点画点并标注的方式显示各控制点(用户可以选择点样式)。VBA里内置了画点语句AddPoint,以下是画点函数DrawPoint:

　　apThis(0)=pt.X:apThis(1)=pt.Y:apThis(2)=0

　　ThisDrawing.ModelSpace.AddPoint(apThis)

　　EndFunction

　　某些时候限界坐标是左右对称的,此时为了节省空间,系统数据库里只存储了横坐标为正值(即Y轴右边的点),在绘图时先把Y轴右边点的横坐标变成负值(有些点坐标已为负值,这些特殊点横坐标不做变化),纵坐标值不变,这样可以得到限界上的所有点,然后绘图。以下为反转(横)坐标函数ReverseX:

　　ptNew.X=-pt.X

　　ptNew.Y=pt.Y

　　ReverseX=ptNew

　　EndFunction

　　通过以上各绘图函数,再将各种规则写入代码,就可以实现自动绘图功能。图5为A型车地下圆形隧道区间的限界设计结果,图中内容全部自动生

上一页  [1] [2] [3] [4] 下一页