General Table总表

liyonggang

   经典图书

'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

复制代码

zhoupingxi

hxhxcandy

   经典图书

谢谢分享

我爱站长123

不错

rainbow-dl

   经典案例图书

“谢谢分享”“不错”，
我没看懂发的是问题还是分享，另外，这有什么用；
为什么是谢谢分享和不错呢；
求解释；

笑红尘

什么用？楼主说说