
在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...