菜单
　　

    Dim f As Double                    f为进给量，单位m
        Dim π As Double
    π = 3.1415926535
    在代码起始部分需要对使用到得变量进行定义和赋予初始值。而且需要注意的是在对话窗口中，输入的各数值单位是毫米和角度，在代码中，标准的单位是米和弧度，所以需要编写计算式后，才能直接使用，而且VB程序中没有对圆周率π进行定义，未进行赋初值的常量系统均赋予其初值0，所以此处要对π定义并赋值。
            a = Val(TextBox1.Text) / 1000
            b = Val(TextBox2.Text) * π / 180
            c = Val(TextBox3.Text) / 1000
            d = Val(TextBox4.Text) / 1000 + c
    e = 2 * π * Val(TextBox7.Text) / (Val(TextBox6.Text) * Val(TextBox8.Text))
            f = -Val(TextBox5.Text) * Val(TextBox7.Text) / (1000 * Val(TextBox6.Text) * Val(TextBox8.Text))        定义主要变量并赋值
    Set swApp = Application.SldWorks
        Set Part = swApp.ActiveDoc
        Set SelMgr = Part.SelectionManager
            boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
        Part.SketchManager.InsertSketch True
        Part.ClearSelection2 True
        Dim SkCircle As Object
    Set SkCircle = Part.SketchManager.CreateCircle(0, 0, 0, 0, a, 0)
    画出圆点为（0，0，0），半径为a的圆，如图4.1所示
     
    图4.1  画出圆点为（0，0，0），半径为a的圆
        Part.ClearSelection2 True
        Part.SketchManager.InsertSketch True
        Part.ShowNamedView2 "*上下二等角轴测", 8
        Part.ClearSelection2 True
            boolstatus = Part.Extension.SelectByID2("草图1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
    Part.FeatureManager.FeatureExtrusion2 True, False, False, 0, 0, 0.1, 0, False, False, False, False, 0, 0, False, False, False, False, 1, 1, 1, 0, 0, False                如图4.2所示，进行拉伸，形成长度100mm的圆柱体
     
    图4.2  拉伸圆柱体
        Part.SelectionManager.EnableContourSelection = 0
            boolstatus = Part.Extension.SelectByID2("", "FACE", 0, a, 0, True, 0, Nothing, 0)
        Part.InsertAxis2 True
            boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
        Part.SketchManager.InsertSketch True
        Part.ClearSelection2 True
        Dim SkLine As Object
    Set SkLine = Part.SketchManager.CreateLine(-0.04, 0.03, 0, -0.04, -0.03, 0)
    如图4.3所示，画建立基准面1的辅助线，（-0.04,0.03,0）和（-0.04,0.03,0）为线段两端点
  1. 上一篇：接触式平动换卷薄膜收卷机设计
  2. 下一篇：冲压发动机流量调节结构设计+文献综述

  1. solidworks陶鲁斯pt24/7纯双动...

  2. Solidworks95式步枪智能化导轨设计

  3. SolidWorks40mm的3连发自动炮炮身设计

  4. SolidWorks新型狙击榴弹发射器设计

  5. SolidWorks低膛压弹药连续发射装置研究

  6. SolidWorks频率可调式炮口减振器设计

  7. SolidWorks无轨式螺旋速冻装...

  8. 十二层带中心支撑钢结构...

  9. 当代大学生慈善意识研究+文献综述

  10. 河岸冲刷和泥沙淤积的监测国内外研究现状

  11. 大众媒体对公共政策制定的影响

  12. 电站锅炉暖风器设计任务书

  13. 中考体育项目与体育教学合理结合的研究

  14. 乳业同业并购式全产业链...

  15. 酸性水汽提装置总汽提塔设计+CAD图纸

  16. 杂拟谷盗体内共生菌沃尔...

  17. java+mysql车辆管理系统的设计+源代码

　　

About

751论文网手机版...

主页：http://www.751com.cn

关闭返回