|
AutoCAD VBA : acadApp.Documents.Item(i)
lbcad am 10.10.2007 um 17:20 Uhr (0)
Hallo Leute,komme hier gar nicht weiter und wäre schön, wenn jemand eine Tipp hat:Möchte von Excel aus in einer AutoCad-Zeichnung rumwerkeln.Dazu benötige ich eine spezielle Zeichnungsdatei.Die Überprüfung, ob diese Datei schon offen ist, kriege ich aber nicht hin:Code: Dim i As Integer Dim acadDoc As AcadDocument For i = 1 To acadApp.Documents.Count acadDoc = acadApp.Documents.Item(i) If LCase$(acadDoc.FullName) = LCase$(ZuÖffnendeDatei) Then DateiSchonOffen = True ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : acadApp.Documents.Item(i)
lbcad am 11.10.2007 um 08:50 Uhr (0)
Hallo Carsten,an diese Stelle ist das Programm in der Ausführung gar nicht gekommen. Deshalb habe ich daran gar nicht rumgewerkelt.Aber die Lösung habe ich schliesslich gefunden.Der Fehler lag in der Indexierung der For-Schleife.hab es jetzt so gemacht:Code: Dim DateiSchonOffen As Boolean DateiSchonOffen = False Dim i, ii As Integer Dim sFullName As String ii = acadApp.Documents.Count - 1 ConnectToAcad For i = 0 To ii MsgBox (acadApp.Documents.Item(i).FullName) ...
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |