---

Habe versucht ein Macro aufzeichnen zu lassen um die Struktur mit allen aufgeklappten Elementen auf einmal zuzuklappen zu lassen.
Leider bin ich da als "Macro Neuling" auf Probleme gestoßen.
  Das Macro soll folgende Funktion automatisch ausführen:
Anstatt mit der rechten Maustaste auf den Dokumentnamen oben in der Struktur zu klicken und "Baumstruktur zuklappen" wählen soll mit dem Shortcut "b+z" die Funktion ausgeführt werden.

Hab ein Macro aufgezeichnet. Dieses ist jedoch nicht einsatzfähig.

Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID("Kupplung.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing)
End Sub

Wäre schön wenn ihr mir bei der Berichtigung des VB-Quellcodes
helfen könntet.
Bitte keine .swp-Datei schicken da sie von mir (SW2004-Anwender) nicht gelesen werden kann.

Gruß
wildensteiner

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

---

Hallo,

dein Macro zeigt nur , daß der Macro-recorder nicht immer klappt

Versuch es doch mal mit Suche nach "PropertyManager NEAR expand"
in der APi-Hilfe

Ausserdem ist der OLE-Zugriff über die VBA nicht volständig,
bei den C++-Funktionen findest DU viel mehr Möglichkeiten
Viel Spaß noch

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

---

Hallo Wildensteiner.

Dein Makro funktioniert aus dem Grund nicht, da der Makro-Rekorder diverse Sachen, wie beispielsweise Tastatureingaben nicht aufzeichnet. Außerdem würde es nur für das eine Teil funktionieren, in dem du das Makro aufgezeichnet hast, also "Kupplung".
Für die Funktion die du anstrebst, brauchst du aber nicht unbedingt ein Makro. Klicke einfach auf das Teil im Featurebaum und drücke "-" zum zu-, oder "+" (auf dem Num-block) zum aufklappen des Featurebaums.

Gruß, Markus

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

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

---

Ich sag nur Makro Nummer 18

EDIT: UUPS, sollte genauer lesen. Aber in deinem Fall: 2mal ESC und RMT-Baumstruktur zuklappen ist doch auch nicht schlecht?!?! ENDEDIT

------------------
Gruß, der Teddibaer

Besucht mich doch mal ... 
----------------
Es gibt eine Theorie, nach der die Konzentration von Dummheit an bestimmten Orten besonders hoch ist. 

[Diese Nachricht wurde von Teddibaer am 22. Aug. 2005 editiert.]

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

---

liebes forum

ich versuch dies auch hinzukriegen 

bei der zeile: Sub main() meldet das ding schon fehler

min absolut nicht der programmierer

hat dies schon jemand hingekriegt 

------------------
gruss aus murten

thomas

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

---

Freut mich dass ich nicht der einzige bin der dieses Problem hat.
Am besten wäre es wenn man mit einem Shortcut z.B. "Strg + Ä" den ganzen Featurebaum zukappen könnte.

MFG
wildensteiner

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

---

Ich hab in der API-Hilfe diesen Befehl gefunden:

void AssemblyDoc.ViewFeatureManagerFeatureDetail ( Detail )

Input:
(BOOL) Detail
TRUE to show feature detail, FALSE to hide it

Zum Laufen krieg ich ihn allerdings nicht. Mein auf die Schnelle geschriebenes Makro hat keinen Effekt, da ich nicht kapier, wie die Syntax für die Befehlszeile sein muss (Diese Zeilen, die mit "void" anfangen, waren mir schon immer ein Rätsel). Die Online-Hilfe gibt leider kein Beispiel.
Ich oute mich hier jetzt mal als Programmierhiwi und poste meinen Code:

' ******************************************************************************
' closeFeatureManager
' Soll den FeatureBaum schließen, entsprechend dem Befehl der rechten Maustaste.
' Funktioniert aber noch nicht.
' Piet Sach, 2.5.06
' ******************************************************************************
Dim swApp As Object
Dim myDoc As Object
Dim retval As Long
Sub main()
    Dim warning As Variant
   
    Set swApp = Application.SldWorks
    Set myDoc = swApp.ActiveDoc
   
    If myDoc Is Nothing Then
        warning = MsgBox("Kein Dokument geöffnet!", vbCritical, "So geht das nicht")
        End
    End If
   
    If Not myDoc.gettype = 2 Then
        warning = MsgBox("Tut mir leid, das funktioniert nur bei Baugruppen.", vbCritical, "So geht das nicht")
        End
    End If
       
    myDoc.ViewFeatureManagerFeatureDetail (False)  ' <======== hier!
End Sub

Wer löst das Rätsel?

Piet

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

---

Zitat:

---

Original erstellt von Piet:
Zum Laufen krieg ich ihn allerdings nicht. Mein auf die Schnelle geschriebenes Makro hat keinen Effekt, ...

Wer löst das Rätsel?

Piet

---

ganz so ist es nicht, dein Makro tut schon etwas - bloß nicht das, was du erwartest.
Dein gefundener Befehl ist nicht dazu geeignet, den FM zuzuklappen, sondern er schaltet in der Anzeige der Baugruppe im FM etwas um ...
identisch mit dem Eintrag im RMT-Menü: Nur Hierarchie anzeigen/Feature-Detail-Anzeigen. Wenn Du genau nachschaust wirst du feststellen, daß bei Detail=false die BG-Ebenen, Usprung, Beleuchtungsordner, usw. verschwinden - und bei detail=true eingeblendet werden ...

------------------
mfg uc

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

---

Immerhin tut es etwas...

Vielen Dank für die Erklärung. Dann scheint es zum Zuklappen nichts zu geben, oder? Jedenfalls finde ich sonst nichts Passendes, müsste ja eigentlich in der API-Hilfe auch unter AssemblyDoc stehen.

Piet

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

---

Hi zusammen aus meiner grabbelkiste nur für euch ...   

ist jedenfalls ein Ansatzpunkt (Klappt alles zu) >hehe<

Gruß
Micha

[Datei entfernt aktuell: http://ww3.cad.de/foren/ubb/uploads/VBSpawn/KlappTreeV3.zip ]
------------------
http://classicvb.org/petition/

    

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

[Diese Nachricht wurde von VBSpawn am 02. Mai. 2006 editiert.]

[Diese Nachricht wurde von VBSpawn am 09. Mai. 2006 editiert.]

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

---

hallo micha

unities sind unterwegs für dich

die kommentare im progrämmli find ich klasse 

nur, das musste ja sein, einwenig übers ziel hinaus

danke für die mithilfe

------------------
gruss aus murten

thomas

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

---

Zitat:

---

Original erstellt von aeschbi:
nur, das musste ja sein, einwenig übers ziel hinaus

---

Hi ho
also einwenig müsst Ihr noch selber fummeln damit nur die erste ebene zugeklappt wird ;o)

Ich würde (wo der Rootnode bestimmt wird) einfach die ChildNodes suchen und die zuklappen....

Ansonsten schau ich heute Abend noch mal drüber, wenn das nicht schon ein anderer gefunden hat :-)

Gruß
Micha

------------------
http://classicvb.org/petition/

   

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Ich will mal nicht so sein....

hier die anpassung das nur die Kinder zusammengeklappt werden..

Gruß
Micha

[Datei entfernt aktuell: http://ww3.cad.de/foren/ubb/uploads/VBSpawn/KlappTreeV3.zip ]

------------------
http://classicvb.org/petition/

   

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

[Diese Nachricht wurde von VBSpawn am 09. Mai. 2006 editiert.]

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

---

hallo micha

absolut klasse 

------------------
gruss aus murten

thomas

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

---

Su-per!

Danke, Micha!

Piet

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

---

KlappTreeV3.zip

Immer gern Jungs,

freut mich wenn es auch jmd brauchen kann ;o)

Gruß
Micha

------------------
http://classicvb.org/petition/

    

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

[Diese Nachricht wurde von VBSpawn am 20. Nov. 2006 editiert.]

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

---

Icon_Featurebaum_zuklappen.jpg Featuretreesnapshut.bmp.txt

Hallo Micha,

tolles Macro!
Hier noch das passende Icon dazu  (je nach Geschmack    )

------------------
Gruß,
Walter

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

---

Zitat:

---

Original erstellt von wago:
Hallo Micha,

tolles Macro!
Hier noch das passende Icon dazu  (je nach Geschmack    )

---

Jetzt auch mit passendem Icon ;o)
<höhö>
wenn das so weiter geht... werde ich den jungs von swx ein feature request einreichen....

Gruß
Micha 

------------------
http://classicvb.org/petition/

   

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Hallo Walter

mal eine Frage wie bekommt man das hin mit dem Bitmap Baum ???
Verstehe ich das Richtig dass man auf den Baum klickt und dann wird der Featurebaum zugeklappt???
Falls das so ist wie geht es dann das Einrichten???

Gruß Uwe

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

---

http://ww3.cad.de/foren/ubb/Forum2/HTML/009773.shtml#000007

Punkt Nummer 2 :-) nur den swp file von oben anbinden (indem du einen RMB-Klick auf das 'neue' Icon machst).

Gruß
Micha

------------------
http://classicvb.org/petition/

   

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Hallo Micha
ich frage deshalb weil im Foto vom Walter das Bäumchen, so wie es aussieht oberhalb von der Blechknatung ist. So wie ich es erkenne ist dieses kein Makro Startknopf.
Ich kenne nur vorgehensweise über ein Makro, RMT,Anpassen,Befehle,Makro, Kopf wählén neue Makroschaltfläche, dieses dann zu Makro schieben als Bild Baum wählen usw.
Knopf ist dann bei Makro zu finden. Nicht aber bei Foto von Walter.
Dun schreibst "Punkt Nummer 2 :-) nur den swp file von oben anbinden (indem du einen RMB-Klick auf das 'neue' Icon machst)."
"indem du einen RMB-Klick auf das 'neue' Icon machst" verstehe ich nicht ganz, wie kommt das neue Icon auf die Leisten?? RMB???
Kannst mir das nochmla erklären ??
Danke

Uwe

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

---

Hiho,

du kannst den button in jede Toolbar ziehen, es muss nicht die Makro Toolbar sein.

Ansonten das mit dem 'RightMouseButton' geht bei swx und den Buttons gar nicht <grinz> kannst aber wenn die Anpassen Maske geöffnet ist jeden Button auf eine beliebige Toolbar ziehen ..

Gruß
Micha

------------------
http://classicvb.org/petition/

   

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Hallo Micha

Danke jetzt funzt es.
ich wußte nich dass es auch so geht " kannst aber wenn die Anpassen
Maske geöffnet ist jeden Button auf eine beliebige Toolbar ziehen "

Dankr nochmal Gruß Uwe

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

---

Danke für die Hilfe.
Wie muss das Macro umgeschrieben werden damit es für SWX 2004 funzt?
Gruß
wildensteiner

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

---

Verweis.jpg

Moin,

probier mal das Makro zu bearbeiten und gehe dann unter Extras auf Verweise. Dort mal die Type Library für 2004 setzen.

Jan

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

---

KlappTreeV3.zip

Hi,

hier die V3 Version welche keinen Verweis auf SWX benötigt.

Gruß
Micha

------------------
http://classicvb.org/petition/

   

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Hallo VB Spawn & Co.

das Macro "KlappTreeV3.swp" läuft tadellos in SWX 2004.
Nochmals Dankeschön besonders an VB Spawn.

Gruß
wildensteiner 

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

---

Herzlichen Dank auch von mir 
habs mir gerade eingebaut 

------------------
Klaus

www.al-ko.com | Pssst...unbedingt hier klicken!!! | mein Gästebuch | privat...

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

---

Gerüchteweise ist die Funktion "Baumstruktur zuklappen" in SWx2007 implementiert, mit Shift-C.

Piet

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

---

Hallo

ist kein Gerücht.
Ist wirklich so.

------------------
Gruss Frank O.

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

---

macht nix.

Bis die 2007 reif zum Arbeiten ist, das dauert erfahrungsgemäß noch eine ganze Zeit......

------------------
Klaus

www.al-ko.com | Pssst...unbedingt hier klicken!!! | mein Gästebuch | privat...

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

---

Zitat:

---

Original erstellt von wildensteiner:
Hallo VB Spawn & Co.
das Macro "KlappTreeV3.swp" läuft tadellos in SWX 2004.
Nochmals Dankeschön besonders an VB Spawn.
Gruß
wildensteiner 

---

Hallo SWX-Anwender,

arbeite jetzt schon einige Zeit mit dem Macro - Es funktioniert soweit auch ganz gut. Leider hat es den Nachteil dass nur die erste Hierarchiestufe dauerhalt geschlossen wird.
Wird z.B. im Featurebaum ein Teil einer Unterbaugruppe aufgeklappt so schließt "KlappTreeV3.swp" den Featurebaum nur temporär.
Wird anschließend der Bildschirm mit Strg+Q aktualisiert (neu aufgebaut) klappt alles wieder auf.

Gibts ein Macro mit dem man den kompletten Featurebaum dauerhaft zuklappen kann ??

Im Voraus schon vielen Dank für Eure Hilfe
Gruß
wildensteiner

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

---

Hi,

Recht haste, nur der Code ist von Hinten durch die Brust ins Auge, vielleicht hilft aber auch ein Simulierter Klick, wird nur etwas dauern bis ich dazu komme... eventuell meldet sich ja jmd noch Freiwillig..

Gruß
Micha

------------------
Stell dir vor, es geht, und keiner kriegts hin.

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Hallo SWX-ler,

wie gesagt - das Problem mit dem dauerhaften zuklappen der Baumstruktur besteht immer noch.
ärgere mich jeden Tag dass SWX keine "öffentliche" Funktion in SWX 2006 dafür hat.

Gibts ein Macro mit dem man den kompletten Featurebaum dauerhaft zuklappen kann ??

Gruß
wildensteiner

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

---

Wenn es unbedingt sein muß: Makrofeature in allen Vorlagedokumenten und es macht es bei allen Modellaufbauten 

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

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

---

Baumstr.zuklappen.jpg

Zitat:

---

Original erstellt von Lutz Federbusch:
Wenn es unbedingt sein muß: Makrofeature in allen Vorlagedokumenten und es macht es bei allen Modellaufbauten    

---

Hallo Lutz,

soweit habe ich auch schon gedacht.
Die "normale" Funktion "Baumstruktur zuklappen" klappt nur die erste Ebene zu (siehe angehängtes .jpg). Alles was jedoch im Featurebaum ab der Ebene 2 aufgeklappt ist wird nur temporär zugeklappt. Nach dem Regenerieren mit "Strg + Q" klappt der Featurebaum jedoch wieder auf.
Ein normales Macro für "Baumstruktur zuklappen" bringt nichts. Man bräuchte ein Macro "Baumstruktur in alle Ebenen dauerhaft zuklappen".

MFG
wildensteiner

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