---

Hallo Leute,
ich habe in meiner Datenbank(Access)eine Tabelle mit meinen Zeichnungsnummern erstellt.Nun möchte ich über die Zeichnungsnummern in der Tabelle meine Zeichnungen in Autocad öffnen. Ist das möglich,wenn ja wie?

Im voraus Danke

Michael

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

---

Möglich ja, einfach nein.

Über ActiveX (am einfachsten über VBA anzusprechen)
kein Problem, aber programmiert muss es werden.

Andererseits kann ich mir nicht vorstellen,
das es das noch nicht gibt,
also mal in Web suchen mit Begriffen wie:

Access Autocad öffnen VBA etc.

------------------
Bernd Cuder
Cad&Co makes CAD easy
Autodesk authorized developer

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

---

Hallo Michael,

wie Bernd bereits gesagt hat, ist das sowohl über VBA, als auch LISP kein Problem.
Allerdings muss auch ein Algorithmus gefunden werden, aus der Zeichnungsnummer das Ablageverzeichnis und den Dateinamen zu generieren. Oder du hast den Pfad bereits in der BD mit gespeichert.

Meine Erfahrung ist auch, dass, wenn dieser Schritt gemacht wird, auch weitere Begehrlichkeiten geweckt werden. Schriftköpfe autom. ausfüllen, Projekte verwalten, usw. Deshalb solltest du dich im I-net oder bei deinem Händler über solchen Verwaltungsprogramme informieren.
Es gibt mit sicherheit günstige Programme, die deine Anforderungen erfüllen.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Hallo Michael,

vielleicht kannst Du die Zeichnungsnummern einfach mit einem Hyperlink versehn, welcher mit der jeweiligen Datei verknüpft ist.
Nur so eine Idee....

------------------
Grüße Karin

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

---

... ich habe es gerade mit dem Einfügen einer "Hyperlinkspalte" versucht und das klappt auch, ich habe nur keine Erfahrung gesammelt

MfG J. Kluge

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

---

Schau doch mal hier rein..http://www.all4cad.de - da gibt es so eine Art Zeichnungsverwaltung, wenn du nicht im netzwerk arbeitest kannst du dir eine kostenlose Version laden. Läuft über Access.

Gruß Matze

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

---

Hi,
du erstellst ein formular, das seine Daten aus einer Tabelle bezieht, in welcher deine Pläne stehen. Ein Textfeld (hier quelle genannt) zeigt deine dateien mit Pfadangabe. dann setzt du einen commandbutton (hier cmdAcad genannt) mit dem code:

Private Sub cmdAcad_Click()
    Dim AcadApp As AutoCAD.AcadApplication
  
    On Error Resume Next
   
    Set AcadApp = GetObject(, "Autocad.Application")
    If Err Then
        Err.Clear
        Set AcadApp = CreateObject("Autocad.Application")
            If Err Then
            Err.Clear
            MsgBox "Kann AutoCAD nicht erreichen", , "Abbruch"
            Exit Sub
        End If
    End If
    AcadApp.Documents.Open Me.Quelle.Value

End Sub

da ich grad so schön dabei bin    ....deine tablle kannst du mit einem anderen cmdbutton füllen:

Private Sub durchs_Click()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant
    With fd
        .InitialFileName = "C:\" 'Hier kannste Deinen StandardPfad einstellen
        .Filters.Add "AutoCad-Zeichnungen", "*.dwg", 1
        .FilterIndex = 1
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                Me.Quelle.Value = vrtSelectedItem
            Next vrtSelectedItem
        Else
        End If
    End With
    Set fd = Nothing
End Sub

damit der Code auch funktioniert, mußt Du einen Verweis auf Microsoft Scripting Runtime und auf AutoCad setzen

------------------
   
Bernd

[Diese Nachricht wurde von BerndE am 27. Mai. 2004 editiert.]

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