汽车行业玻璃升降器百线图的建立教程百格线

1、汽车行业CATIA百线图的构造汽车中百位线的作用是能够快速得知汽车各部分零件相对于汽车坐标系的位置（如图所示）。在车身质量控制，人机工程等方面相当重要。这一用途同样适用于模具及其它行业，比如汽车玻璃升降器中百线图的设计（如图所示）。对于这样的百位线图用AUTOCAD软件进行设计的工程师一般都通过一步一步画直线，阵列，画圆来实现。当然用CATIA软件进行三维模型设计，然后投影成工程图，也可以用如上的方法一步一步画出百位线，但这样工作效率非常低。因此网上很多朋友就询问有没有比较好的方法自动生成百位线。那么我在这介绍两种种CATIA软件自动生成百位线的方法，这两种方法在CATIA V5 R16以上的

2、环境下测试过都没有问题。首先在装配体里面新建零件，在为新零件建立新原点时选择否，新建的三个坐标平面就是整个汽车的坐标平面，这样整个车的坐标系就出来了，如下图所示进入CATIA工程制图界面，新建空白文件进入工程图纸页面，然后投影主视图，但要注意工程图纸选择投影品面时要选择新建零件的坐标平面，也就是坐标原点所在的平面（这个很重要）。投影完成后在投影图的左下角和右上角分别建立两点，着两点的位置所做的矩形能够将整个图纸包含即可，然后选择工具宏（或Alt+F8）点击宏库目录添加现有库找到宏所在的文件夹，然后选择宏点击运行，如下图所示确定百线格为100，如下图所示确定后点击左下角的点，再确定后点击右上角的

3、点，完成后白线图就生成了，如下图所示：Catia百格线生成宏你是否为在Catia做2D图纸的时候，画百格线而伤脑筋呢？别担心，接下来我告诉你一个简单的方法1.新建一个txt文本文档，比如Draw-Grid.txt2.把以下内容复制到Draw-Grid.txt中这里开始，不要复制我Option Explicit' *'   Purpose:      This macro allows you to create Grid line in CATIA drawing'   Autho

4、r: chenqa'   Languages:   VBScript'   Locales:       English '   Developing CATIA Level: V5R12'   View mush parallel to system aixes,view angle 0deg,90deg and -90deg' *Sub CATMain()CATIA.RefreshDispla

5、y = FalseDim sStatus As String     ' Set the CATIA popup file alerts to False    ' It prevents to stop the macro at each alert during its execution    CATIA.DisplayFileAlerts = False    ' Optional: allows to find the sample wher

6、ever it's installed    ' Variables declaration    Dim oDrwDocument As DrawingDocument    Dim oDrwSheets As DrawingSheets    Dim oDrwSheet As DrawingSheet    Dim oDrwView As DrawingView    Dim oFactory2D

7、 AS Factory2D      ' The Distance between the lines    Dim D As Integer    Dim nx As Integer    Dim ny As Integer   ' The point coordinate select from Drawing    Dim X1 As Integer    Dim

8、Y1 As Integer    Dim X2 As Integer    Dim Y2 As Integer    Dim Pt1 As Point2D    Dim Pt2 As Point2D       'The view scale dAngle for rotate view scale for view scale    Dim dScale,dAngle As Double

9、    'The view coordinate origin    Dim X As Int     Dim Y As Int           Dim xSel   As INFITF.Selection    D= InputBox("Please Input the Distance Value", "inpu

10、t box", "100")    D= Cint (D)    ' Retrive a new drawing document    Set oDrwDocument = CATIA.ActiveDocument    ' Retrieve the drawing document's sheets collection    Set oDrwSheets = oDrwDocument.S

11、heets' Retrieve the active sheet    Set oDrwSheet = oDrwSheets.ActiveSheet           ' Retrieve the active view of the sheet    Set oDrwView = oDrwSheet.Views.ActiveView    'Retrive the value of the

12、 view        X= oDrwView.xAxisData     Y= oDrwView.yAxisData     dScale = oDrwView.Scale      dAngle= oDrwView.Angle     Set oFactory2D = oDrwView.Factory2D   'Get the coordina

13、te from the select two point    'On Error Resume Next      Set xSel = CATIA.ActiveDocument.Selection     xSel.clear     ReDim sFilter(0)      sFilter(0) = "Point2D"      M

14、sgBox "Please select the left-bottom point "      sStatus = xSel.SelectElement2(sFilter, "Select First Point.", false)     If (sStatus = "Normal") Then       Dim SelectedPoint1 As SelectedElement 

15、0;    Set SelectedPoint1 = xSel.Item(1)          Dim pt1Coord(2) As Int       SelectedPoint1.GetCoordinates ( pt1Coord )      'MsgBox "The frst point has been selected "   

16、0;   Else MsgBox "Select a 2D Point 1"      Exit Sub      End If          MsgBox "Please select the ritht-top point "       sStatus = xSel.SelectElement2(sFilte

17、r, "Select The Second Point.", false)      If (sStatus = "Normal") Then        Dim SelectedPoint2 As SelectedElement           Set SelectedPoint2 = xSel.Item(1)     

18、     Dim pt2Coord(2) As Int    SelectedPoint2.GetCoordinates ( pt2Coord )     'MsgBox "The second point has been selected "      Else MsgBox "Select a 2D point 1"     Exit Sub 

19、    End If    if dAngle=0 then    X1= Cint( (pt1Coord(0) - X)/dScale)    Y1= Cint (pt1Coord(1) - Y)/dScale)    X2= Cint (pt2Coord(0) - X)/dScale)    Y2= Cint (pt2Coord(1) - Y)/dScale)end if   'MsgBox (pt1Coord(0) 

20、60; 'MsgBox X   if dAngle>0 then    X1=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

21、 dAngle<0 then    X1=Cint(pt1Coord(1)-Y)/dScale)       Y1=Cint (pt1Coord(0) -X)/dScale)       X2= Cint (pt2Coord(1)-Y)/dScale)       Y2= Cint (pt2Coord(0)-X)/dScale)end if    X1 = D * Cint(X1/

22、D)    Y1 = D * Cint (Y1/D)    X2= D * Cint (X2/D)    Y2 = D * Cint (Y2/D)         nx = (X2-X1) D 'The number of the horizontal line    ny = (Y2-Y1) D 'The number of the vertical line    &

23、#160;   Dim Line2D1 As Line2D    Dim Circle2D1 as Circle2D   Dim MyText as DrawingText   Dim iFontsize as Double    Dim i As Int    Dim j As Int    Dim R As Doubel 'the radius of the circle   

24、0;   iFontSize = 3.5    R=8    R=R / dScale'-Dim Di_H,Di_V as intDim Text_XYZ_H as stringDim Text_XYZ_V as stringDi_H=1Di_V=1'Compare the drawing view HV with 3D Aixes Dim XX1,YY1,ZZ1,XX2,YY2,ZZ2 as intoDrwView.GenerativeBehavior.GetProjectionPlane XX1

25、,YY1,ZZ1,XX2,YY2,ZZ2if (XX1=1) then     Text_XYZ_H="X"End ifif (XX1=-1) then     Text_XYZ_H="X"    Di_H=-1End ifif (YY1=1) then     Text_XYZ_H="Y"End ifif (YY1=-1) then     Text_XYZ_H="Y&quo

26、t;    Di_H=-1End ifif (ZZ1=1) then     Text_XYZ_H="Z"End ifif (ZZ1=-1) then     Text_XYZ_H="Z"    Di_H=-1End ifif (XX2=1) then     Text_XYZ_V="X"End ifif (XX2=-1) then     Text_XYZ

27、_V="X"    Di_V=-1End ifif (YY2=1) then     Text_XYZ_V="Y"End ifif (YY2=-1) then     Text_XYZ_V="Y"    Di_V=-1End ifif (ZZ2=1) then     Text_XYZ_V="Z"End ifif (ZZ2=-1) then   &

28、#160; Text_XYZ_V="Z"    Di_V=-1End ifif dAngle>0 then    Di_V=-Di_Vend ifif dAngle<0 then    Di_H=-Di_Hend ifDim oSel as SelectionDim oVisProps as VisPropertySetset oSel = oDrwDocument.SelectionoSel.ClearDim TextV As intTextV=R/2'Draw

29、the horizontall line    for i=0 TO ny      if dAngle=0 then          set Line2D1 = oFactory2D.CreateLine (X1-D/3,Y1+D*i,X1+nx*D+D/3,Y1+D*i)          oSel.Add Line2D1 

30、;         set Circle2D1=oFactory2D.CreateClosedCircle(X1-D/3 -R,Y1+D*i,R)          oSel.Add Circle2D1          set Line2D1= oFactory2D.CreateLine(X1-D/3-R*2,Y1+D*i,X1-D/3

31、,Y1+D*i)          oSel.Add Line2D1          Set MyText = oDrwView.Texts.Add(Text_XYZ_V,X1-D/3 -R,Y1+D*i+TextV)         MyText.AnchorPosition = catMiddleCenter   

32、0;      MyText.SetFontSize 0, 0, iFontSize          Set MyText = oDrwView.Texts.Add(Y1+D*i)*Di_V,X1-D/3 -R,Y1+D*i-TextV)           MyText.AnchorPosition = catMiddleCenter   &#

33、160;       MyText.SetFontSize 0, 0, iFontSize       end if      if dAngle>0 then          set Line2D1 = oFactory2D.CreateLine (X1-D/3,-Y1-D*i,X1+nx*D+D/3,-Y1-D*i) 

34、;         oSel.Add Line2D1          set Circle2D1=oFactory2D.CreateClosedCircle(X1+nx*D+D/3 +R,-Y1-D*i,R)          oSel.Add Circle2D1      &

35、#160;   set 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 Line2D1          Set MyText = oDrwView.Texts.Add(Text_XYZ_V,X1+nx*D+D/3+R +TextV,-Y1-D*i)&

36、#160;         MyText.AnchorPosition = catMiddleCenter           MyText.SetFontSize 0, 0, iFontSize          Set MyText = oDrwView.Texts.Add(Y1+D*i)*Di_V,X1+nx*D+D/3+R -TextV,-Y1-D*

37、i)           MyText.AnchorPosition = catMiddleCenter           MyText.SetFontSize 0, 0, iFontSize       end if      if dAngle<0 then   &#

38、160;      set Line2D1 = oFactory2D.CreateLine (-X1+D/3,Y1+D*i,-(X1+nx*D+D/3),Y1+D*i)          oSel.Add Line2D1          set Circle2D1=oFactory2D.CreateClosedCircle(-(X1+nx*D+D/3)-R,Y1+D

39、*i,R)          oSel.Add Circle2D1          set 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 Line2D1  &

40、#160;       Set MyText = oDrwView.Texts.Add(Text_XYZ_V,-X1-nx*D-D/3-R +TextV,Y1+D*i)          MyText.AnchorPosition = catMiddleCenter           MyText.SetFontSize 0, 0, iFontSize &

41、#160;        Set MyText = oDrwView.Texts.Add(Y1+D*i)*Di_V,-X1-nx*D-D/3-R -TextV,Y1+D*i)           MyText.AnchorPosition = catMiddleCenter          MyText.SetFontSize 0, 0, iFontSiz

42、e       end if    next     'Draw the vertical line    for j=0 TO nx      if dAngle=0 then          set Line2D1 = oFactory2D.CreateLine (X1+D*j,Y1-

43、D/3,X1+D*j,Y1+ny*D+D/3)          oSel.Add Line2D1          set Circle2D1=oFactory2D.CreateClosedCircle(X1+D*j,Y1+ny*D+D/3+R,R)          oSel.Add Circle2D1  

44、;        set Line2D1 = oFactory2D.CreateLine(X1+D*j-R,y1+ny*D+D/3+R,X1+D*J+R,y1+ny*D+D/3+R)          oSel.Add Line2D1           Set MyText = oDrwView.Texts.Add(Text_XYZ_H

45、,X1+D*j,Y1+ny*D+D/3+R+TextV)                 MyText.AnchorPosition = catMiddleCenter                 MyText.SetFontSize 0, 0, iFontSize 

46、;          Set MyText = oDrwView.Texts.Add(X1+D*j)*Di_H,X1+D*j,y1+ny*D+D/3+R-TextV)                 MyText.AnchorPosition = catMiddleCenter       

47、;         MyText.SetFontSize 0, 0, iFontSize      end if      if dAngle>0 then          set Line2D1 = oFactory2D.CreateLine (X1+D*j,-Y1+D/3,X1+D*j,-Y1-ny*D-D/3)  

48、        oSel.Add Line2D1          set Circle2D1=oFactory2D.CreateClosedCircle(X1+D*j,-Y1+D/3+R,R)          oSel.Add Circle2D1        &#

49、160; set Line2D1 = oFactory2D.CreateLine(X1+D*j,-Y1+D/3+R*2,X1+D*J,-Y1+D/3)          oSel.Add Line2D1           Set MyText = oDrwView.Texts.Add(Text_XYZ_H,X1+D*j+TextV,-Y1+D/3+R)    

50、60;            MyText.AnchorPosition = catMiddleCenter                MyText.SetFontSize 0, 0, iFontSize           Set MyText = oDrwVie

51、w.Texts.Add(X1+D*j)*Di_H,X1+D*j-TextV,-Y1+D/3+R)                 MyText.AnchorPosition = catMiddleCenter                MyText.SetFontSize 0, 0, iFontSize 

52、     end if      if dAngle<0 then          set Line2D1 = oFactory2D.CreateLine (-X1-D*j,Y1-D/3,-X1-D*j,Y1+ny*D+D/3)          oSel.Add Line2D1          set Circle2D1=oFactory2D.CreateClosedCircle(-X1-D*j,Y1-D/3-R,R)          oSel.Add Circle2D1          set Line2D1 =