| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Optimiertes Einkaufserlebnis dank interaktiver 3D-Modelle im Webshop , ein Anwenderbericht
|
Autor
|
Thema: Datenbank mit Autocad verknüpfen (731 mal gelesen)
|
S Michael Mitglied
Beiträge: 1 Registriert: 31.01.2004
|
erstellt am: 31. Jan. 2004 20:45 <-- editieren / zitieren --> Unities abgeben:
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 |
Bernd Cuder Mitglied Selbständig
Beiträge: 692 Registriert: 10.07.2002 AutoCAD 2002/2004/2005 unter Windows 2000 Professional SP3 PIV 3.4GHz 1024MB NVIDIA GeForce FX Go5700
|
erstellt am: 31. Jan. 2004 22:06 <-- editieren / zitieren --> Unities abgeben: Nur für S Michael
|
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 01. Feb. 2004 12:33 <-- editieren / zitieren --> Unities abgeben: Nur für S Michael
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 |
Karin72 Mitglied
Beiträge: 278 Registriert: 13.05.2003 Autocad Map 2004, WS-Landcad, LT 2004, LT-Extender,
|
erstellt am: 02. Feb. 2004 09:02 <-- editieren / zitieren --> Unities abgeben: Nur für S Michael
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 |
520cad Mitglied Technischer Angestellter
Beiträge: 17 Registriert: 06.05.2004
|
erstellt am: 26. Mai. 2004 14:33 <-- editieren / zitieren --> Unities abgeben: Nur für S Michael
|
Tulsa Mitglied Maschinenbauer/Selbstständig
Beiträge: 488 Registriert: 17.05.2004 Win10(x64) 32GB RAM NVIDIA®Quadro K4000 SWX 2023 Pro SolidCam 2022 AlibreDesign 2022 BackToCAD 2022/2023 Space Pilot Pro **************************** MacBook MAX-M1 64GB RAM BricsCAD V23 Via-CAD V12 **********
|
erstellt am: 27. Mai. 2004 08:56 <-- editieren / zitieren --> Unities abgeben: Nur für S Michael
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 |
BerndE Mitglied Hochbautechniker
Beiträge: 557 Registriert: 05.07.2003 Revit 2013 ACA 2012 deutsch BuildingOne 5.4.5 Win7 WindowsNetz
|
erstellt am: 27. Mai. 2004 15:59 <-- editieren / zitieren --> Unities abgeben: Nur für S Michael
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 |