AmenJlili

Public Declare PtrSafe Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public swApp As SldWorks.SldWorks
Public swModel As SldWorks.ModelDoc2
Public swFeat As SldWorks.Feature
Public bRet As Boolean

Public Enum swCommands_Extended
 swCommand_ParallelToScreen = 22159
End Enum

AmenJlili

' Delete all dangling dimensions
' Conditions = Active document must be drawing
' Results = Dangling dimensions deleted
' www.bluebyte.biz
Dim swApp           As Object
Dim swModel         As Object
Dim swDraw          As Object
Dim swSheet         As Object
Dim swView          As Object
Dim boolstatus      As Boolean

AmenJlili

' Delete all properties from the active configuration
' Conditions = None
' Results = all properties in the active configuration are deleted
' www.bluebyte.biz

Dim swApp As Object
Dim swModel As Object
Dim CustomPropertyManager As Object

Public Enum swDocumentTypes_e

AmenJlili

'All rights reserved to Blue Byte Systems Inc.  - amen@bluebyte.biz
'Blue Byte LLC / Blue Byte Software does not provide any warranties for macros.
'Pre-conditions: BOM pre-selected.
'Results: BOM created in Excel with thumbnail preview

'define the width and height of the thumbnail
Dim Width As Long 'in pixels
Dim Height As Long 'in pixels

Dim swApp As Object

AmenJlili

'www.bluebyte.biz

Public Enum swVerticalJustification_e
swVerticalJustificationNone = 0
swVerticalJustificationBottom = 3
swVerticalJustificationMiddle = 2
swVerticalJustificationTop = 1
End Enum

Public Enum swTextJustification_e