---

Hallo Inventorianer,
ist es möglich (IV9) die Steuerung der Exemplarichtbarkeit (normal: RMB und dann Häkchen hin oder weg) per Kurzbefehl zu erledigen?
Ich find' irgenwie keinen "Befehl" für die Sichtbarkeit.

------------------
Have a nice Day
Peter
"Gilde der Erfinnder"
Das Vergleichen ist das Ende des Glücks und der Anfang der Unzufriedenheit. Sören Kierkegaard

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

---

Hallo Peter,

Beim IV10 ist's am einfachsten mit <RMB><C>
Sinnigerweise ist's bei der Sichtbarkeit innerhalb der ipt dann <RMB><S>.
Wahrscheinlich damit uns Allen niemals fad wird...

------------------
mfg - Leo

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

---

Muhahaha....
im 9er hat's 2x das "S" unterm RMB. Einmal für Sichtbarkeit und nochmal für Kontaktssatz. Nein, das doppel "ss" ist kein Rechtschreibfehler von mir sondern von unserer Diva.
Aber konsequent wie die Zicke ist macht sie dann auch nichts...
------------------
Have a nice Day
Peter    
"Gilde der Erfinnder"
Das Vergleichen ist das Ende des Glücks und der Anfang der Unzufriedenheit. Sören Kierkegaard

[Diese Nachricht wurde von guter_geist am 05. Jul. 2006 editiert.]

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

---

Das ist ein altes Leiden das sämtliche lokalisierten Adesk-Produkte immer wieder mal haben. Liegt wahrscheinlich daran, dass die in dem fernöstlichen Übersetzungsbüro nicht ISO-zertifiziert sind.

Aber wir haben ein Wort von Adesk, dass beim 12er eine deutsche Betaphase sein wird, und ab da sind wir dann selber schuld an solchen Lapsii.

------------------
mfg - Leo

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

---

Zitat:

---

Original erstellt von Leo Laimer:
Aber wir haben ein Wort von Adesk, dass beim 12er eine deutsche Betaphase sein wird, und ab da sind wir dann selber schuld an solchen Lapsii.

---

Und Du meinst, das hilft dann, und die Feher werden korrigiert?

Lapsus ist übrigens U-Deklination, dachte ich zumindest bisher immer.

Gruß
Roland

------------------
www.Das-Entwicklungsbuero.de

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

---

Zitat:

---

Original erstellt von Leo Laimer:
Liegt wahrscheinlich daran, dass die in dem fernöstlichen Übersetzungsbüro nicht ISO-zertifiziert sind.

---

http://private.addcom.de/m.barni/qs/witz1.htm

oder sollte es vielleicht besser "gelbe Programmierer" heissen ??? 

Kuddelvonneküst

------------------
Technik entwickelt sich immer vom Primitiven über das Komplizierte zum Einfachen...

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

---

Off topic, aber muß sein:

Welcome back, GuterGeist!

Hoffe, daß es von Dauer ist.

------------------
Die Politiker übernehmen die Verantworung, die Bürger tragen sie.

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

---

Hallo Peter,

Code:

---

Public Sub Sichtbarkeit()
    On Error Resume Next
    Dim oComp As ComponentOccurrence
    For Each oComp In ThisApplication.ActiveDocument.SelectSet
        oComp.Visible = Not oComp.Visible
    Next
End Sub

---

Und für die die nicht wissen wie es eingebunden wird, einfach mal hier schauen.

Tipp! Bevor der Button auf die Werkzeugleiste gezogen wird, kann ein Shortcut festgelegt werden. Nur aufpassen, dass es nicht schon belegt ist. 

------------------
Grüße daywa1k3r

FX64 Software Solutions

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

---

Guten Morgen,

Das klappt ja sehr gut. danke

Wie heisst der Befehl für alles einblenden?

herzlichen Dank

Sascha Fleischer

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

---

Moin Sascha

Das Makro schaltet die Sichtbarkeit der der ausgewählten Komponenten (SelectSet) um.

Alle sichtbar:

Code:

---

Public Sub Alles_Sichtbar()
    On Error Resume Next
    Dim oComp As ComponentOccurrence
    For Each oComp In ThisApplication.ActiveDocument.Components
        oComp.Visible = true
    Next
End Sub

---

BTW: geklaut, modifiziert und ungetestet 

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

Argh...

das obere Makro WECHSELT den Zustand. Also macht beides: an->aus oder aus->an. Ein zweites Makro ist nicht nötig.

@ Charly...  Das musst du doch raus lesen können 

oComp.Visible = Not oComp.Visible

------------------
Grüße daywa1k3r

FX64 Software Solutions

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

---

Hab ich doch geschrieben.

Erst lesen, dann meckern.... 

Aber Sascha wollte ein Makro, das ALLES einschaltet. Ohne vorher markieren zu müssen.

Auf diesem Niveau kann ich den Code durchaus noch begreifen 

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

Zitat:

---

Original erstellt von Charly Setter:
...Auf diesem Niveau kann ich den Code durchaus noch begreifen   

---

Weiß ich doch  Lass dich halt ein wenig ärgern  

------------------
Grüße daywa1k3r

FX64 Software Solutions

[Diese Nachricht wurde von daywa1k3r am 06. Jul. 2006 editiert.]

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

---

@daywa1k3r
Danke, testen wir mal an wenn ich die Anleitung "erfasst" habe. Du weißt doch, dass ich der absolute VBA-DAU bin.

@murphy
Ne, ist leider nur ein Sippvisite. Ansonsten "arbeite" ich immer noch mit Logocad.

@ den Rest
Vielen Dank für eure Antworten. Es ist immer wieder eine Freude zu sehen, wie einem hier geholfen wird!

------------------
Have a nice Day
Peter
"Gilde der Erfinnder"
Das Vergleichen ist das Ende des Glücks und der Anfang der Unzufriedenheit. Sören Kierkegaard

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

---

Zitat:

---

Original erstellt von Doc Snyder:
[QUOTE]Original erstellt von Leo Laimer:
[i]Aber wir haben ein Wort von Adesk, dass beim 12er eine deutsche Betaphase sein wird, und ab da sind wir dann selber schuld an solchen Lapsii.

---

Und Du meinst, das hilft dann, und die Feher werden korrigiert?

Lapsus ist übrigens U-Deklination, dachte ich zumindest bisher immer.

Gruß
Roland

[/i][/QUOTE]

Richtig, Mehrzahl von Lapsus ist Lapsus.

Jedenfalls wär's mir viel lieber, wir könnten in einer deutschen Beta solche Fehler entdecken, bekanntgeben... und hämisch grinsen wenn's im Release trotzdem drin sind.

------------------
mfg - Leo

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

---

Dokument1.pdf

@Charly,

Leider geht dieses Makro so nicht. Ich habe es verstanden bin mir aber nicht sicher ob ThisApplication.ActiveDocument.Components vermutlich gibt es den Wert Components nicht. Vielleicht muss man da noch was einbauen das IV Components rausrückt. 

herzlich

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

---

Code:

---

Public Sub Alle()
    On Error Resume Next
    If ThisApplication.ActiveDocumentType <> kAssemblyDocumentObject Or ThisApplication.Documents.Count = 0 Then Exit Sub
     
    Dim oAsm As AssemblyDocument
    Set oAsm = ThisApplication.ActiveDocument
   
    Dim oComp As ComponentOccurrence
    For Each oComp In oAsm.ComponentDefinition.Occurrences
        oComp.Visible = Not oComp.Visible
    Next
End Sub

---

------------------
Grüße daywa1k3r

FX64 Software Solutions

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

---

OK, die Struktur ist doch noch etwas verschachtelter. 

Dafür aber jetzt mit Überprüfung des Dokumenttyps 

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

Guten Abend,

@daywa1k3r Danke für das Skipt. Es funktioniert und ich habe die Variable auf True gesetzt und dann ist es was ich will.

Danke und 10u

herzlich

Sascha Fleischer

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

---

Hi, dieses Makro funktioniert leider nur bei Baugruppen und Bauteilen. Gibt es die Möglichkeit dieses auch auf gesamte Komponentenanordnungen umzuschreiben?

Code:

---

Public Sub Alles_Sichtbar()
    On Error Resume Next
    Dim oComp As ComponentOccurrence
    For Each oComp In ThisApplication.ActiveDocument.Components
        oComp.Visible = true
    Next
End Sub

---

[Diese Nachricht wurde von dhammerl am 12. Mai. 2015 editiert.]

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

---

Sicher geht das, aber dafür haben wir ein extra Forum: Inventor VBA

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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