A-A+

CATIA使用VBA(VBS)二次開發在工程圖激活的視圖中創建文字

2019年06月22日 08:54:23 CAD 暫無評論 閱讀 24 views 次

在CATIA中使用VBA(VBS)進行二次開發,可通過如下代碼在工程圖激活的視圖中創建文字:

Sub catmain()
Dim lView,lTexts,lFont,Lt
Set lView = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.ActiveView
Set lTexts = lView.Texts
lFont = "FAWFONT"
Set Lt = lTexts.Add("zhongte95525.cn", 10, 20)
'設置文字位置
Lt.AnchorPosition = catTopLeft
'設置字體
Lt.SetFontName 0, 0, lFont
'設置文字大小
Lt.SetFontSize 0,0,10
End Sub

以上代碼所創建的文字效果如下所示:

本站微信公衆賬号,歡迎關注,如有問題可在下方留言也可在公衆賬号提問。

微信公衆賬号

給我留言