Catia百格线生成宏.doc

《Catia百格线生成宏.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、wsyoutocreateGridlineinCATIAdrawing'  Author:chenqa'  Languages:  VBScript'  Locales:      English'  DevelopingCATIALevel:V5R12'  Viewmushparalleltosystemaixes,viewangle0deg,90degand-90deg'****************************************************************

3、*******SubCATMain()CATIA.RefreshDisplay=FalseDimsStatusAsString   'SettheCATIApopupfilealertstoFalse   'Itpreventstostopthemacroateachalertduringitsexecution   CATIA.DisplayFileAlerts=False   'Optional:allowstofindthesamplewhereverit'sinstalled   'Varia

4、blesdeclaration   DimoDrwDocumentAsDrawingDocument   DimoDrwSheetsAsDrawingSheets   DimoDrwSheetAsDrawingSheet   DimoDrwViewAsDrawingView   DimoFactory2DASFactory2D    'TheDistancebetweenthelines   DimDAsInteger   DimnxAsInteger   DimnyAsInteger  'Thepo

5、intcoordinateselectfromDrawing   DimX1AsInteger   DimY1AsInteger   DimX2AsInteger   DimY2AsInteger   DimPt1AsPoint2D   DimPt2AsPoint2D     'TheviewscaledAngleforrotateviewscaleforviewscale   DimdScale,dAngleAsDouble   'Theviewcoordinateorigin   DimXAsIn

6、t    DimYAsInt         DimxSel  AsINFITF.Selection   D=InputBox("PleaseInputtheDistanceValue","inputbox","100")   D=Cint(D)   'Retriveanewdrawingdocument   SetoDrwDocument=CATIA.ActiveDocument   'Retrievethedrawingdocument'ssheetscollection   SetoDrwShe

7、ets=oDrwDocument.Sheets'Retrievetheactivesheet   SetoDrwSheet=oDrwSheets.ActiveSheet         'Retrievetheactiveviewofthesheet   SetoDrwView=oDrwSheet.Views.ActiveView   'Retrivethevalueoftheview      X=oDrwView.xAxisData    Y=oDrwView.yAxisData    dScal

8、e=oDrwView.Scale    dAngle=oDrwView.Angle    SetoFactory2D=oDrwView.Factory2D  'Getthecoordinatefromtheselecttwopoint   'OnErrorResumeNext    SetxSel=CATIA.ActiveDocument.Selection    xSel.clear    ReDimsFilter(0)    sFilter(0)="