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

Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2


Sub Main()

 Set swApp = Application.SldWorks
 
 Dim FolderLocation As String
 

AmenJlili

Dim swApp As SldWorks.SldWorks
Dim swAssemblyDoc As AssemblyDoc
Dim swcomponent As Component2
Dim vcomponents As Variant
Dim processedFiles As Collection
Dim component

Sub main()

Set processedFiles = New Collection

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

C:\Program Files (x86)\WiX Toolset v3.11\bin\candle.exe -v -dDebug -dSourceOutDir=..\REDACTEDCOMPANYNAME\bin\Debug -d"DevEnvDir=C:\Program Files (x86)\Microsoft Visual Studio\2019\Community\Common7\IDE\\" -dSolutionDir=C:\Users\jlili\source\repos\BlueByteSystemsInc\HRS-REDACTEDCOMPANYNAME\src\REDACTEDCOMPANYNAME\ -dSolutionExt=.sln -dSolutionFileName=REDACTEDCOMPANYNAME.sln -dSolutionName=REDACTEDCOMPANYNAME -dSolutionPath=C:\Users\jlili\source\repos\BlueByteSystemsInc\HRS-REDACTEDCOMPANYNAME\src\REDACTEDCOMPANYNAME\REDACTEDCOMPANYNAME.sln -dConfiguration=Debug -dOutDir=bin\Release\ -dPlatform=x64 -dProjectDir=C:\Users\jlili\source\repos\BlueByteSystemsInc\HRS-REDACTEDCOMPANYNAME\src\REDACTEDCOMPANYNAME\REDACTEDCOMPANYNAME.Wix\ -dProjectExt=.wixproj -dProjectFileName=REDACTEDCOMPANYNAMETools.Wix.wixproj -dProjectName=REDACTEDCOMPANYNAMETools.Wix -dProjectPath=C:\Users\jlili\source\repos\BlueByteSystemsInc\HRS-REDACTEDCOMPANYNAME\src\REDACTEDCOMPANYNAME\REDACTEDCOMPANYNAME.Wix\REDACTEDCOMPANYNAMETools.Wix.wixp

AmenJlili

Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swAssembly As AssemblyDoc
Dim vComponents As Variant
Dim ProcessedFiles As New Collection

Sub main()

 Set swApp = Application.SldWorks

AmenJlili

Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2


Sub Main()

 Set swApp = Application.SldWorks
 
 Dim FolderLocation As String
 

AmenJlili

Enum SheetMetalOptions_e
    ExportFlatPatternGeometry = 1
    IncludeHiddenEdges = 2
    ExportBendLines = 4
    IncludeSketches = 8
    MergeCoplanarFaces = 16
    ExportLibraryFeatures = 32
    ExportFormingTools = 64
    ExportBoundingBox = 2048
End Enum

AmenJlili

Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swModelDocExtension As ModelDocExtension


Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

AmenJlili

public static string GetTitle2(this ModelDoc2 model)
        {
            var extension = string.Empty;

            if (model.GetType() == (int)swDocumentTypes_e.swDocPART)
                extension = ".sldprt";
            else
                extension = ".sldasm";

            var title = model.GetTitle();