Hide Table of Contents

Get and Set Table Anchor of Hole Table (VB.NET)

This example shows how to get and set the table anchor of a hole table in a drawing.

'-----------------------------------------------------------------
' Preconditions: This file exists:
' C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\samples\tutorial\api\SimpleHole.slddrw
'
' Postconditions:
' 1. At Stop, examine the position of the hole table
'    in the drawing.
' 2. Click the Continue button in the SOLIDWORKS Visual Studio Tools for
'    Applications IDE.
' 3. The position of the hole table's anchor is set
'    to the specified location. Examine the hole table
'    in the drawing to verify.
'
' NOTE: If prompted, do not save any changes when closing
' the drawing document.
'------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System

Partial Class SolidWorksMacro

    
Public Sub Main()

        
Dim filename As String
        filename = "C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\samples\tutorial\api\SimpleHole.slddrw"

        Dim model As ModelDoc2
        
Dim errors As Integer
        Dim warnings As Integer
        model = swApp.OpenDoc6(filename, swDocumentTypes_e.swDocDRAWING, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)

        
If model Is Nothing Then Exit Sub

        Stop

        Dim swTable As TableAnnotation

        
' If document is a drawing, then continue
        Select Case model.GetType
            
Case swDocumentTypes_e.swDocDRAWING
                
Dim drw As DrawingDoc
                drw = model

                
' Get the current sheet
                Dim drwSheet As Sheet
                drwSheet = drw.GetCurrentSheet

                
' Select the Sheet2 feature
                Dim modeldocext As ModelDocExtension
                
Dim status As Boolean
                modeldocext = model.Extension
                status = modeldocext.SelectByID2(
"Sheet2", "SHEET", 0, 0, 0, False, 0, Nothing, 0)

                
' Get the views on Sheet2
                Dim views As Object
                views = drwSheet.GetViews

                
Dim vView As Object
                For Each vView In views
                    
Dim drwView As View
                    drwView = vView

                    
Dim viewFeature As Feature
                    viewFeature = drw.FeatureByName(drwView.Name)

                    
' Traverse the features in the view
                    Dim subFeature As Feature
                    subFeature = viewFeature.GetFirstSubFeature

                    
' If the feature is HoleTableFeat, then get the table annotations
                    Do Until subFeature Is Nothing
                        If subFeature.GetTypeName2 = "HoleTableFeat" Then
                            Dim swHoleTable As HoleTable

                            swHoleTable = subFeature.GetSpecificFeature2
                            
Dim holeTables As Object
                            holeTables = swHoleTable.GetTableAnnotations

                            
' If the annotation is a hole table, then continue
                            If Not holeTables Is Nothing Then
                                Dim table As Object
                                For Each table In holeTables
                                    swTable = table

                                    
' If the hole table is anchored, then continue
                                    If swTable.Type = swTableAnnotationType_e.swTableAnnotation_HoleChart Then
                                        If swTable.Anchored <> False Then
                                            Dim holeTableAnchor As TableAnchor
                                            holeTableAnchor = drwView.Sheet.TableAnchor(swTableAnnotationType_e.swTableAnnotation_HoleChart)

                                            
' Get the position of the table anchor
                                            Dim anchorPosition As Object
                                            anchorPosition = holeTableAnchor.Position

                                            
' Determine type of table anchor
                                            Dim newCorner As swBOMConfigurationAnchorType_e

                                            
Dim corner As String
                                            Select Case swTable.AnchorType
                                                
Case swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_BottomLeft
                                                    corner =
"  Bottom-left "
                                                    newCorner = swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_TopRight
                                                
Case swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_BottomRight
                                                    corner =
"  Bottom-right "
                                                    newCorner = swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_TopLeft
                                                
Case swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_TopLeft
                                                    corner =
"  Top-left "
                                                    newCorner = swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_BottomRight
                                                
Case swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_TopRight
                                                    corner =
"  Top-right "
                                                    newCorner = swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_BottomLeft
                                            
End Select

                                            swTable.AnchorType = newCorner

                                            
' Set the new position of the table anchor
                                            Dim dNewPosition(0 To 1) As Double
                                            dNewPosition(0) = 0.0#
                                            dNewPosition(1) = 0.0#

                                            holeTableAnchor.Position = dNewPosition
                                        
End If
                                    End If
                                Next
                            End If
                        End If

                        subFeature = subFeature.GetNextSubFeature
                    
Loop


                Next

            Case swDocumentTypes_e.swDocASSEMBLY, swDocumentTypes_e.swDocPART

        
End Select

    End Sub


    ''' <summary>
    ''' The SldWorks swApp variable is pre-assigned for you.
    ''' </summary>
    Public swApp As SldWorks


End Class
 



Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required

 
*Email:  
Subject:   Feedback on Help Topics
Page:   Get and Set Table Anchor of Hole Table (VB.NET)
*Comment:  
*   I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Print Topic

Select the scope of content to print:



x

We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

 Never show this message again
x

Web Help Content Version: API Help (English only) 2015 SP05

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.