'next lines with a different size for fonts - 5 MyText11.SetFontSize 0, 0, 2.500 'iFontSize MyText10.SetFontSize 0, 0, 2.500 'iFontSize 'next lines with a different size for fonts - 2.5 MyText1.SetFontSize 0, 0, 3.500 'iFontSize Set myText = ("Dibujado", 22, 38) 'coordinates x=22, y=38 of left bottom corner of the text location Set MyDrawingViews = MyDrawingSheet.Viewsĭim drwviews As DrawingViews 'make background view activeĭrwviews.Item("Background View").Activate Set MyDrawingSheet = MyDrawingSheets.ActiveSheet Set MyDrawingSheets = MyDrawingDoc.Sheets Set CATIA = GetObject(, "CATIA.Application") ' Author: ferdo (Disclaimer: You use this code at your own risk) ' Purpose: Macro will activate the backgroud view in an active CATIA drawing (A4 sheet) and will draw a title block Still, if I remember correctly (because now I don't have CATIA) some things are recorded. OK, agree, drafting is not the most user friendly when coding :-). After that you can start to connect Excel cells values with text values in CATIA. Try first to record a macro when you are creating your new title block, this will give you an idea how lines and text are created.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |