Version 1.0.3.5 verfügbar

Beschreibung:

Sie sehen gerade einen Platzhalterinhalt von YouTube. Um auf den eigentlichen Inhalt zuzugreifen, klicken Sie auf den Button unten. Bitte beachten Sie, dass dabei Daten an Drittanbieter weitergegeben werden.

Inhalt entsperren Erforderlichen Service akzeptieren und Inhalte entsperren

Weitere Informationen

Ab Version 1.0.3.5 kann PartBoundingBox in eigene Makros integriert werden und spart somit das zusätzliche Öffnen und Navigieren im SWXHelper.

Im oben gezeigten Video wird erklärt wie du PartBoundingBox in bereits bestehende Makros integrieren kannst.

mOpenPartBoundingBox.bas

Copy to Clipboard

#If VBA7 Then
    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Sub OpenPartBoundingBox(PathToSWXHelper As String)
    Dim objShell As Object
    Dim objWMIService As Object
    Dim colProcesses As Object
    Dim objProcess As Object
    Dim AppPath As String
    Dim processName As String
    Dim started As Boolean
    Dim stillRunning As Boolean

AppPath = PathToSWXHelper & " -partboundingbox"
    processName = "SWXHelper.exe"

' DE: Anwendung starten
    ' EN: Launch application
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run AppPath, 1, False

' DE: Warten, bis Prozess gestartet wurde
    ' EN: Wait until process has been started
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    started = False

' DE: Solange die Prozessliste überwachen bis der Prozess gestartet ist
    ' EN: Monitor the process list until the process is started
    Do While Not started
        Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & processName & "'")
        If colProcesses.Count > 0 Then started = True
        DoEvents
    Loop

' DE: Warten, bis Prozess der Prozess beendet wurde
    ' EN: Wait until the process has ended
    Do
        Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & processName & "'")
        stillRunning = (colProcesses.Count > 0)
        DoEvents
        If stillRunning Then Sleep 100
    Loop While stillRunning

End Sub

DOWNLOAD: mOpenPartBoundingBox.bas

btnPartBoundingBox_Click()

Copy to Clipboard

Weitere Änderungen:

Ab Version 1.0.3.5 versucht PartBoundingBox automatisch den Wert des Durchmessers richtig zuzuordnen.

Dabei wird geprüft, ob ein gleicher Wert in den Abmessungen existiert, dieser wird in den meisten Fällen der Durchmesser sein.

Bitte überprüfte dennoch die automatisch generierte Zuordnung.

Vielen Dank für die Idee:
Martin Seepe

Schütz GmbH & Co. KG

In BOM2Excel wird zukünftig der Aktivitätsstatus der Exportspalten in den jeweiligen Profilen gespeichert.

Änderungen in dieser Version

Update:(PartBoundingBox)VBA Erreichbarkeit integriert
Update:(PartBoundingBox)Automatisches Erkennen von Durchmessern hinzugefügt
Update:(BOM2Excel)Aktivitätsstatus der Exportspalten wird in Profilen gespeichert
BugFix:(Part3DPrint) Speichermethode auf SaveAs3 geändert
BugFix:(Allgemein) Fehlende Übersetzungen ergänzt

Das Update steht bereit

Wer den SWXHelper schon nutzt, kann einfach über die Updatefunktion die neue Version laden.

(Eure Einstellungen bleiben erhalten)

Du hast den SWXHelper noch nicht?

Informiere dich über die Features und lade dir den kostenlosen SWXHelper herunter.

Zu den Videos

Zum Download