CATIA百格线完整版.docVIP

=================从这里开始不要复制我=========================== Option Explicit *********************************************************************** Purpose: This macro allows you to create Grid line in CATIA drawing Languages: VBScript Locales: English Developing CATIA Level: V5R14-R17 View mush parallel to system aixes,view angle 0deg,90deg and -90deg *********************************************************************** Sub CATMain() CATIA.RefreshDisplay = False 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 wherever its installed Variables declaration Dim oDrwDocument As DrawingDocument Dim oDrwSheets As DrawingSheets Dim oDrwSheet As DrawingSheet Dim oDrwView As DrawingView Dim oFactory2D 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 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 dAngle As Double ================================== 读取间隔距离 ================================== D= InputBox(请输入坐标距离，100的整数倍, input box, 1) D= Cint (D) if D1 then D=0 D=D*100 ================================== 初始参数赋值 ================================== Retrive a new drawing document Set oDrwDocument = CATIA.ActiveDocument Retrieve the drawing documents sheets collection Set oDrwSheets = oDrwDocument.Sheets 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 view dAngle= oDrwView.Angle Set oFactory2D = oDrwView.Factory2D G