---

Ich habe es bei Anpassen - Tastatur nicht gefunden heißt es nur anders oder gibt es tatsächlich kein Zeichnung öffnen?

------------------
Grüße aus Wien
Philipp
http://black-evolution.de/

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

---

Ich nehme an, Du bist in einer BG und suchst den alten Befehl.
Der ist nun (fallweise je nach Randbedingung) unter der RMB-Kaskaden "Komponente" versteckt.

Ziemlich ärgerlich, diesen für mich so wichtigen Befehl so gut zu verstecken.

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

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

---

Zitat:

---

Original erstellt von axi92:
Ich habe es bei Anpassen - Tastatur nicht gefunden

---

Kann sein weil das Konextmenübefehl ist, daß er deshalb nicht auf die Tastatur gelegt werden kann.

Wie schafft IV das jetzt eigentlich wennn die Zeichnung nicht gleichnamig ist?
Das war früher ein Muß und darum eine unbrauchbare Demo-Funktion.

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

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

---

Zitat:

---

Ziemlich ärgerlich, diesen für mich so wichtigen Befehl so gut zu verstecken.

---

Oder du bindest das Makro zum Öffnen der IDW ein.
Legst den Makroaufruf über Benutzerbefehle anpassen - Tastatur z.B. auf Taste Z
Dann geht mit Z immer die zugehörige IDW auf..

Code:

---

Public Sub OpenIDW()
    On Error Resume Next
    Set odoc = ThisApplication.ActiveDocument
           
    oDocName = odoc.FullFileName
    If oDocName = "" Then
    MsgBox "Bitte Modell erst speichern!"
    Exit Sub
    End If
       
    Dateiname = Left(odoc.FullFileName, Len(odoc.FullFileName) - 4) & ".idw"

    Set fs = CreateObject("Scripting.FileSystemObject")

    If fs.fileExists(Dateiname) = True Then
    ThisApplication.Documents.Open (Dateiname)
      Else
      MsgBox "keine IDW vorhanden"
    End If
    End Sub

---

------------------
Gruß Roland

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

---

Zitat:

---

Original erstellt von nightsta1k3r:
... wennn die Zeichnung nicht gleichnamig ist?
Das war früher ein Muß und darum eine unbrauchbare Demo-Funktion.

---

Das haben wir hier als eherne Regel, seit Jahrzehnten, und in allen CADs mit denen wir arbeiten.

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

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

---

Von Variablen Deklarationen hältst du nicht so viel oder?

Aber danke für dein Makro =)
Habe es ein wenig umgeschrieben:

Code:

---

Public Sub OpenIDW()
    'On Error Resume Next
    Dim oDoc As Document
    Dim oDocName As String
    Dim Dateiname As String
    Dim fs As Object
   
    Set oDoc = ThisApplication.ActiveDocument
         
    oDocName = oDoc.FullFileName
    If oDocName = "" Then
    MsgBox "Bitte Modell erst speichern!"
    Exit Sub
    End If
     
    Dateiname = Left(oDoc.FullFileName, Len(oDoc.FullFileName) - 4) & ".idw"

    Set fs = CreateObject("Scripting.FileSystemObject")

    If fs.fileExists(Dateiname) = True Then
    ThisApplication.Documents.Open (Dateiname)
      Else
      MsgBox "keine IDW vorhanden"
    End If
End Sub

---

------------------
Grüße aus Wien
Philipp
http://black-evolution.de/

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