二位图坐标线自动生成程序使用指南讲诉.docVIP

/*使用方法*/ Alt+F8弹出 点创建微程序目录 点击选择指定路径（在这里选择D盘作为路径） 点回到原始界面， 点击按钮 ，弹出下面界面，这时候必须选中CATScript 单击按钮回到macros原始界面 点击弹出 把以下程序断粘贴进去即可。 进入二维图界面后，做两点（将来形成的网格线就在这两个点范围内） Alt+F8出现界面，点击后，分别选择两点后，网格将自动生成！！！！ Option Explicit *********************************************************************** Purpose: This macro allows you to create Grid line in CATIA drawing Author: chenqa Languages: VBScript Locales: English Developing CATIA Level: V5R12 View mush parallel to system aixes,view angle 0deg,90deg and -90deg *********************************************************************** Sub CATMain() CATIA.RefreshDisplay = False Dim 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 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 dScale,dAngle As Double The view coordinate origin Dim X As Int Dim Y As Int Dim xSel As INFITF.Selection D= InputBox(Please Input the Distance Value, input box, 100) D= Cint (D) 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