---

Hallo,

ich wollte mir gerade ein Makro schreiben, um in Teilen/Baugruppen den obersten Punkt auf "vollständig auf reduziert" und dann wieder auf "reduziert auf vollständig" automatisch erledigen zu lassen.
Gibts da eine Funktion? Ich finde keine entsprechende.
Auch allgemein kann man mit dem Makro im Featurebaum scheinbar wenig machen. Jedenfalls nimmt der Makrorecoder solche Aktionen nicht auf.

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

---

Hallo ceronics,

In einem Teil macht das keinen Sinn, nur in einer Baugruppe 

RMT auf die Baugruppe im Featurebau, und dann die Auswahl "Reduziert auf vollständig einstellen"
bez. "Vollständig auf reduziert einstellen", je nachdem wie der Status gewünscht ist.

Ein Makro dafür erachte ich nicht als notwendig, du sparst dabei keinen Klick.

Gruss
Mike

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

The Power Of Dreams

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

---

Doch sinnvoll ist es schon wenn die Vorgabe sagt, dass beim Speichern der gesamte Baum bis ins letzte Unterteil/Unterfeature geschlossen sein muss.
Als Makro möchte ich das nur deshalb machen, weil da noch viel mehr Sachen rein kommen, die vor dem Speichern erledigt sein müssen. Klar, sonst wäre es nicht sehr zeitsparend.
Falls es da eine VBA-Funktion gäbe, wär das super.

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

---

Hallo ceronics,

ich habe jetzt nicht ganz geschnallt was Du genau meinst mit "Doch sinnvoll ist es schon wenn die Vorgabe sagt". Das was Dir Heiko sagt ist, daß man alles auf vollständig oder zurück auf unvollständig mit "einem" Mausklick machen kann. Kannst Du das etwas präziser beschreiben? Danke und Gruß. Robert Hess

------------------
"Wir haben doch keine Zeit". Doch. Die muß man sich manchmal nehmen um Vorwärts zu kommen.

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

---

Schau Dir mal
nstatus = AssemblyDoc.ResolveAllLightWeightComponents(False)
an. Das lädt bei mir alle nicht vollständigen Teile nach...

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

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

---

Hallo ceronics,
ein guter Startwert neben dem Makrorecorder ist die SolidWorks-API-Hilfe. Darin findest Du ein Beispiel: Set All Assembly Components Lightweight or Resolved Example (VB)

HTH & bis demnäx,
Ralf

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

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

---

Mit Vorgabe meine ich die interne Norm. Wenn ein Teil gespeichert wird soll nicht irgendwo im Featurebaum ein Unterbaum geöffnet sein. Da man während der Konstruktion hier und da mal rumklickt um etwas zu bearbeiten wollte ich das mit ein paar Klicks komplett und sicher erledigen. Jetzt ist mir eben aufgefallen, dass es mit diesen beiden Funtkionen geht, wenn man sie aufeinander folgend benutzt. Er Reduziert den kompletten Baum samt Unterpunkte. Besonders letzteres ist wichtig, wenn man eine riesge Liste hat.

Edit: Hey danke schon mal! werd gleich mal ausprobieren.

[Diese Nachricht wurde von ceronics am 16. Dez. 2009 editiert.]

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

---

Abend ceronics,
wenn es dir lediglich darum geht den Feature-Baum zu zuklappen, würde ich mir mit der Tastenkombi Shift+C behelfen. Weiß allerdings nicht, in wie weit sich das in einem Makro umsetzen lässt.

Grüße Roland

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

---

Shift+C bewirkt leider nicht das selbe, da lediglich die erste darunterliegende Ebene des Baums zugeklappt wird den man anklickt.

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

---

Schöne Weihnachten zusammen,
jetzt will ich mich hier doch nochmal anhängen. Habe es leider erst jetzt wieder geschafft mich damit zu beschäftigen.

@ceronics
Du hast durchaus recht, dass Shift+C im aktiven Dokument nur die oberste Ebene reduziert. Klicke ich nun wieder auf das Plus sind alle zuvor geöffneten Reiter immernoch geöffnet. Speicherst du nun jedoch die BG nach der Tastenkombination Shift+C ab und schließt das Dokument hast du beim erneuten Öffnen dieser BG das gewünschte Resultat, da nun auch die Unterpunkte geschlossen sind.

Grüße Roland

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

---

Hallo ceronics,

hast du es jetzt hin bekommen mit dem Makro??? Wenn ja, wie? Habe das gleiche Problem wie du.
Für ein Tip wäre sehr dankbar.

Gruß jolek

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

---

Nein, leider noch nicht. Hatte über Weihnachten bis jetzt noch keine Zeit. Werde mich dann aber melden, wenn ich es mache/geschafft habe.

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

---

Hallo ceronics,

habe hier was bekommen, sollte das sein was wir brauchen. Ich kann allerdings nichts damit anfangen, vielleicht du oder jemand hier?

' Preconditions:
'          (1) Assembly document is open.
'          (2) The components that you want to change from fully
'              resolved to lightweight are selected.
'
' Postconditions: The selected components are changed from fully resolved
'          to lightweight.
'
'----------------------------------------------------
Option Explicit
Public Enum swComponentSuppressionState_e
    swComponentSuppressed = 0      '  Fully suppressed - nothing is loaded
    swComponentLightweight = 1      '  Featherweight - only graphics data is loaded
    swComponentFullyResolved = 2    '  Fully resolved - model is completely loaded
End Enum
Public Enum swSuppressionError_e
    swSuppressionBadComponent = 0
    swSuppressionBadState = 1
    swSuppressionChangeOk = 2
    swSuppressionChangeFailed = 3
End Enum
Sub main()
    Dim swApp                      As SldWorks.SldWorks
    Dim swModel                    As SldWorks.ModelDoc2
    Dim swAssy                      As SldWorks.AssemblyDoc
    Dim swSelMgr                    As SldWorks.SelectionMgr
    Dim swComp                      As SldWorks.Component2
    Dim nSelCount                  As Long
    Dim i                          As Long
    Dim bRet                        As Boolean
    Dim nRetVal                    As Long
       
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swAssy = swModel
    Set swSelMgr = swModel.SelectionManager
    nSelCount = swSelMgr.GetSelectedObjectCount
   
    Debug.Print "File = " & swModel.GetPathName
   
    For i = 1 To nSelCount - 1
        Set swComp = swSelMgr.GetSelectedObjectsComponent(i)
       
        Debug.Print "  Comp = " & swComp.Name2
        Debug.Print "    Path          = " & swComp.GetPathName
        Debug.Print "    GetSuppression = " & swComp.GetSuppression
        Debug.Print "    IsSuppressed  = " & swComp.IsSuppressed2
    Next i
    swAssy.MakeLightweight
End Sub
_____________________________________________________________________

Gruß jolek

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

---

Hey jolek,

danke schon mal. Kann nur einfacher werden, wenn man ein paar Zeilen vor sich hat. Aber wie ich das auf den ersten Blick sehe, braucht man davon nur einen kleinen Teil.
Jetzt muss mir nur noch langweilig werden, damit ich damit mal anfangen kann 

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

---

Hallo,

bei uns tut es (wie von Stefan schon erwähnt)

    Set swAssy = swModel
    nStatus = swAssy.ResolveAllLightWeightComponents(False)
    bzw:
    nStatus = swAssy.LightweightAllResolved()

aber reduziert / vollständig ist nicht featurebaum zuklappen/aufklappen,
oder?

Gruß, Christian

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