catia百格线生成宏

《catia百格线生成宏》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

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

2、wing'  Author:chenqa'  Languages:  VBScript'  Locales:      English'  DevelopingCATIALevel:V5R12'  Viewmushparalleltosystemaixes,viewangle0deg,90degand-90deg标准文档实用文案'***********************************************************************SubCATMain()CATIA.RefreshDisplay=FalseDimsStatusAsS

3、tring   'SettheCATIApopupfilealertstoFalse   'Itpreventstostopthemacroateachalertduringitsexecution   CATIA.DisplayFileAlerts=False   'Optional:allowstofindthesamplewhereverit'sinstalled   'Variablesdeclaration   DimoDrwDocumentAsDrawingDocument   DimoDrwSheetsAsDrawingSheets   DimoDrwSh

4、eetAsDrawingSheet   DimoDrwViewAsDrawingView   DimoFactory2DASFactory2D    'TheDistancebetweenthelines标准文档实用文案   DimDAsInteger   DimnxAsInteger   DimnyAsInteger  'ThepointcoordinateselectfromDrawing   DimX1AsInteger   DimY1AsInteger   DimX2AsInteger   DimY2AsInteger   DimPt1AsPoint2D   D

5、imPt2AsPoint2D     'TheviewscaledAngleforrotateviewscaleforviewscale   DimdScale,dAngleAsDouble   'Theviewcoordinateorigin   DimXAsInt    DimYAsInt         DimxSel  AsINFITF.Selection   D=InputBox("PleaseInputtheDistanceValue","inputbox","100")标准文档实用文案   D=Cint(D)   'Retriveanewdrawingdo

6、cument   SetoDrwDocument=CATIA.ActiveDocument   'Retrievethedrawingdocument'ssheetscollection   SetoDrwSheets=oDrwDocument.Sheets'Retrievetheactivesheet   SetoDrwSheet=oDrwSheets.ActiveSheet         'Retrievetheactiveviewofthesheet   SetoDrwView=oDrwSheet.Views.ActiveView   'Retrivetheva

7、lueoftheview      X=oDrwView.xAxisData    Y=oDrwView.yAxisData    dScale=oDrwView.Scale    dAngle=oDrwView.Angle    SetoFactory2D=oDrwView.Factory2D  'Getthecoordinatefromtheselecttwopoint   'OnErrorResumeNext标准文档实用文案    SetxSel=CATIA.ActiveDocument.Selection    xSel.clea