A-A+

CATIA使用VBA(VBS)二次開發在工程圖激活的視圖中繪制草圖

2019年06月16日 14:24:23 CAD 暫無評論 閱讀 71 views 次

在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

'創建直線、圓、樣條曲線等圖元

Set Ln = lFact.CreateLine(0, 0, 200, 200)

set Cl = lFact.CreateClosedCircle(200,200,50)

'設置顔色、線寬、線型等屬性

Set lSlct = CATIA.ActiveDocument.Selection

Set lVisprp = lSlct.VisProperties

set C2 = lFact.CreateClosedCircle(200,200,25)

lSlct.Add C2

lVisprp.SetRealColor 255,0,0, 1

lVisprp.SetRealWidth 5,1

lVisprp.SetRealLineType 3,1

lSlct.Clear

End Sub

以上代碼所繪制的草圖如下所示:

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

微信公衆賬号

給我留言