Copy and Paste Drawing Sheet Example (VB.NET)
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.
'------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System
Partial
Class
SolidWorksMacro
Dim
Part As
DrawingDoc
Dim
swModel As
ModelDoc2
Dim
boolstatus As
Boolean
Sub
main()
swModel = swApp.ActiveDoc
Part = swModel
If
(Part Is
Nothing)
Then
MsgBox("
Please Open Drawing Document ")
Else
Dim
currentsheet As
Sheet
currentsheet = Part.GetCurrentSheet
swModel.EditCopy()
boolstatus = swModel.Extension.SelectByID2("Sheet1",
"SHEET",
0, 0, 0, False,
0, Nothing,
0)
boolstatus = Part.PasteSheet(swInsertOptions_e.swInsertOption_BeforeSelectedSheet,
swRenameOptions_e.swRenameOption_Yes)
Part.ActivateSheet(currentsheet.GetName)
boolstatus = Part.PasteSheet(swInsertOptions_e.swInsertOption_AfterSelectedSheet,
swRenameOptions_e.swRenameOption_No)
Part.ActivateSheet(currentsheet.GetName)
boolstatus = Part.PasteSheet(swInsertOptions_e.swInsertOption_MoveToEnd,
swRenameOptions_e.swRenameOption_Yes)
End
If
End
Sub
Public
swApp As
SldWorks
End
Class