Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  Kurzbefehl für Exemplarsichtbarkeit

  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Thema geschlossen  Thema geschlossen!
Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

Dieser Beitrag ist erfolgreich in das Forum Inventor VBA verschoben worden.

nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
Die Ähnlichkeit zu Productstream Professional ist bemerkenswert. (GAIN Collaboration,PDM,PDM System,PLM,PLM System)
Autor Thema:  Kurzbefehl für Exemplarsichtbarkeit (2160 mal gelesen)
guter_geist
Mitglied
Anwendungsberater


Sehen Sie sich das Profil von guter_geist an!   Senden Sie eine Private Message an guter_geist  Schreiben Sie einen Gästebucheintrag für guter_geist

Beiträge: 1385
Registriert: 24.02.2003

erstellt am: 05. Jul. 2006 16:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Leo Laimer
Moderator
CAD-Dienstleister




Sehen Sie sich das Profil von Leo Laimer an!   Senden Sie eine Private Message an Leo Laimer  Schreiben Sie einen Gästebucheintrag für Leo Laimer

Beiträge: 26104
Registriert: 24.11.2002

IV bis 2019

erstellt am: 05. Jul. 2006 16:02    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich

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

guter_geist
Mitglied
Anwendungsberater


Sehen Sie sich das Profil von guter_geist an!   Senden Sie eine Private Message an guter_geist  Schreiben Sie einen Gästebucheintrag für guter_geist

Beiträge: 1385
Registriert: 24.02.2003

erstellt am: 05. Jul. 2006 16:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Leo Laimer
Moderator
CAD-Dienstleister




Sehen Sie sich das Profil von Leo Laimer an!   Senden Sie eine Private Message an Leo Laimer  Schreiben Sie einen Gästebucheintrag für Leo Laimer

Beiträge: 26104
Registriert: 24.11.2002

IV bis 2019

erstellt am: 05. Jul. 2006 16:21    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich

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

Doc Snyder
Moderator
Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen




Sehen Sie sich das Profil von Doc Snyder an!   Senden Sie eine Private Message an Roland Schröder  Schreiben Sie einen Gästebucheintrag für Roland Schröder

Beiträge: 13310
Registriert: 02.04.2004

IV 2019 + 2020 + 2021
W7pro64 F-Secure-Safe
Dell-M4600 2,13GHz 12GB
Quadro2000M
15,4"1920x1080
MS-IntelliMouse-Optical
SpacePilotClassic

erstellt am: 05. Jul. 2006 18:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich

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

Kuddelvonneküst
Mitglied
Dipl.-Ing. (FH)


Sehen Sie sich das Profil von Kuddelvonneküst an!   Senden Sie eine Private Message an Kuddelvonneküst  Schreiben Sie einen Gästebucheintrag für Kuddelvonneküst

Beiträge: 506
Registriert: 18.02.2005

Dell Precision T5500
NVidia Quadro FX 3800 1GB
Xeon Quad Core 3,2GHz
12GB RAM
Windows 7 ultimate 64
2x20"@1600x1200
AIS2012 SP2
Vault 2012 SP1 auf XP-Pro32

erstellt am: 05. Jul. 2006 20:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich

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

murphy2
Ehrenmitglied
-


Sehen Sie sich das Profil von murphy2 an!   Senden Sie eine Private Message an murphy2  Schreiben Sie einen Gästebucheintrag für murphy2

Beiträge: 1726
Registriert: 30.07.2002

C 64
Amiga 1000 mit
8.5 MB RAM und
Seagate ST225
RLL formatiert
Z80 unter CP/M 2.2

erstellt am: 05. Jul. 2006 21:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich

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

daywa1k3r
Ehrenmitglied V.I.P. h.c.
Softwareentwickler



Sehen Sie sich das Profil von daywa1k3r an!   Senden Sie eine Private Message an daywa1k3r  Schreiben Sie einen Gästebucheintrag für daywa1k3r

Beiträge: 3497
Registriert: 01.08.2002

Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570
Laptop: Alienware m17x
Win7, Inventor2012 64Bi

erstellt am: 05. Jul. 2006 23:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich

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

freierfall
Ehrenmitglied V.I.P. h.c.
Techniker



Sehen Sie sich das Profil von freierfall an!   Senden Sie eine Private Message an freierfall  Schreiben Sie einen Gästebucheintrag für freierfall

Beiträge: 11547
Registriert: 30.04.2004

WIN10 64bit, 32GB RAM
IV bis 2022

erstellt am: 06. Jul. 2006 07:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich

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

Charly Setter
Moderator





Sehen Sie sich das Profil von Charly Setter an!   Senden Sie eine Private Message an Charly Setter  Schreiben Sie einen Gästebucheintrag für Charly Setter

Beiträge: 11977
Registriert: 28.05.2002

Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.<P>Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

erstellt am: 06. Jul. 2006 08:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich

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

BTWBy the way (So nebenbei bemerkt): 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

daywa1k3r
Ehrenmitglied V.I.P. h.c.
Softwareentwickler



Sehen Sie sich das Profil von daywa1k3r an!   Senden Sie eine Private Message an daywa1k3r  Schreiben Sie einen Gästebucheintrag für daywa1k3r

Beiträge: 3497
Registriert: 01.08.2002

Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570
Laptop: Alienware m17x
Win7, Inventor2012 64Bi

erstellt am: 06. Jul. 2006 08:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich

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

Charly Setter
Moderator





Sehen Sie sich das Profil von Charly Setter an!   Senden Sie eine Private Message an Charly Setter  Schreiben Sie einen Gästebucheintrag für Charly Setter

Beiträge: 11977
Registriert: 28.05.2002

Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.<P>Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

erstellt am: 06. Jul. 2006 08:10    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich

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

daywa1k3r
Ehrenmitglied V.I.P. h.c.
Softwareentwickler



Sehen Sie sich das Profil von daywa1k3r an!   Senden Sie eine Private Message an daywa1k3r  Schreiben Sie einen Gästebucheintrag für daywa1k3r

Beiträge: 3497
Registriert: 01.08.2002

Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570
Laptop: Alienware m17x
Win7, Inventor2012 64Bi

erstellt am: 06. Jul. 2006 08:30    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich

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

guter_geist
Mitglied
Anwendungsberater


Sehen Sie sich das Profil von guter_geist an!   Senden Sie eine Private Message an guter_geist  Schreiben Sie einen Gästebucheintrag für guter_geist

Beiträge: 1385
Registriert: 24.02.2003

erstellt am: 06. Jul. 2006 08:57    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@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

Leo Laimer
Moderator
CAD-Dienstleister




Sehen Sie sich das Profil von Leo Laimer an!   Senden Sie eine Private Message an Leo Laimer  Schreiben Sie einen Gästebucheintrag für Leo Laimer

Beiträge: 26104
Registriert: 24.11.2002

IV bis 2019

erstellt am: 06. Jul. 2006 09:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich

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

freierfall
Ehrenmitglied V.I.P. h.c.
Techniker



Sehen Sie sich das Profil von freierfall an!   Senden Sie eine Private Message an freierfall  Schreiben Sie einen Gästebucheintrag für freierfall

Beiträge: 11547
Registriert: 30.04.2004

WIN10 64bit, 32GB RAM
IV bis 2022

erstellt am: 06. Jul. 2006 09:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich


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

daywa1k3r
Ehrenmitglied V.I.P. h.c.
Softwareentwickler



Sehen Sie sich das Profil von daywa1k3r an!   Senden Sie eine Private Message an daywa1k3r  Schreiben Sie einen Gästebucheintrag für daywa1k3r

Beiträge: 3497
Registriert: 01.08.2002

Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570
Laptop: Alienware m17x
Win7, Inventor2012 64Bi

erstellt am: 06. Jul. 2006 09:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich

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

Charly Setter
Moderator





Sehen Sie sich das Profil von Charly Setter an!   Senden Sie eine Private Message an Charly Setter  Schreiben Sie einen Gästebucheintrag für Charly Setter

Beiträge: 11977
Registriert: 28.05.2002

Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.<P>Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

erstellt am: 06. Jul. 2006 09:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich

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

freierfall
Ehrenmitglied V.I.P. h.c.
Techniker



Sehen Sie sich das Profil von freierfall an!   Senden Sie eine Private Message an freierfall  Schreiben Sie einen Gästebucheintrag für freierfall

Beiträge: 11547
Registriert: 30.04.2004

WIN10 64bit, 32GB RAM
IV bis 2022

erstellt am: 06. Jul. 2006 21:19    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich

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

dhammerl
Mitglied


Sehen Sie sich das Profil von dhammerl an!   Senden Sie eine Private Message an dhammerl  Schreiben Sie einen Gästebucheintrag für dhammerl

Beiträge: 5
Registriert: 12.05.2015

erstellt am: 12. Mai. 2015 12:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich

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

Charly Setter
Moderator





Sehen Sie sich das Profil von Charly Setter an!   Senden Sie eine Private Message an Charly Setter  Schreiben Sie einen Gästebucheintrag für Charly Setter

Beiträge: 11977
Registriert: 28.05.2002

Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.<P>Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

erstellt am: 18. Mai. 2015 11:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für guter_geist 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag öffnen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz