Skip to content

Instantly share code, notes, and snippets.

Working from home

Amen Jlili jliliamen

Working from home
View GitHub Profile
jliliamen / Delete_all_dangling_dimensions.vb
Last active Nov 21, 2020
Delete all dangling dimensions from active drawing document
View Delete_all_dangling_dimensions.vb
' Delete all dangling dimensions
' Conditions = Active document must be drawing
' Results = Dangling dimensions deleted
Dim swApp As Object
Dim swModel As Object
Dim swDraw As Object
Dim swSheet As Object
Dim swView As Object
Dim boolstatus As Boolean
jliliamen / delete_properties_configuration.vb
Created Aug 4, 2020
Delete all properties for the active configuration – SOLIDWORKS MACRO
View delete_properties_configuration.vb
' Delete all properties from the active configuration
' Conditions = None
' Results = all properties in the active configuration are deleted
Dim swApp As Object
Dim swModel As Object
Dim CustomPropertyManager As Object
Public Enum swDocumentTypes_e
jliliamen / save_bom_as_xlsx_with_thumbnails.vb
Created Jun 30, 2020
SOLIDWORKS VBAS Macro to save selected BOM as Excel with thumbnails
View save_bom_as_xlsx_with_thumbnails.vb
'All rights reserved to Blue Byte LLC / Blue Byte Software -
'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
View Add watermark to active sheet.vb
Public Enum swVerticalJustification_e
swVerticalJustificationNone = 0
swVerticalJustificationBottom = 3
swVerticalJustificationMiddle = 2
swVerticalJustificationTop = 1
End Enum
Public Enum swTextJustification_e