A-A+

CATIA使用VBA(VBS)二次開發在工程圖背景圖中創建草圖文字

2019年06月23日 14:01:09 CAD 暫無評論 閱讀 0 views 次

在CATIA工程圖中制作标題欄、明細表時均需進入CATIA工程圖的背景模式中(Sheet Background)。以下代碼為在CATIA中使用VBA(VBS)二次開發在工程圖背景圖中創建草圖文字的方法。

Sub catmain()
Dim lBView,lFact,lTexts,Ln,lView
Dim LH,LW,Tx
Set lView = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.ActiveView
Set lBView = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item("Background View")
Set lTexts = lBView.Texts
Set lFact = lBView.Factory2D
'獲取圖紙的尺寸
LH = CATIA.ActiveDocument.Sheets.ActiveSheet.GetPaperHeight
LW = CATIA.ActiveDocument.Sheets.ActiveSheet.GetPaperWidth
'激活背景視圖
lBView.Activate
Tx=LW-100
'繪制直線
Set Ln = lFact.CreateLine(Tx, 0, Tx, 30) 
Set Ln = lFact.CreateLine(Tx, 30, LW, 30)
'繪制文字
lFont = "FAWFONT"
Set Lt = lTexts.Add("24757.463748473.cn", Tx, 30)
'設置文字位置
Lt.AnchorPosition = catTopLeft
'設置字體
Lt.SetFontName 0, 0, lFont
'設置文字大小
Lt.SetFontSize 0,0,10
'取消背景圖激活,返回普通視圖
lView.Activate
End Sub

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

使用以上方法即可通過二次開發來創建CATIA工程圖的标題欄、BOM标、圖框等。關于草圖元素的繪制及屬性設置方法詳細介紹可參考《CATIA使用VBA(VBS)二次開發在工程圖激活的視圖中繪制草圖》

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

微信公衆賬号

給我留言