在CATIA二次开发中可以使用VBA（VBS）的TypeName函数获取文档类型，TypeName函数的定义如下：TypeName(varname) 参数 varname 是一个Variant , 它包含除用户定义类型的变量之外的任何变量。此函数返回一个提供有关变量的信息的 String。由 TypeName 返回的字符串可以为下列任一项： 返回的字符串变量对象类型类型为 objecttype ...
在CATIA二次开发中使用VBA（VBS）的TypeName函数获取文档类型
CATIA使用VBA（VBS）二次开发在工程图背景图中创建草图文字
在CATIA工程图中制作标题栏、明细表时均需进入CATIA工程图的背景模式中（Sheet Background）。以下代码为在CATIA中使用VBA（VBS）二次开发在工程图背景图中创建草图文字的方法。Sub catmain()Dim lBView,lFact,lTexts,Ln,lViewDim LH,LW,TxSet lView = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.ActiveViewSet lBView = CATIA...
CATIA使用VBA（VBS）二次开发在工程图激活的视图中创建文字
在CATIA中使用VBA（VBS）进行二次开发，可通过如下代码在工程图激活的视图中创建文字：Sub catmain()Dim lView,lTexts,lFont,LtSet lView = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.ActiveViewSet lTexts = lView.TextslFont = "FAWFONT"Set Lt = lTexts.Add("www.leanwind.com", 10, 20)'设置文字位置Lt.AnchorPosition...
CATIA使用VBA（VBS）二次开发在工程图激活的视图中绘制草图
在CATIA中使用VBA（VBS）进行二次开发，可通过如下代码在工程图激活的视图中绘制草图：Sub catmain()Dim lView,lFact,Cl,C2,lSlct, lVisprp,lBView'获取激活视图Set lView =CATIA.ActiveDocument.Sheets.ActiveSheet.Views.ActiveView'创建二维画笔Set lFact = lView.Factory2D'创建直线、圆、样条曲线等图元...
VBA或VBS中读写EXCEL文件的方法
在VBS或VBA中读写EXCEL文件，只需要在代码中添加下面的语句即可实现： Dim App, Book, Sheet Set App = CreateObject("excel.application") '创建excel进程，VBS中为：Set App = Wscript.CreateObject("excel.application") Set Book = App.workbooks.Open("D:\Users\123.xlsx") '打开指定路径的文件 Set Sheet = Book.Shee...
CATIA二次开发：利用VBA或VBS启动CATIA并获取应用程序对象
利用VBA对CATIA进行二次开发，第一步就是要获取CATIA的应用程序对象（Application Object）。如果是在VBA内部，直接用GetObject函数即可，CATIA Automation 对象的类名为CATIA.Application，代码如下所示：Function GetCATIA() As Object Dim CATIA As Object Set CATIA = GetObject(, "CATIA.Application") If CATIA Is N...