---

Hallo zusammen,

gibt es die Möglichkeit beim einfügen von Toolboxteilen, diese automatisch in einem eigenen Ordner im Feature-Manager zu speichern?

Vielen Dank für Eure antworten

Grüße
Steffen

------------------
prolinux.de - Warum durch das Fenster gehen, wenn es eine Tür gibt...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

glaube nicht das dies automatisch geht.

Was geht ist im Feature Manager im Suchfilter Toolbox suchen , die gefundenen Toolboxteile alle markieren dann RMT zu einen Ordner hinzufügen.

viele Grüße

------------------
The World is changing, the CAD World too

[Diese Nachricht wurde von CAD-SUPPORTER am 09. Dez. 2016 editiert.]

[Diese Nachricht wurde von CAD-SUPPORTER am 09. Dez. 2016 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Steffen,

noch gibt es dazu keine Funktion im SWX. Seit der Version 2014 kann man per API eine Eigenschaft setzen und lesen.
Mit dem Beispiel aus der Hilfe und dem Beitrag hier lässt sich was zusammensetzen:

Code:

---

Sub main()
    Dim swApp                       As SldWorks.SldWorks
    Dim swAssy                      As SldWorks.AssemblyDoc
    Dim swConf                      As SldWorks.Configuration
    Dim swRootComp                  As SldWorks.Component2
    Dim bRet                        As Boolean
    Dim sClass                      As String
   
    Const swDocPART = 1
    Const swDocASSEMBLY = 2
    Const swDocDRAWING = 3
    sClass = "TB"   'Ordnername in der Baugruppe
   
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
   
    If swModel Is Nothing Then
        ' dann war gar kein Dokument geöffnet, also
        MsgBox "Kein Dokument geöffnet B^)"
        Exit Sub
    End If
    If (swModel.GetType <> swDocASSEMBLY) Then
        ' wenn keine Baugruppe -> geht auch nix
        MsgBox "Nur für Baugruppen B^)"
        Exit Sub
    End If
    Set swAssy = swApp.ActiveDoc
    Set swConf = swAssy.GetActiveConfiguration
    Set swRootComp = swConf.GetRootComponent

    Dim vChildComp                  As Variant
    Dim swChildComp                 As SldWorks.ModelDoc2
    Dim swCompConfig                As SldWorks.Component2
    Dim swModelDocExt               As SldWorks.ModelDocExtension
    Dim lRet                        As Long
    Dim retval                      As String
    Dim i                           As Integer
' Durch die Baugruppe
vChildComp = swRootComp.GetChildren
    For i = 0 To UBound(vChildComp)
        Set swChildComp = vChildComp(i)
        Set swModel = swChildComp.GetModelDoc
        If Not swModel Is Nothing Then
            Set swModelDocExt = swModel.Extension
            lRet = swModelDocExt.ToolboxPartType
' Toolbox Teil? - Ab Version 2014
            If lRet <> swNotAToolboxPart Then
                bRet = swChildComp.Select(True)
                Dim selMgr As SldWorks.SelectionMgr
                Dim myFeature As SldWorks.Feature
                Dim componentToMove As SldWorks.Component2
                Set selMgr = swAssy.SelectionManager
                Set componentToMove = selMgr.GetSelectedObjectsComponent3(1, 0)
                Set myFeature = swAssy.FeatureByName(sClass)
' In den Ordner schieben
                bRet = swAssy.ReorderComponents(componentToMove, myFeature, swReorderComponentsWhere_e.swReorderComponents_LastInFolder)
                swAssy.ClearSelection2 True
            End If
        End If
    Next i

End Sub

---

In der Hilfe steht meist auch was von Preconditions:
- In der Baugruppe, auf die das Makro angewendet wird, muss der Ordner "TB" vorhanden sein.
Postconditions:
- Alle Toolboxteile (auch aus anderen möglichen Ordnern) werden in den "TB"-Ordner geschoben.

Ich hoffe das jetzt alles schön ordentlich ist  

HTH
Ralf

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Ralf,

vielen Dank!Wir werden das diese Woche gleich probieren.

Nochmals vielen Dank und die '10'

Gruß
Steffen

------------------
prolinux.de - Warum durch das Fenster gehen, wenn es eine Tür gibt...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP