CADCAM技术评分标准.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
CADCAM技术评分标准

CAD/CAM技术上机实验评分标准 1 Pro/E零件模型的建立 实验目的 掌握运用CAD软件建立零件模型的方法 实验内容 掌握各种规则特征(如孔、倒圆角、倒角、壳)和非规则特征(如)的创建方法 综合运用各特征的创建方法 实验步骤 综合实例1(40’) 拉伸圆柱体的创建(10’)。 壳特征的创建(10’) 扫描特征的创建(15’) 倒圆角、倒角特征的创建(5’) 综合实例2(60’) 底座拉伸体的创建。(10’) 后端面拉伸体的创建。(10’) 后端面上圆台拉伸体的创建。(10’) 加强筋的创建。(15’) 异型孔的创建。(10’) 倒圆角的创建。(5’) 2 Pro/E零件模型的建立 实验目的 掌握运用CAD软件建立零件模型的方法 实验内容 掌握各个非规则特征(如异形孔、内部减材料、切减材料、加材料、肋、管道)的创建方法 掌握方向性阵列和圆形阵列的方法 综合运用各特征的创建方法 实验步骤 综合实例2(60’) 底座拉伸体的创建。(10’) 上端座拉伸体的创建。(10’) 侧面斜台的创建。(5’) 上端面异型孔的创建。(10’) 小孔及阵列的创建。(10’) 上端面侧孔的创建。(5’) 底座分布孔的创建。(5’) 侧面凹体的创建。(5’) 综合实例4(40’) 回转面的创建。(10’) 中部扫面曲面的创建。(10’) 扫描曲面的延伸和镜像。(10’) 曲面的合并和实体化。(10’) 3 CAD系统的二次开发 实验目的 掌握运用先进的开发工具对CAD软件进行二次开发的方法。 实验内容 建立VB与AutoCAD2000的连接 用VB创建用户界面 写入程序代码,实现VB在AutoCAD2000中写文字的功能 实验步骤 新建VB应用程序,点击“工程”――“引用”,选中AutoCAD2000 Object Library,建立VB和AutoCAD2000之间的连接。(20’) 将主窗体的“Caption”属性改成“AutoCAD”(5’) 建立三个Command控件,“Name”属性分别设定为“CmdlinkCAD”,“CmdCADCommand”,“CmdEnd”(5’) 将“Caption”属性分别设定为“连接CAD”,“运行CAD”,“退出”(5’) 设定好各控件的位置。(5’) 在主窗体的代码窗口输入以下代码。 Option Explicit (15’) Dim acadapp As AcadApplication AutoCAD应用程序对象变量 Dim preference As AcadPreferences AutoCAD优先设置对象变量 Dim acaddoc As AcadDocument AutoCAD文档对象变量 Dim paSpace As AcadPaperSpace AutoCAD图纸空间对象变量 Dim MoSpace As AcadModelSpace AutoCAD模型空间对象变量 Private Sub CmdCADCommand_Click() (20’) Dim insPnt(0 To 2) As Double 定义文字的位置 insPnt(0) = 2 insPnt(1) = 4 insPnt(2) = 0 Dim textStr As String textStr = AutoCAD Automation 定义文字的内容 Dim TextHeight As Double 定义文字的高度 TextHeight = 1# Dim txtObj As Object Set txtObj = MoSpace.AddText(textStr, insPnt, TextHeight)写文字 End Sub Private Sub CmdEnd_Click() (25’) Unload Me End Sub Private Sub CmdlinkCAD_Click() On Error Resume Next If acadapp Is Nothing Then Set acadapp = New AcadApplication End If acadapp.Visible = True Set preference = acadapp.Preferences Set acaddoc = acadapp.ActiveDocument Set MoSpace = acaddoc.ModelSpace Set paSpace = acaddoc.PaperSpace End Sub 4 MasterCAM数控加工与仿真 实

文档评论(0)

asd522513656 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档