Set currentText = dTexts.Add(sheetNumber, xPos, yPos)ĬurrentText. Set currentText = dTexts.GetItem("SheetNumber") SheetNumber = "Page " & currentSheetNumber & "/" & totalSheets XPos = 100 'edit this - only use for new creation Sub UpdatePageNumber(currentDrawingSheet As DrawingSheet, currentSheetNumber As Integer, totalSheets As Integer) UpdatePageNumber DSheet, currentSheet, SheetCount 'loop through all sheets and update or create a sheet number you can do more error checking if neededĬurrentSheet = 1 'initialize sheet number 'the drawing must be the active docuement window or this will fail. Here's a start to making your title block: Option Explicit We try to access the DrawingText by name(THIS MUST BE UNIQUE!). Next we need to update or create existing title block text elements. CATIA Title Block Editor 443.doc 1 Preface The title block editor provides an example (it was small in the beginning) for an easy integration of CATIA V5 with other applications. How to create a custom SOLIDWORKS template. The concept is to loop through all of the DrawingSheet objects in the Sheets collection of the DrawingDocument you should put all title block elements in the "Background View". Download this FREE CAD block of an A3 horizontal titleblock.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |