AmenJlili

'www.bluebyte.biz

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

Public Enum swTextJustification_e

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

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

 public static double[] CreateBoundingBox(this ModelDoc2 swModelDoc)
        {
            string value;
            string resolvedvalue;
            double factor = 1000.0;
            var ar = new List<double>();

            var lengtUnit = (swLengthUnit_e)swModelDoc.LengthUnit;
            switch (lengtUnit)
            {

AmenJlili

 protected override void OnLoadAdditionalAssemblies(DirectoryInfo addinDirectory)
        {
            var assembly = addinDirectory.GetFiles().ToList().FirstOrDefault(x => x.Name.StartsWith("Microsoft.WindowsAPICodePack"));
            if (assembly != null)
                System.Reflection.Assembly.LoadFrom(assembly.FullName);


             assembly = addinDirectory.GetFiles().ToList().FirstOrDefault(x => x.Name.StartsWith("Microsoft.WindowsAPICodePack.Shell"));
            if (assembly != null)
                System.Reflection.Assembly.LoadFrom(assembly.FullName);

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();

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

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


Sub Main()

 Set swApp = Application.SldWorks
 
 Dim FolderLocation As String
 

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