Catia百格线生成宏.doc

Catia百格线生成宏 你是否为在Catia做2D图纸的时候，画百格线而伤脑筋呢别担心，接下来 我告诉你一个简单的方法 新建一个txt文本文档，比方 2.把以下内容复制到中 ＝＝＝＝＝＝＝＝＝这里开始，不要复制我＝＝＝＝＝＝＝＝ OptionExplicit *********************************************************************** Purpose:ThismacroallowsyoutocreateGridlineinCATIAdrawing Author:chenqa Languages:VBScript Locales:English DevelopingCATIALevel:V5R12 Viewmushparalleltosystemaixes,viewangle0deg,90degand-90deg *********************************************************************** SubCATMain( ) =False DimsStatusAsString SettheCATIApopupfilealertstoFalse Itpreventstostopthemacroateachalertduringitsexecution False Optional:allowstofindthesamplewhereveritsinstalled Variablesdeclaration DimoDrwDocumentAsDrawingDocument DimoDrwSheetsAsDrawingSheets DimoDrwSheetAsDrawingSheet DimoDrwViewAsDrawingView DimoFactory2DASFactory2D TheDistancebetweenthelines DimDAsInteger DimnxAsInteger DimnyAsInteger ThepointcoordinateselectfromDrawingDimX1AsInteger DimY1AsInteger DimX2AsInteger DimY2AsInteger DimPt1AsPoint2D DimPt2AsPoint2D TheviewscaledAngleforrotateviewscaleforviewscaleDimdScale,dAngleAsDouble Theviewcoordinateorigin DimXAsInt DimYAsInt DimxSelAs D=InputBox(PleaseInputtheDistanceValue,inputbox,100) D=Cint(D) RetriveanewdrawingdocumentSetoDrwDocument= RetrievethedrawingdocumentssheetscollectionSetoDrwSheets= RetrievetheactivesheetSetoDrwSheet= Retrievetheactiveviewofthesheet SetoDrwView= Retrivethevalueoftheview X= Y= dScale= dAngle= SetoFactory2D= GetthecoordinatefromtheselecttwopointOnErrorResumeNext SetxSel= ReDimsFilter(0) sFilter(0)=Point2D MsgBoxPleaseselecttheleft-bottompointsStatus=(sFilter,SelectFirstPoint.,false) If(sStatus=Normal)Then DimSelectedPoint1AsSelectedElement SetSelectedPoint1=(1) Dimpt1Coord(2)AsInt (pt1Coord) MsgBoxThefrstpointhasbeenselected ElseMsgBoxSelecta2DPoint1 ExitSub EndIf MsgBoxPleaseselecttheritht-toppointsStatus=(sFilter,SelectTheSecondPoint.,false) If(sStatus=Normal)Then DimSelectedPoint2AsSelectedElement SetSelectedPoint2=(1) Dimpt2Coord(2)AsInt (pt2Coord) M