基于VB二次开发深沟球轴承参数化设计.docx

VB二次开发深沟球轴承参数化设计程序西南交通大学机械CAD课程大作业设计说明书 设计题目：基于VB二次开发深沟球轴承参数化设计指导教师：熊鹰组员信息：姓名学号班级姓名学号班级周成东20091148机械12班黄世雄20091128机械12班杜亮20091135机械12班张宇轩20091155机械13班郑丹20091172机械13班李崇翊20090995机械12班张睿20091139机械12班刘翔20091129机械12班2012年12月目录一、 内容简介 2二、 设计思路 2 2.1语言选择 2 2.2链接AtuoCAD,Access 2 2.3绘制GUI界面和编写*.exe程序 02三、程序结构 03四、关键功能实现 044.1数据库的编写与链接 044.2调用AtuoCAD绘制图形 09 4.2.1 A4图框绘制 09 4.2.2 轴承绘制 10五、程序使用方法 12六、总结与展望 13七、附录 13参考文献 28一、 内容简介Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。我们以VB为基础进行二次开发，并使用VB平台建立了GUI界面，编辑参数化设计程序调用AtuoCAD实现深沟球轴承的自动绘制，并且实现与Acess数据库的链接，可以自由的选择各类型号，提高了效率二、 设计思路2.1语言选择 可供我们选择的语言有AtuoLisp语言，AtuoVBA语言，VB与语言。由于一开始写小作业的时候对lisp了解较多，开始是准备选择lisp语言，但是考虑到lisp语言本身难度相比VB或VBA较大，同时建立GUI界面不是那么容易，因此最终还是在VBA或者VB当中抉择。但是在链接数据库的时候需要设置一些选项的属性，VBA需要用编程来实现，总体觉得麻烦，并且VB可以生成单独的应用程序，对以后学习有帮助，所以最图（1）VB6.0界面2.2链接AtuoCAD,Access由于选择的是AtuoCAD平台，所以需要用VB调用AtuoCAD,同时要用到数据库，所以还应该连接上数据文件，本次我们选择的是Access2.3绘制GUI界面和编写*.exe程序GUI界面要有用户自由选择主视图中心点，并能将选择到的坐标显示在X、Y、Z文本框内；然后通过选择下拉框的轴承型号，自动得到内径、外径、宽度等参数。单击绘制图框，打开AtuoCAD并绘制图框，单击绘制轴承则自动绘制轴承。单击取消则程序结束。接下来就是A4图框和轴承主视图和左视图的绘制，然后保存成*.exe。具体流程图见程序结构，源程序太长，就留在附录部分。三、程序结构系统名称为GB6xxx，即国标60000系列轴承的意思。程序只有一个GUI界面，具体结构如图（8）整个form绘图模块拾取中心点绘制图框轴承选择轴承型号图（2）GUI结构打开AtuoCAD图框绘制流程图： 设置各点坐标分别设置图层线宽线型等使用多段线绘图设置文字样式并写字 图（3）A4图框绘制流程图轴承绘制流程图：定义通用变量计算各圆半径设置图层绘制主视图基本结构绘制剖面线绘制左视图上半部分镜像得到全部视图标注图（4）轴承绘制流程图四、关键功能实现4.1数据库的编写与链接通过Acess2010建立部分数据的数据库，将最后文本存为2003版即*.mdb，数据界面如图（2）图（5）Access数据表因为Acess不区分大小写，所以内径d用d1代替，除圆角半径r为单精度型，其余数据均为长整型。注意使用的时候可能由于绝对路径的关系，需要将*.mdb文件放在D:My Documents深沟球轴承库.mdb才能正常使用本次作业通过ADO Data控件来实现，使用ADO Data控件之前，选择“工程”菜单的“部件”菜单项，然后选中“部件”对话框的Microsoft ADO Data Control 6.0(OLE DB)复选框，再单击“确定”按钮，将其加到工具箱后拖放至应用程序的窗体中。数据库连接下拉框 图（6） 在属性窗口中选择ConnectionString属性，然后单击右侧的“”按钮，打开“属性页”对话框。 图（7） 图（7）为ADO Data控件ConnectionString属性页接着选中“生成”按钮，弹出“数据链接属性”对话框，并在“提供者”选项卡中选择“Microsoft Jet 4.0 OLE DB Provider”图（8）数据链接属性对话框1接下来点击“下一步”按钮，转到“连接”选项卡，通过“”按钮选择前面建立的“深沟球轴承库.mdb”。图（9）为数据链接属性对话框2可以点击“测试连接”按钮测试数据库设置是否成功。然后点击“确定”按钮关闭对话框。接下来决定从数据库中检索的信息，即设置ADO Data控件的“RecordSource”属性。在记录源属性页中选择记录源的命令类型为表，表的名称指定为前面建立好的“深沟球轴承”表。图（10）为ADO Data控件的记录源属性页由于ADO Data控件仅用于链接数据库，不需要用户操作，故将其“Visible”属性设为“False”。将数据库中的记录显示在界面的相应控件中。在VB中提供了DataCombo控件，可以实现与数据库中特定的字段绑定而自动填充下拉列表，极大地简化了程序设计。DataCombo不是VB默认工具箱中的控件，需要用户手工添加进来。选择“工程”菜单的“部件”菜单项，然后在“部件”对话框中选中“Microsoft DataList Control 6.0(OLEDB)”复选框，单击“确定”按钮将其添加到工具箱中。将DataCombo控件拖放到窗体的适当位置后设置其属性如下：表（1）为DataCombo控件属性设置属性名称值DataSourceAdodc1RowSourceAdodc1ListField轴承代号BoundColumn轴承代号Text清空 表（1）同时将D,d1，B文本框DataField属性设置为D，d1，B。DataSource为Adodc1这样完成整个数据的连接。4.2AtuoCAD的调用2.2链接AtuoCAD,Access 使用VB进行二次开发第一个要解决的问题就是如何通过建立的应用程序来打开AtuoCAD，首先是要引用AtuoCAD类型库，方法为：工程-引用-AutoCAD2008type Library，如图（1）：勾选复选框即可 图（11）用以下代码调用AtuoCAD：On Error Resume NextDim acadApp As AcadApplicationSet acadApp = GetObject(, AutoCAD.Application)If Err ThenErr.ClearSet acadApp = CreateObject(AutoCAD.Application)If Err ThenMsgBox Err.DescriptionExit SubEnd IfEnd IfacadApp.Visible = TrueDim acadDoc As AcadDocumentSet acadDoc = acadApp.ActiveDocument4.2调用AtuoCAD绘制图形 4.2.1 A4图框绘制1、首先定义点绘制图框Dim PlineObj As AcadPolylineDim point(0 To 14) As Double外边框第一个点point(0) = 0point(1) = 0point(2) = 02、设置图层Dim Pline1Obj As AcadPolylineDim NewLayerObj As AcadLayerSet NewLayerObj = acadDoc.Layers.Add(边框)acadDoc.ActiveLayer = NewLayerObjNewLayerObj.Color = acYellowNewLayerObj.Lineweight = acLnWt0503、绘制多段线Set PlineObj = acadDoc.ModelSpace.AddPolyline(point2)4、修改文字样式文字输入修改样式Dim NewLayer1Obj As AcadLayerSet NewLayer1Obj = acadDoc.Layers.Add(文字)acadDoc.ActiveLayer = NewLayer1ObjNewLayer1Obj.Color = acRedDim FontFileName As StringDim TexBold As BooleanDim TextCharSet As LongDim TextPFamily As LongFontFileName = 楷体_GB2312acadDoc.ActiveTextStyle.SetFont FontFileName, TextBold, TextItalic, TextCharSet, TextPFamilyacadDoc.Regen acActiveViewport5、写字Set Text2Obj = acadDoc.ModelSpace.AddText(TextString2, Inspoint2, TextHeight)TextObj.Update图（12）A4图框4.2.2 轴承绘制1、绘制圆Dim CircleObj1(0 To 0) As AcadEntityDim CircleObj2(0 To 0) As AcadEntityDim CircleObj3 As AcadCircleDim CircleObj4 As AcadCircleDim CircleObj5(0 To 0) As AcadEntityDim CircleObj6(0 To 0) As AcadEntitySet CircleObj1(0) = acadDoc.ModelSpace.AddCircle(cen, d1 / 2)Set CircleObj2(0) = acadDoc.ModelSpace.AddCircle(cen, (D + 3 * d1) / 8)Set CircleObj3 = acadDoc.ModelSpace.AddCircle(cen, (4 * D + 4 * d1 - Sqr(3) * D + Sqr(3) * d1) / 16)Set CircleObj4 = acadDoc.ModelSpace.AddCircle(cen, (4 * D + 4 * d1 + Sqr(3) * D - Sqr(3) * d1) / 16)Set CircleObj5(0) = acadDoc.ModelSpace.AddCircle(cen, (3 * D + d1) / 8)Set CircleObj6(0) = acadDoc.ModelSpace.AddCircle(cen, D / 2)2、绘制剖面线剖面线绘制Dim NewLayerObj4 As AcadLayerSet NewLayerObj4 = acadDoc.Layers.Add(剖面线)acadDoc.ActiveLayer = NewLayerObj4acadDoc.Linetypes.Load CONTINUOUS, acad.linNewLayerObj4.Color = acMagentaDim PatternName As StringDim PatternType As LongPatternName = ANSI31PatternType = 0Dim HatchObj As AcadHatchSet HatchObj = acadDoc.ModelSpace.AddHatch(PatternType, PatternName, True)选择边界HatchObj.AppendOuterLoop (CircleObj6)HatchObj.AppendInnerLoop (CircleObj5)HatchObj.AppendOuterLoop (CircleObj2)HatchObj.AppendInnerLoop (CircleObj1)HatchObj.Evaluate3、左视图部分Dim LWPlineObj2 As AcadLWPolylineDim LWPlineObj3 As AcadLWPolylineDim LeftPoint4(0 To 3) As DoubleDim LeftPoint5(0 To 3) As DoubleLeftPoint4(0) = SPoint(0) + 20LeftPoint4(1) = cen(1) + (4 * D + 4 * d1 - Sqr(3) * D + Sqr(3) * d1) / 16LeftPoint4(2) = LeftPoint3(0) + BLeftPoint4(3) = cen(1) + (4 * D + 4 * d1 - Sqr(3) * D + Sqr(3) * d1) / 16Set LWPlineObj2 = acadDoc.ModelSpace.AddLightWeightPolyline(LeftPoint4)LeftPoint5(0) = SPoint(0) + 20LeftPoint5(1) = cen(1) + (4 * D + 4 * d1 + Sqr(3) * D - Sqr(3) * d1) / 16LeftPoint5(2) = LeftPoint3(0) + BLeftPoint5(3) = cen(1) + (4 * D + 4 * d1 + Sqr(3) * D - Sqr(3) * d1) / 16Set LWPlineObj3 = acadDoc.ModelSpace.AddLightWeightPolyline(LeftPoint5)4、镜像图形镜像所有左视图上半部分对象LWPlineObj5.Mirror LeftPoint, LeftPoint1LWPlineObj4.Mirror LeftPoint, LeftPoint1LeftCircleObj.Mirror LeftPoint, LeftPoint1LWPlineObj2.Mirror LeftPoint, LeftPoint1LWPlineObj3.Mirror LeftPoint, LeftPoint1LWPlineObj1.Mirror LeftPoint, LeftPoint1PlineObj.Mirror LeftPoint, LeftPoint15、尺寸标注Dim NewLayerObj5 As AcadLayerSet NewLayerObj5 = acadDoc.Layers.Add(标注)acadDoc.ActiveLayer = NewLayerObj5acadDoc.Linetypes.Load CONTINUOUS, acad.linacadDoc.ActiveLinetype = acadDoc.Linetypes.Item(CONTINUOUS)NewLayerObj5.Color = acBlueDim DimObj1 As AcadDimAligned BDim DimObj2 As AcadDimAligned d1Dim DimObj3 As AcadDimAligned DDim DimObj4 As AcadDimAligned B/2Dim DimObj5 As AcadDimAligned 球直径A/2Dim DimObj6 As AcadDimAligned A/2BDim dimpoint1(0 To 2) As DoubleDim dimpoint2(0 To 2) As DoubleDim dimLocation1(0 To 2) As Doubledimpoint1(0) = LeftPoint2(3)dimpoint1(1) = LeftPoint2(4)dimpoint1(2) = cen(2)dimpoint2(0) = LeftPoint2(6)dimpoint2(1) = LeftPoint2(7)dimpoint2(2) = cen(2)dimLocation1(0) = dimpoint1(0) + B / 2dimLocation1(1) = dimpoint1(1) + 20dimLocation1(2) = cen(2)Set DimObj1 = acadDoc.ModelSpace.AddDimAligned(dimpoint1, dimpoint2, dimLocation1)图（13）轴承视图五、 程序使用方法1、双击exe文件进入GUI界面2、单击绘制图框按钮，调用CAD绘制图框得到结果如图（12）3、单击拾取中心点，然后在图框任一位置单击，得到中心点坐标图（14）拾取点坐标4、从下拉框中选择轴承的型号，得到各个参数图（15）型号选择下拉框5、单击绘制轴承，绘制轴承图形如图(13)六、 总结与展望就以本次作业来说，内容是非常简单的，但是使我们对二次开发有了一定的理解，同时对VB，VBA，lisp，有了了解，对AtuoCAD的学习进一步加深。同时，对进行一次参数化设计有了一定的全局观念。总的来说，完成这次作业有很大的收获。其实这次一开始的语言选择还是有一定问题的，要是直接用VBA则可以解决现在不能进行布尔运算的问题。同时也可以解决复杂剖面线边界的问题。另一方面，这次设计没有进行任何受力计算，参数化程度还不够高，而且没有三维的。这对以后的学习方向有了一个很好的目标。七、 附录1、源程序Private cen(0 To 2) As DoublePrivate cenX As DoublePrivate cenY As DoublePrivate cenZ As DoublePrivate d1 As DoublePrivate D As DoublePrivate B As DoublePrivate Sub Command1_Click()On Error Resume NextDim acadApp As AcadApplicationSet acadApp = GetObject(, AutoCAD.Application)If Err ThenErr.ClearSet acadApp = CreateObject(AutoCAD.Application)If Err ThenMsgBox Err.DescriptionExit SubEnd IfEnd IfacadApp.Visible = TrueDim acadDoc As AcadDocumentSet acadDoc = acadApp.ActiveDocument绘制图框Dim PlineObj As AcadPolylineDim point(0 To 14) As Double外边框第一个点point(0) = 0point(1) = 0point(2) = 0第二个点point(3) = 0point(4) = 210point(5) = 0第三个point(6) = 297point(7) = 210point(8) = 0第四个point(9) = 297point(10) = 0point(11) = 0point(12) = 0point(13) = 0point(24) = 0Set PlineObj = acadDoc.ModelSpace.AddPolyline(point)内边框Dim Pline1Obj As AcadPolylineDim NewLayerObj As AcadLayerSet NewLayerObj = acadDoc.Layers.Add(边框)acadDoc.ActiveLayer = NewLayerObjNewLayerObj.Color = acYellowNewLayerObj.Lineweight = acLnWt050Dim point1(0 To 14) As Double第一个点point1(0) = 25point1(1) = 5point1(2) = 0第二个点point1(3) = 25point1(4) = 205point1(5) = 0第三个point1(6) = 292point1(7) = 205point1(8) = 0第四个point1(9) = 292point1(10) = 5point1(11) = 0point1(12) = 25point1(13) = 5point1(24) = 0Set PlineObj = acadDoc.ModelSpace.AddPolyline(point1)绘制简易边框Dim point2(0 To 14) As Double第一个点point2(0) = 242point2(1) = 21point2(2) = 0第二个点point2(3) = 292point2(4) = 21point2(5) = 0第三个point2(6) = 292point2(7) = 13point2(8) = 0第四个point2(9) = 242point2(10) = 13point2(11) = 0point2(12) = 242point2(13) = 21point2(14) = 0Set PlineObj = acadDoc.ModelSpace.AddPolyline(point2)11-10-14-13Dim point3(0 To 11) As Double第一个点point3(0) = 242point3(1) = 13point3(2) = 0第二个点point3(3) = 242point3(4) = 5point3(5) = 0第三个point3(6) = 258point3(7) = 5point3(8) = 0第四个point3(9) = 258point3(10) = 21point3(11) = 0Set PlineObj = acadDoc.ModelSpace.AddPolyline(point3)ZoomAll文字输入修改样式Dim NewLayer1Obj As AcadLayerSet NewLayer1Obj = acadDoc.Layers.Add(文字)acadDoc.ActiveLayer = NewLayer1ObjNewLayer1Obj.Color = acRedDim FontFileName As StringDim TexBold As BooleanDim TextCharSet As LongDim TextPFamily As LongFontFileName = 楷体_GB2312acadDoc.ActiveTextStyle.SetFont FontFileName, TextBold, TextItalic, TextCharSet, TextPFamilyacadDoc.Regen acActiveViewport写字Dim TextObj As AcadTextDim TextString As StringDim Inspoint(0 To 2) As DoubleDim TextHeight As DoubleTextString = 姓名Inspoint(0) = 242Inspoint(1) = 15Inspoint(2) = 0TextHeight = 5Set TextObj = acadDoc.ModelSpace.AddText(TextString, Inspoint, TextHeight)TextObj.UpdateDim Text1Obj As AcadTextDim TextString1 As StringDim Inspoint1(0 To 2) As DoubleTextString1 = 学号Inspoint1(0) = 242Inspoint1(1) = 7Inspoint1(2) = 0Set Text1Obj = acadDoc.ModelSpace.AddText(TextString1, Inspoint1, TextHeight)TextObj.UpdateDim Text2Obj As AcadTextDim TextString2 As StringDim Inspoint2(0 To 2) As DoubleTextString2 = 周成东Inspoint2(0) = 260Inspoint2(1) = 15Inspoint2(2) = 0Set Text2Obj = acadDoc.ModelSpace.AddText(TextString2, Inspoint2, TextHeight)TextObj.UpdateDim Text3Obj As AcadTextDim TextString3 As StringDim Inspoint3(0 To 2) As DoubleTextString3 = 20091148Inspoint3(0) = 260Inspoint3(1) = 7Inspoint3(2) = 0Set Text3Obj = acadDoc.ModelSpace.AddText(TextString3, Inspoint3, TextHeight)TextObj.UpdateEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Command3_Click()拾取点Dim cenPoint As VariantForm1.HideOn Error Resume NextDim acadApp As AcadApplicationSet acadApp = GetObject(, AutoCAD.Application)If Err ThenErr.ClearSet acadApp = CreateObject(AutoCAD.Application)If Err ThenMsgBox Err.DescriptionExit SubEnd IfEnd IfacadApp.Visible = TrueDim acadDoc As AcadDocumentSet acadDoc = acadApp.ActiveDocumentcenPoint = acadDoc.Utility.GetPoint(, )Text1.Text = CStr(cenPoint(0)Text2.Text = CStr(cenPoint(1)Text3.Text = CStr(cenPoint(2)ShowEnd SubPrivate Sub Command4_Click()On Error Resume NextDim acadApp As AcadApplicationSet acadApp = GetObject(, AutoCAD.Application)If Err ThenErr.ClearSet acadApp = CreateObject(AutoCAD.Application)If Err ThenMsgBox Err.DescriptionExit SubEnd IfEnd IfacadApp.Visible = TrueDim acadDoc As AcadDocumentSet acadDoc = acadApp.ActiveDocumentcenX = CDbl(Text1.Text)cenY = CDbl(Text2.Text)cenZ = CDbl(Text3.Text)d1 = CDbl(Text4.Text)D = CDbl(Text5.Text)B = CDbl(Text6.Text)drawZhouChengUnload MeEndEnd SubPrivate Sub DataCombo1_Change()Adodc1.Recordset.MoveFirstWhile Adodc1.Recordset.EOF = False And _Adodc1.Recordset(轴承代号) DataCombo1.TextAdodc1.Recordset.MoveNextWendEnd SubPublic Sub drawZhouCheng()On Error Resume NextDim acadApp As AcadApplicationSet acadApp = GetObject(, AutoCAD.Application)If Err ThenErr.ClearSet acadApp = CreateObject(AutoCAD.Application)If Err ThenMsgBox Err.DescriptionExit SubEnd IfEnd IfacadApp.Visible = TrueDim acadDoc As AcadDocumentSet acadDoc = acadApp.ActiveDocument绘制主视图Dim point1(0 To 2) As DoubleDim point2(0 To 2) As DoubleDim point3(0 To 2) As DoubleDim point4(0 To 2) As Double中心点cen(0) = cenXcen(1) = cenYcen(2) = cenZDim CircleObj1(0 To 0) As AcadEntityDim CircleObj2(0 To 0) As AcadEntityDim CircleObj3 As AcadCircleDim CircleObj4 As AcadCircleDim CircleObj5(0 To 0) As AcadEntityDim CircleObj6(0 To 0) As AcadEntity外圈内圈凹槽Dim NewLayerObj1 As AcadLayerSet NewLayerObj1 = acadDoc.Layers.Add(轴承边框线)acadDoc.ActiveLayer = NewLayerObj1NewLayerObj1.Color = acGreenNewLayerObj1.Lineweight = acLnWt050Set CircleObj1(0) = acadDoc.ModelSpace.AddCircle(cen, d1 / 2)Set CircleObj2(0) = acadDoc.ModelSpace.AddCircle(cen, (D + 3 * d1) / 8)Set CircleObj3 = acadDoc.ModelSpace.AddCircle(cen, (4 * D + 4 * d1 - Sqr(3) * D + Sqr(3) * d1) / 16)Set CircleObj4 = acadDoc.ModelSpace.AddCircle(cen, (4 * D + 4 * d1 + Sqr(3) * D - Sqr(3) * d1) / 16)Set CircleObj5(0) = acadDoc.ModelSpace.AddCircle(cen, (3 * D + d1) / 8)Set CircleObj6(0) = acadDoc.ModelSpace.AddCircle(cen, D / 2)剖面线绘制Dim NewLayerObj4 As AcadLayerSet NewLayerObj4 = acadDoc.Layers.Add(剖面线)acadDoc.ActiveLayer = NewLayerObj4acadDoc.Linetypes.Load CONTINUOUS, acad.linNewLayerObj4.Color = acMagentaDim PatternName As StringDim PatternType As LongPatternName = ANSI31PatternType = 0Dim HatchObj As AcadHatchSet HatchObj = acadDoc.ModelSpace.AddHatch(PatternType, PatternName, True)选择边界HatchObj.AppendOuterLoop (CircleObj6)HatchObj.AppendInnerLoop (CircleObj5)HatchObj.AppendOuterLoop (CircleObj2)HatchObj.AppendInnerLoop (CircleObj1)HatchObj.Evaluate滚珠构造线Dim NewLayerObj2 As AcadLayerSet NewLayerObj2 = acadDoc.Layers.Add(构造线)acadDoc.ActiveLayer = NewLayerObj2NewLayerObj2.Color = acRedacadDoc.Linetypes.Load CENTER, acad.linacadDoc.ActiveLinetype = acadDoc.Linetypes.Item(CENTER)中心线Dim LineObj As AcadLineDim LineObj1 As AcadLineDim SPoint(0 To 2) As DoubleDim EPoint(0 To 2) As DoubleDim SPoint1(0 To 2) As DoubleDim EPoint1(0 To 2) As DoubleSPoint(0) = cen(0) + 2 + D / 2SPoint(1) = cen(1)SPoint(2) = cen(2)EPoint(0) = cen(0) - 2 - D / 2EPoint(1) = cen(1)EPoint(2) = cen(2)SPoint1(0) = cen(0)SPoint1(1) = cen(1) - 2 - D / 2SPoint1(2) = cen(2)EPoint1(0) = cen(0)EPoint1(1) = cen(1) + 2 + D / 2EPoint1(2) = cen(2)Set LineObj = acadDoc.ModelSpace.AddLine(SPoint, EPoint)Set LineObj1 = acadDoc.ModelSpace.AddLine(SPoint1, EPoint1)滚珠构造线绘制Dim CircleObj7 As AcadCircleSet CircleObj7 = acadDoc.ModelSpace.AddCircle(cen, (D + d1) / 4)左视图对称线Dim LeftLineObj As AcadLineDim LeftPoint(0 To 2) As DoubleDim LeftPoint1(0 To 2) As DoubleLeftPoint(0) = SPoint(0) + 18LeftPoint(1) = cen(1)LeftPoint(2) = cen(2)LeftPoint1(0) = SPoint(0) + 18 + B + 4LeftPoint1(1) = cen(1)LeftPoint1(2) = cen(2)Set LeftLineObj = acadDoc.ModelSpace.AddLine(LeftPoint, LeftPoint1)绘制滚珠acadDoc.ActiveLayer = NewLayerObj1acadDoc.Linetypes.Load CONTINUOUS, acad.linacadDoc.ActiveLinetype = acadDoc.Linetypes.Item(CONTINUOUS)Dim CircleObj8 As AcadCircleDim CircleObj9 As AcadCircleDim CircleObj10 As AcadCircleDim CircleObj11 As AcadCirclepoint1(0) = cen(0)point1(1) = cen(1) + (D + d1) / 4point1(2) = cen(2)Set CircleObj8 = acadDoc.ModelSpace.AddCircle(point1, (D - d1) / 8)point2(0) = cen(0) + (D + d1) / 4point2(1) = cen(1)point2(2) = cen(2)Set CircleObj9 = acadDoc.ModelSpace.AddCircle(point2, (D - d1) / 8)point3(0) = cen(0)point3(1) = cen(1) - (D + d1) / 4point3(2) = cen(2)Set CircleObj10 = acadDoc.ModelSpace.AddCircle(point3, (D - d1) / 8)point4(0) = cen(0) - (D + d1) / 4point4(1) = cen(1)point4(2) = cen(2)Set CircleObj11 = acadDoc.ModelSpace.AddCircle(point4, (D