vba代码汇总 vba的基本内容

vba代码汇总 vba的基本内容

ID:5434965

大小:1.19 MB

页数:20页

时间:2017-11-16

vba代码汇总 vba的基本内容_第1页
vba代码汇总 vba的基本内容_第2页
vba代码汇总 vba的基本内容_第3页
vba代码汇总 vba的基本内容_第4页
vba代码汇总 vba的基本内容_第5页
资源描述:

《vba代码汇总 vba的基本内容》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、第一天第二天宏录制,修改装配设计API介绍VB基本语言介绍实例-存CGRVBA基本操作API2D图API介绍中午休息零件设计API介绍知识工程API介绍曲面设计API介绍(EXCEL-VBA)练习:工程图自动获取3D模型参数Agenda宏录制,修改录制宏理解录制的宏修改宏运行宏把宏加入工具条宏、VBA、VB三种方式VisualBasic,VBA,VBScript之间的区别VBScript(VisualBasicScript):VBScript是VB的一个子集。1.更简单的VB解释语言。2.可以调运CATIA对象。3.没有数据类

2、型的区别。系统总是动态的调用函数和对象属性。(迟绑定调用对象通过他们的dispatch接口)VBA(VisualBasicforApplication):VBA是VB的一个子集。1.VBA是程序中的主机,就象Word,Excel。2.它提供了一个带有编辑器、除错器、帮助、对象浏览器、完成器的完整的开发环境。3.利用它的Tools-Reference菜单可以声明使用的对象库。这在完成和对象浏览器之间建立了一个通道。VisualBasic(VisualBasic专业版):VB是个完全的版本。1.可以编制独立的程序。2.也可以创建A

3、ctiveX和程序服务器。3.可以被编译。4.VB提供了自己的文档——《在线帮助》VB获取catia对象VB基本语言介绍VB基本语言介绍Input&outputVB基本语言介绍a=2&Val("a")b=Str(20)VB基本语言介绍Input&outputVB基本语言介绍If〈条件1〉Then〈语句块1〉ElseIf〈条件2〉Then〈语句块2〉·Else〈语句块n+1〉EndIfSelectCase〈测试变量〉Case〈表达式1〉〈语句块1〉Case〈表达式2〉〈语句块2〉·CaseElse〈语句块n+1〉EndSelec

4、t选择结构VB基本语言介绍循环结构For〈变量〉=〈初值〉To〈终值〉Step〈步长〉〈语句块〉Next〈变量〉ForEach〈对象变量〉In〈对象集〉   〈语句块〉 Next〈对象变量〉DoWhile〈条件表达式〉〈语句块〉LoopDoWhilei<10CATIA.Application.Caption=ii=i+1LoopVB基本语言介绍VB基本语言介绍CATIA结构CATIA结构CATIA结构CATIA基本操作CATIA编程基本流程Documents和Document对象添加一个文档:Part,Product,Draw

5、ingDimdocument1AsDocumentSetdocument1=CATIA.Documents.Add("Product")打开一个已经存在的文档:Setdocument1=CATIA.Documents.Open(filename)当前活动的文档:OnErrorResumeNextSetdocument1=CATIA.ActiveDocumentIfdocument1IsNothingThenErr.ClearSetdocument1=CATIA.Documents.Add(“Part”)document1.ac

6、tivateEndifCATIA.Documents.AddCATIA.Documents.CountCATIA.Documents.NameCATIA.Documents.NewFromCATIA.Documents.OpenDocuments和Document对象示例:依次激活文档Dimcount1AsIntegercount1=CATIA.Documents.CountFori=1Tocount1CATIA.Documents.Item(i).ActivateNext输出为其他格式:例如CGRdoc.ExportData

7、"c:aa","cgr"document.Activatedocument.Savedocument.SaveAsdocument.Closedocument.ExportDataWindows和Window对象逐个显示窗口名称:Dimdocument1AsDocumentSetdocument1=CATIA.ActiveDocumentDimmywindowAsWindowMsgBoxCATIA.Windows.CountForEachmywindowInCATIA.Windowsmywindow.ActivateMsgB

8、oxmywindow.NameNext

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。