Update from master

edrawings-api/output/export/index.md

@@ -37,7 +37,7 @@ Please see below example of parameters
 * Export all SOLIDWORKS files (matching the filter *.sld*, i.e. extension starts with .sld) from the *SW Drawings* and *SW Models* folders in drive C (including sub folders) to the *C:\EDRW* folder in eDrawings format (.eprt for parts, .easm for assemblies, .edrw for drawing) and html format.
 
 ~~~
-> export.exe -input "C:\SW Drawings" "C:\SW Models" -output C:\EDRW -filter *.sld* -format .e .html
+> export.exe -input "C:\SW Drawings" "C:\SW Models" -outdir C:\EDRW -filter *.sld* -format .e .html
 ~~~
 
 * Export *C:\Models\Part.sldprt* into *C:\Models\Part.eprt*

edrawings-api/output/print-to-pdf/index.md

@@ -11,7 +11,7 @@ group: Import/Export
 
 This console application developed in VB.NET allows to export SOLIDWORKS, DXF, DWG files to PDF using free version of SOLIDWORKS eDrawings via its API. It is not required to have SOLIDWORKS installed or use its license to use this tool. This tool is supported on Windows 8.1 onwards.
 
-This functionality has been integrated into the [xPort](https://cadplus.xarial.com/xport/) utility.
+This functionality has been integrated into the [eXport+](https://cadplus.xarial.com/export/) utility.
 
 ## Running the tool
 

labs/solidworks/swex/add-in/hosting-user-controls/task-pane/index.md

@@ -33,7 +33,7 @@ public partial class MyComVisibleControlHost : UserControl
 }
 ~~~
 
-It is recommended to use COM-visible controls when hosting Windows Presentation Foundation (WCF) control in [System.Windows.Forms.Integration.ElementHost](https://docs.microsoft.com/en-us/dotnet/api/system.windows.forms.integration.elementhost?view=netframework-4.8) as keypresses might not be handled properly in com-invisible controls.
+It is recommended to use COM-visible controls when hosting Windows Presentation Foundation (WPF) control in [System.Windows.Forms.Integration.ElementHost](https://docs.microsoft.com/en-us/dotnet/api/system.windows.forms.integration.elementhost?view=netframework-4.8) as keypresses might not be handled properly in com-invisible controls.
 
 ## Defining Commands
 

solidworks-api/document/assembly/components/align-configurations/Macro.vba

@@ -0,0 +1,165 @@
+Const ROOT_CONFS_ONLY As Boolean = True
+
+Dim swApp As SldWorks.SldWorks
+
+Sub main()
+
+    Set swApp = Application.SldWorks
+
+    Dim swModel As SldWorks.ModelDoc2
+
+    Set swModel = swApp.ActiveDoc
+
+    Dim swAssy As SldWorks.AssemblyDoc
+
+    Set swAssy = swModel
+
+    If Not swAssy Is Nothing Then
+
+        Dim vComps As Variant
+        vComps = GetSelectedRootComponents(swAssy)
+
+        If Not IsEmpty(vComps) Then
+
+            Dim vConfs As Variant
+            vConfs = swModel.GetConfigurationNames
+
+            Dim i As Integer
+
+            For i = 0 To UBound(vConfs)
+
+                Dim swConf As SldWorks.Configuration
+                Set swConf = swModel.GetConfigurationByName(CStr(vConfs(i)))
+
+                If swConf.GetParent() Is Nothing Or Not ROOT_CONFS_ONLY Then
+
+                    Dim confParams() As String
+                    Dim confParamVals() As String
+
+                    ReDim confParams(UBound(vComps))
+                    ReDim confParamVals(UBound(vComps))
+
+                    Dim j As Integer
+
+                    For j = 0 To UBound(vComps)
+
+                        Dim swComp As SldWorks.Component2
+                        Set swComp = vComps(j)
+
+                        If HasConfiguration(swComp, swConf.Name) Then
+
+                           confParams(j) = "$CONFIGURATION@" & GetComponentNameForParameter(swComp)
+                           confParamVals(j) = swConf.Name
+
+                        Else
+                            Err.Raise vbError, "", swComp.Name2 & " does not contain configuration " & swConf.Name
+                        End If
+
+                    Next
+
+                    swConf.SetParameters (confParams), (confParamVals)
+
+                End If
+
+            Next
+
+        Else
+            Err.Raise vbError, "", "Select components to process"
+        End If
+
+    Else
+        Err.Raise vbError, "", "Open assembly"
+    End If
+
+End Sub
+
+Function GetSelectedRootComponents(assm As SldWorks.AssemblyDoc) As Variant
+
+    Dim swComps() As SldWorks.Component2
+
+    Dim swSelMgr As SldWorks.SelectionMgr
+
+    Set swSelMgr = assm.SelectionManager
+
+    Dim i As Integer
+
+    For i = 1 To swSelMgr.GetSelectedObjectCount2(-1)
+
+        Dim swComp As SldWorks.Component2
+        Set swComp = swSelMgr.GetSelectedObjectsComponent4(i, -1)
+
+        If Not swComp Is Nothing Then
+
+            If swComp.GetParent() Is Nothing Then
+
+                If (Not swComps) = -1 Then
+                    ReDim swComps(0)
+                Else
+                    ReDim Preserve swComps(UBound(swComps) + 1)
+                End If
+
+                Set swComps(UBound(swComps)) = swComp
+
+            Else
+                Err.Raise vbError, "", "Only top level components are supported"
+            End If
+
+        End If
+
+    Next
+
+    If (Not swComps) = -1 Then
+        GetSelectedRootComponents = Empty
+    Else
+        GetSelectedRootComponents = swComps
+    End If
+
+End Function
+
+Function GetComponentNameForParameter(comp As SldWorks.Component2) As String
+
+    Dim instId As Integer
+    Dim compName As String
+    compName = comp.Name2
+    instId = CInt(Right(compName, Len(compName) - InStrRev(compName, "-")))
+    compName = Left(compName, InStrRev(compName, "-") - 1)
+
+    GetComponentNameForParameter = compName & "<" & instId & ">"
+
+End Function
+
+Function HasConfiguration(comp As SldWorks.Component2, confName As String) As Boolean
+
+    Dim swRefModel As SldWorks.ModelDoc2
+    Set swRefModel = comp.GetModelDoc2
+
+    Dim vConfs As Variant
+
+    If Not swRefModel Is Nothing Then
+        vConfs = swRefModel.GetConfigurationNames
+    Else
+        vConfs = swApp.GetConfigurationNames(comp.GetPathName())
+    End If
+
+    HasConfiguration = Contains(vConfs, confName)
+
+End Function
+
+Function Contains(vArr As Variant, item As String) As Boolean
+
+    Contains = False
+
+    If Not IsEmpty(vArr) Then
+
+        Dim i As Integer
+
+        For i = 0 To UBound(vArr)
+            If LCase(CStr(vArr(i))) = LCase(item) Then
+                Contains = True
+                Exit Function
+            End If
+        Next
+
+    End If
+
+End Function

solidworks-api/document/assembly/components/align-configurations/index.md

@@ -0,0 +1,22 @@
+---
+caption: Align Referenced Configurations
+title: VBA macro to align referenced configuration of components to assembly configurations
+description: VBA macro aligns referenced configuration of selected components in the SOLIDWORKS assembly to the corresponding assembly configurations
+image: modify-configurations.png
+---
+
+This VBA macro aligns the referenced configurations of all selected components to the corresponding assembly configuration. For example if assembly has 3 configurations **A**, **B** and **C**, then referenced configurations for all selected components will be set to **A**, **B** and **C** in the respective configuration of the assembly.
+
+![Modify component configurations](modify-configurations.png){ width=600 }
+
+Macro processes all root configurations (or optionally all configurations)
+
+~~~ vb
+Const ROOT_CONFS_ONLY As Boolean = False 'Process all assembly configurations
+~~~
+
+Multiple components can be selected and processed at the same time. Only top level-components are supported. For aligning configurations for sub-assembly, it is required to activate the sub-assembly in its own window.
+
+Components in the lightweight mode are supported.
+
+{% code-snippet { file-name: Macro.vba } %}

solidworks-api/document/assembly/components/copy-path/Macro.vba

@@ -3,55 +3,70 @@ Dim swModel As SldWorks.ModelDoc2
 
 Sub main()
 
+try_:
+    On Error GoTo catch_
+
     Set swApp = Application.SldWorks
 
     Set swModel = swApp.ActiveDoc
 
+    Dim path As String
+
     If Not swModel Is Nothing Then
 
         Dim swSelMgr As SldWorks.SelectionMgr
         Set swSelMgr = swModel.SelectionManager
 
-        Dim swComp As SldWorks.Component2
+        Dim i As Integer
 
-        If TypeOf swModel Is SldWorks.AssemblyDoc Then
-
-            Set swComp = swSelMgr.GetSelectedObjectsComponent4(1, -1)
-
-        ElseIf TypeOf swModel Is SldWorks.DrawingDoc Then
-
-            Dim swDrawComp As SldWorks.DrawingComponent
-            Set swDrawComp = swSelMgr.GetSelectedObjectsComponent4(1, -1)
+        For i = 1 To swSelMgr.GetSelectedObjectCount2(-1)
+
+            Dim swComp As SldWorks.Component2
+            Set swComp = Nothing
 
-            If swDrawComp Is Nothing Then
-                'for entities selected in graphics view - first seleciton is a view itself
-                Set swDrawComp = swSelMgr.GetSelectedObjectsComponent4(2, -1)
+            If TypeOf swModel Is SldWorks.AssemblyDoc Then
+
+                Set swComp = swSelMgr.GetSelectedObjectsComponent4(i, -1)
+
+            ElseIf TypeOf swModel Is SldWorks.DrawingDoc Then
+
+                Dim swDrawComp As SldWorks.DrawingComponent
+                Set swDrawComp = swSelMgr.GetSelectedObjectsComponent4(i, -1)
+
+                If Not swDrawComp Is Nothing Then
+                    Set swComp = swDrawComp.Component
+                End If
+
+            Else
+                Err.Raise vbError, "", "Only parts and drawings are supported"
             End If
 
-            If Not swDrawComp Is Nothing Then
-                Set swComp = swDrawComp.Component
+            If Not swComp Is Nothing Then
+                If path <> "" Then
+                    path = path & vbLf
+                End If
+                path = path & swComp.GetPathName
             End If
 
-        Else
-            MsgBox "Only parts and drawings are supported"
-            End
-        End If
+        Next
 
-        If Not swComp Is Nothing Then
-
-            Dim path As String
-            path = swComp.GetPathName
+        If path <> "" Then
             Debug.Print path
             SetTextToClipboard path
-
         Else
-            MsgBox "Please select component"
+            Err.Raise vbError, "", "Please select components"
         End If
 
     Else
-        MsgBox "Please open document"
+        Err.Raise vbError, "", "Please open document"
     End If
 
+    GoTo finally_
+
+catch_:
+    swApp.SendMsgToUser2 Err.Description, swMessageBoxIcon_e.swMbStop, swMessageBoxBtn_e.swMbOk
+finally_:
+
 End Sub
 
 Sub SetTextToClipboard(text As String)

solidworks-api/document/assembly/components/copy-path/index.md

@@ -1,18 +1,18 @@
 ---
 layout: sw-tool
-title: Macro to copy path of SOLIDWORKS component to clipboard
+title: Macro to copy path of SOLIDWORKS components to clipboard
 caption: Copy Component Path
-description: Macro copies the path of the selected component in assembly or drawing into the clipboard using SOLIDWORKS API
+description: Macro copies the path of the selected components in assembly or drawing into the clipboard using SOLIDWORKS API
 image: copy-component-path.png
 labels: [path, clipboard, component]
 group: Assembly
 ---
 ![Component selected in the feature tree](selected-component.png){ width=250 }
 
-This macro copies the full path to the selected component into the clipboard using SOLIDWORKS API.
+This macro copies the full path to the selected components into the clipboard using SOLIDWORKS API.
 
-* Component can be selected in assembly or drawing document
-* Component can be selected in the feature tree or in the graphics area
+* Components can be selected in assembly or drawing document
+* Components can be selected in the feature tree or in the graphics area
     * It is also possible to select a component entity (i.e. face or edge) to get the path to the component
 
 {% code-snippet { file-name: Macro.vba } %}

solidworks-api/document/assembly/components/purge-configurations/index.md

@@ -7,7 +7,7 @@ image: purged-components-result1.png
 labels: [component, replace, purge]
 group: Assembly
 ---
-In some cases it might be required to remove (purge) all unused configurations from the components in the assembly. It is in particular useful for the fastener or toolbox components as file can contains thousands of configurations but only few are used in the assembly.
+In some cases it might be required to remove (purge) all unused configurations from the components in the assembly. It is in particular useful for the fastener or toolbox components as file can contain thousands of configurations but only few are used in the assembly.
 
 This macro allows to create a copy of all selected components, purge their configurations and replace them in the assembly.
 

solidworks-api/document/assembly/components/show-selected-assembly-component-window-folder/macro.vba

@@ -26,7 +26,7 @@ Sub main()
         End If
 
         If path <> "" Then
-            Shell "explorer.exe /select, " & """" & path & """"
+            Shell "explorer.exe /select, " & """" & path & """", vbMaximizedFocus
         Else
             MsgBox "Model is not saved"
         End If
@@ -35,4 +35,4 @@ Sub main()
         MsgBox "Please open assembly document and select the component"
     End If
 
-End Sub
+End Sub

solidworks-api/document/assembly/compose-flat-bom/Macro.vba

@@ -131,12 +131,12 @@ Function GetPropertyValue(model As SldWorks.ModelDoc2, conf As String, prpName A
     Dim prpVal As String
     Dim prpResVal As String
 
-    confSpecPrpMgr.Get3 prpName, False, "", prpVal
+    confSpecPrpMgr.Get3 prpName, False, prpVal, prpResVal
 
-    If prpVal = "" Then
+    If prpResVal = "" Then
         genPrpMgr.Get3 prpName, False, prpVal, prpResVal
     End If
 
     GetPropertyValue = prpResVal
 
-End Function
+End Function