Skip to content

Instantly share code, notes, and snippets.

Avatar
🏠
Working from home

Amen Jlili jliliamen

🏠
Working from home
View GitHub Profile
@jliliamen
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
' 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
@jliliamen
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
' www.bluebyte.biz
Dim swApp As Object
Dim swModel As Object
Dim CustomPropertyManager As Object
Public Enum swDocumentTypes_e
@jliliamen
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 - 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
View Add watermark to active sheet.vb
'www.bluebyte.biz
Public Enum swVerticalJustification_e
swVerticalJustificationNone = 0
swVerticalJustificationBottom = 3
swVerticalJustificationMiddle = 2
swVerticalJustificationTop = 1
End Enum
Public Enum swTextJustification_e
You can’t perform that action at this time.