Insert Cut List Item Property Note Example (VB.NET)
This example shows how to insert a note containing all of the cut list item
properties into the
selected flat pattern drawing view of a sheet metal part.
'----------------------------------------------------------------------------
' Preconditions:
' 1. Open:
' install_dir\samples\handson\weldedcorner\weldedcorner.sldprt.
' 2. Right-click Cut list(1) in the FeatureManager design tree and select
Automatic.
' 3. Select File > Make Drawing from Part.
' 4. Click OK in the Units and Dimension Standard dialog, if
displayed.
' 5. Click OK in the New SolidWorks Document dialog, if displayed.
' 6. Click OK in the Sheet Format/Size dialog.
' 7. Drag the (A) Flat pattern view onto the drawing sheet and
' close the Project View PropertyManager page.
' 8. On the unit system dropdown on the status bar select MKS.
'
' Postconditions: A note with all of the cut list item properties is
inserted
' into the drawing view.
'
' NOTE: Because the model is used elsewhere,
' do not save changes when closing it.
'
---------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System.Runtime.InteropServices
Imports
System
Partial
Class
SolidWorksMacro
Dim
Part As
ModelDoc2
Dim
SelMgr As
SelectionMgr
Dim
aView As
View
Dim
boolstatus As
Boolean
Sub
main()
Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Drawing
View1",
"DRAWINGVIEW", 0, 0, 0,
False, 0,
Nothing, 0)
SelMgr = Part.SelectionManager
aView = SelMgr.GetSelectedObject6(1, -1)
aView.InsertCutListPropertyNote(0.11, 0.17, 0.0#)
End
Sub
Public
swApp As
SldWorks
End
Class