Catia百格線生成宏

1、Catia 百格線生成宏Catia 百格線生成宏你是否為在 Catia 做 2D 圖紙的時(shí)候，畫(huà)百格線而傷腦筋呢？別擔(dān)心，接下 來(lái)我告訴你一個(gè)簡(jiǎn)單的方法1. 新建一個(gè) txt 文本文檔，比如 Draw-Grid.txt2. 把以下內(nèi)容復(fù)制到 Draw-Grid.txt 中=這里開(kāi)始，不要復(fù)制我=Option ExplicitI *Purpose:This macro allows you to create Grid line in CATIA drawing Author: chenqa Languages: VBScript Locales: English Developing CATI

2、A Level: V5R12View mush parallel to system aixes,view angle 0deg,90deg and -90degI *Sub CATMain()CATIA.RefreshDisplay = FalseCatia 百格線生成宏Dim sStatus As String Set the CATIA popupto FalseIt prevents to stop the macro at each alert during its executionCATIA.Display = False Optional: allows to find the

3、 sample wherever its installed Variables declarationDim oDrwDocument As DrawingDocumentDim oDrwSheets As DrawingSheetsDim oDrwSheet As DrawingSheetDim oDrwView As DrawingViewDim oFactory2D AS Factory2D The Distance between the linesDim D As IntegerDim nx As IntegerDim ny As Integer The point coordin

4、ate select from DrawingDim X1 As IntegerDim Y1 As IntegerCatia 百格線生成宏Dim X2 As IntegerDim Y2 As IntegerDim Pt1 As Point2DDim Pt2 As Point2DThe view scale dAngle for rotate view scale for view scaleDim dScale,dAngle As DoubleThe view coordinate originDim X As IntDim Y As IntDim xSel As INFITF.Selecti

5、onD= InputBox(Please Input the Distance Value, input box, 100)D= Cint (D) Retrive a new drawing documentSet oDrwDocument = CATIA.ActiveDocument Retrieve the drawing documents sheets collectionSet oDrwSheets = oDrwDocument.Sheets Retrieve the active sheetCatia 百格線生成宏Set oDrwSheet = oDrwSheets.ActiveS

6、heet Retrieve the active view of the sheetSet oDrwView = oDrwSheet.Views.ActiveViewRetrive the value of the viewX= oDrwView.xAxisDataY= oDrwView.yAxisDatadScale = oDrwView.ScaledAngle= oDrwView.AngleSet oFactory2D = oDrwView.Factory2DGet the coordinate from the select two pointOn Error Resume NextSe

7、t xSel = CATIA.ActiveDocument.Selection xSel.clearReDim sFilter(0)sFilter(0) = Point2DMsgBox Please select the left-bottom point sStatusxSel.SelectElement2(sFilter, Select First Point., false) If (sStatus = Normal) ThenCatia 百格線生成宏Dim SelectedPoint1 As SelectedElementSet SelectedPoint1 = xSel.Item(1

8、)Dim pt1Coord(2) As IntSelectedPoint1.GetCoordinates ( pt1Coord )MsgBox The frst point has been selected Else MsgBox Select a 2D Point 1Exit SubEnd IfMsgBox Please select the ritht-top point sStatus = xSel.SelectElement2(sFilter, Select The Second Point.,false)If (sStatus = Normal) ThenDim SelectedP

9、oint2 As SelectedElementSet SelectedPoint2 = xSel.Item(1)Dim pt2Coord(2) As IntSelectedPoint2.GetCoordinates ( pt2Coord )Catia 百格線生成宏MsgBox The second point has been selected Else MsgBox Select a 2D point 1Exit SubEnd Ifif dAngle=0 thenX1= Cint( (pt1Coord(0) - X)/dScale)Y1= Cint (pt1Coord(1) - Y)/dS

10、cale)X2= Cint (pt2Coord(0) - X)/dScale)Y2= Cint (pt2Coord(1) - Y)/dScale) end ifMsgBox (pt1Coord(0)MsgBox Xif dAngle0 thenX1=Cint(pt1Coord(1)-Y)/dScale)Y1=Cint (pt1Coord(0) -X)/dScale)X2= Cint (pt2Coord(1)-Y)/dScale)Y2= Cint (pt2Coord(0)-X)/dScale) end ifif dAngle0 then Di_V=-Di_V end ifif dAngle0 t

11、henset Line2D1 = oFactory2D.CreateLine (X1-D/3,-Y1-D*i,X1+nx*D+D/3,-Y1-D*i) oSel.Add Line2D1set Circle2D1=oFactory2D.CreateClosedCircle(X1+nx*D+D/3 +R,-Y1-D*i,R) oSel.Add Circle2D1set Line2D1= oFactory2D.CreateLine(X1+nx*D+D/3+R,-Y1-D*i+R,X1+nx*D+D/3+R,-Y1- D*i-R)oSel.Add Line2D1Set MyText = oDrwVie

12、w.Texts.Add(Text_XYZ_V,X1+nx*D+D/3+RCatia 百格線生成宏+TextV,-Y1-D*i)MyText.AnchorPosition = catMiddleCenterMyText.SetFontSize 0, 0, iFontSizeSet MyText =oDrwView.Texts.Add(Y1+D*i)*Di_V,X1+nx*D+D/3+R-TextV,-Y1-D*i)MyText.AnchorPosition = catMiddleCenterMyText.SetFontSize 0, 0, iFontSizeend ifif dAngle0 th

13、enset Line2D1 = oFactory2D.CreateLine (X1+D*j,-Y1+D/3,X1+D*j,-Y1-ny*D-D/3) oSel.Add Line2D1setCircle2D1=oFactory2D.CreateClosedCircle(X1+D*j,-Y1+D/3+R,R)oSel.Add Circle2D1set Line2D1 = oFactory2D.CreateLine(X1+D*j,-Y1+D/3+R*2,X1+D*J,-Y1+D/3) oSel.Add Line2D1Set MyText =oDrwView.Texts.Add(Text_XYZ_H,X1+D*j+TextV,-Y1+D/3+R)Catia 百格線生成宏MyText.AnchorPosition = catMiddleCenter MyText.SetFontSize 0, 0, iFontSizeSet MyText = oDrwView.Text