Copy and Paste Drawing Sheet Example (VBA)
This example shows how to copy and paste drawing sheets.
'-----------------------------------------------------------------------------
' Preconditions:
'
' 1. Open a drawing document.
' 2. Open an Immediate Window.
' 3. Run this macro.
'
' Postconditions: Sheet1 is copied and pasted to three locations
' in the
drawing document.
'------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim Part As DrawingDoc
Dim swModel As ModelDoc2
Dim boolstatus As Boolean
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set Part = swModel
If (Part Is Nothing) Then
MsgBox " Please Open Drawing Document "
End
End If
Dim currentsheet As sheet
Set currentsheet = Part.GetCurrentSheet
swModel.EditCopy
boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET",
0.09205356547875, 0.10872368523, 0, False, 0, Nothing, 0)
boolstatus = Part.PasteSheet(swInsertOption_BeforeSelectedSheet,
swRenameOption_Yes)
Part.ActivateSheet (currentsheet.GetName)
boolstatus = Part.PasteSheet(swInsertOption_AfterSelectedSheet,
swRenameOption_No)
Part.ActivateSheet (currentsheet.GetName)
boolstatus = Part.PasteSheet(swInsertOption_MoveToEnd,
swRenameOption_Yes)
End Sub