Catia百格线生成宏.doc

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?? 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 = 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 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 sheet??? Set oDrwView = oDrwSheet.Views.ActiveView??? Retrive the value of the view??