Catia百格线生成宏

1、Catia 百格线生成宏Catia 百格线生成宏你是否为在 Catia 做 2D 图纸的时候，画百格线而伤脑筋呢？别担心，接下 来我告诉你一个简单的方法1. 新建一个 txt 文本文档，比如 Draw-Grid.txt2. 把以下内容复制到 Draw-Grid.txt 中=这里开始，不要复制我=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