---

Hallo Zusammen,

ich möchte gerne in meinem VBA Programm:

1.) alle geöffneten Zeichungen in AutoCAD in einer Listbox anzeigen lassen

2.) die markierte geöffnete Zeichnung in der Listbox mit einer neuen Namen, die ich mit verschiedenen Textboxen zusammen stelle, abspeichern.

3.) Wenn die Zeichung mit der neuen Bezeichung abgespeichert worden ist, soll es dann die alte Zeichung ( Datei ) löschen.

Danke für jede Unterstützung

Schöne Grüße
Feyza : )

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

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

---

Hi Feyza,

nur als Ansatz, ohne Errorhandling, Textboxen und Buttons.
Die Ereignisse musst ggf. auf deine Steuerelemente umlegen.

Code:

---

Private Sub ListBox1_Click()
  Dim i%, sN$, sF$
  With ListBox1
      For i = 0 To .ListCount - 1
        If .Selected(i) Then
            sF = Documents(.List(i)).FullName
            sN = Documents(.List(i)).Name
'            If sF <> "" Then
'              Documents(sN).SaveAs "d:\textbox_bla.dwg"
'              Kill sF
'            End If
            Debug.Print sF, sN
            Exit For
        End If
      Next
  End With
End Sub

Private Sub UserForm_Initialize()
  Dim i%
  For i = 0 To Documents.Count - 1
      ListBox1.AddItem Documents.Item(i).Name
  Next
End Sub

---

lg Nancy   

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

---

Hallo Nancy,

danke Dir.
Das war genau das, was ich gebraucht habe.

Schöne Grüße
Feyza : )

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

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