|
经典图书 'Insert Table Example (VB)
'This example shows how to insert a table into a drawing.
'-------------------------------------------
'
' Preconditions:
' (1) Drawing is open.
' (2) Drawing view is selected.
'
' Postconditions: After running the code, click the
' drawing to insert the table.
'
'-------------------------------------------
Option Explicit
Public Enum swBOMConfigurationAnchorType_e
swBOMConfigurationAnchor_TopLeft = 1
swBOMConfigurationAnchor_TopRight = 2
swBOMConfigurationAnchor_BottomLeft = 3
swBOMConfigurationAnchor_BottomRight = 4
End Enum
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swDraw As SldWorks.DrawingDoc
Dim swTable As SldWorks.TableAnnotation
Dim vPickPt As Variant
Dim nNumCol As Long
Dim nNumRow As Long
Dim sRowStr As String
Dim i As Long
Dim j As Long
Dim bRet As Boolean
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDraw = swModel
Set swSelMgr = swModel.SelectionManager
vPickPt = swSelMgr.GetSelectionPoint(1)
Set swTable = swDraw.InsertTableAnnotation( _
vPickPt(0), vPickPt(1), _
swBOMConfigurationAnchor_TopLeft, _
10, 3)
nNumCol = swTable.ColumnCount
nNumRow = swTable.RowCount
For i = 0 To nNumRow
For j = 0 To nNumCol
swTable.Text(i, j) = "[" & i & ", " & j & "]"
Next j
Next i
End Sub
'-------------------------------------------
复制代码
'Get General Table Feature Example (VB)
'This example shows how to get a general table feature and its properties.
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swSelMgr As SldWorks.SelectionMgr
Dim swGeneralTableFeature As SldWorks.GeneralTableFeature
Dim swTableAnnotation As SldWorks.TableAnnotation
Dim nbrTableAnnotations As Long
Dim vTableAnnotations As Variant
Dim i As Long
Dim anchorAttached As Boolean
Dim anchorType As Long
Dim nbrColumns As Long
Dim nbrRows As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
Set swSelMgr = swModel.SelectionManager
Dim Str, ii
' Select general table feature in FeatureManager design tree
Set swGeneralTableFeature = swSelMgr.GetSelectedObject6(1, 0)
nbrTableAnnotations = swGeneralTableFeature.GetTableAnnotationCount
Debug.Print "Number of annotations = " & nbrTableAnnotations
vTableAnnotations = swGeneralTableFeature.GetTableAnnotations
For i = 0 To (nbrTableAnnotations - 1)
Set swTableAnnotation = vTableAnnotations(i)
anchorAttached = swTableAnnotation.Anchored
Debug.Print "Table anchored = " & anchorAttached
anchorType = swTableAnnotation.anchorType
Debug.Print "Anchor type = " & anchorType
nbrColumns = swTableAnnotation.ColumnCount
Debug.Print "Number of columns = " & swTableAnnotation.ColumnCount
nbrRows = swTableAnnotation.RowCount
Debug.Print "Number of rows = " & nbrRows
For ii = 0 To nbrRows
For jj = 0 To nbrColumns
swTableAnnotation.Text(ii, jj) = "cc" & ii + jj
Next jj
Next ii
Next i
End Sub
复制代码 |
|