| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Zeichnungsverwaltung mit Access (2519 mal gelesen)
|
Akrist Mitglied
Beiträge: 127 Registriert: 05.02.2001 Inventor 6 SP1/2 Windows XP Prof. P4 1700, GF3 1GB RAM
|
erstellt am: 03. Sep. 2003 13:49 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich würde gerne eine Zeichnungsverwaltung mit Access erstellen. Ist es möglich per VBA den Inhalt des Zeichenkopfes an Access und umgekehrt zu übergeben. D.H. ich erstelle meine Zeichnung, klicke auf einen Button ("Zeichnungsdaten übergeben" oder so) und habe die Werte in dem Access-Datensatz. Dann ergänze ich die fehlenden Angaben und schreibe das per Klick (Button) in die Zeichnung zurück. Wir verwalten die Zeichnugsdaten zur Zeit noch mit Lotus-Approach. Ich denke aber nicht das man das auch damit realisieren kann. Gruß, Andre
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Charly Setter Ehrenmitglied V.I.P. h.c.
Beiträge: 11980 Registriert: 28.05.2002 Trau keiner Diva unter SP2....
|
erstellt am: 03. Sep. 2003 19:53 <-- editieren / zitieren --> Unities abgeben: Nur für Akrist
Hallo Andre Wenn´s um eine reine Zeichnungsverwaltung unter IV7 ginge würde ich sagen: Schau Dir mal Adesk-Vault an. Aber der von Dir vorgeschlagene Weg erscheint mir auch recht steinig, aber da können Dir die VBA-Dengler mehr sagen. lf Mathias Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 03. Sep. 2003 22:19 <-- editieren / zitieren --> Unities abgeben: Nur für Akrist
Hallo Akrist, ich arbeite nicht soviel mit VBA (nur wenn es sein muss), aber ich denke, dass es nicht möglich ist aus Inventor VBA auf Access zuzugreiffen. Ich lasse mich aber eines besseren belehren. Falls das so ist, brauchst du eine ernsthafte Entwicklungs Umgebung (VB6, VB.NET, ... ). Grundsätzlich ist es kein Problem die Eigenschaften aus einer IDW auzulesen, irgendwo zu speichern, zu bearbeiten und wieder zurück zu schreiben. Aber deine Aufgabenstellung geht darüber hinaus, und wie der Mathias schon gesagt hat, ist das ein steiniger Weg. Vor Allem, gibt es sehr viele Möglichkeiten eine Zeichnungsverwaltung zu erstellen. Also, falls du doch anfangen willst, und versuchen die Aufgabe zu bewältigen, wirst du hier natürlich unterstüzt. ------------------ Grüße daywa1k3r Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Akrist Mitglied
Beiträge: 127 Registriert: 05.02.2001 Inventor 6 SP1/2 Windows XP Prof. P4 1700, GF3 1GB RAM
|
erstellt am: 04. Sep. 2003 08:09 <-- editieren / zitieren --> Unities abgeben:
Hi, danke erstmal für eure Antworten. Das das nicht einfach wird, hab ich mir auch schon gedacht. Ich hab mir mal so ein Tool für Excel runtergeladen. Da kann man ganze Verzeichnisse auslesen, die Daten ergänzen und wieder zurückschreiben. Da hab ich halt gedacht, wenn das mit Excel geht dann sollte das auch mit Access gehen. Nur komm ich an den Code nicht drann. (Passwort) An Vault hab ich auch schon gedacht, nur bekomme ich den nur mit Subscription. Und den krieg ich hier nicht. :-( Also muß ich mir irgendwie selber helfen. Wie komme ich denn an eine Übersicht der Paramenter die ich auslesen kann. Gruß, Andre Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied | |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 04. Sep. 2003 09:23 <-- editieren / zitieren --> Unities abgeben: Nur für Akrist
Hiermit: Code:
Public Sub test_idw_eig() Dim oDraw As DrawingDocument Dim oProp As Property Dim oPropSet As PropertySet Dim oPropSets As PropertySets Dim i As Integer On Error Resume Next Set oDraw = ThisApplication.ActiveDocument If Err.Number <> 0 Then MsgBox "Irgendwas stimmt nicht. Hab' aber jetzt keine Zeit danach zu suchen. Sorry!", vbCritical, "daywa1k3r" End End If Set oPropSets = oDraw.PropertySets i = 1 For Each oPropSet In oPropSets For Each oProp In oPropSet Debug.Print i & ". "; oProp.Name & " = " & oProp.Value i = i + 1 Next Next End Sub
kannst du alle Eigenschaften einer IDW auslesen. Du kannst die dann filtern, falls du die nicht alle brauchst. Es ist auch möglich die Werte wieder zu setzen, da die Eigenschaften Read/Write sind. ------------------ Grüße daywa1k3r Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SEHER Mitglied Systemanalytiker
Beiträge: 1203 Registriert: 13.03.2001
|
erstellt am: 04. Sep. 2003 11:19 <-- editieren / zitieren --> Unities abgeben: Nur für Akrist
Hallo Andre, ich denke schon das das mit access und vba möglich ist. wir lesen/schreiben auch mittels vba in dbf (dbase) und auch sql-server. Werd Dir die Tage mal was raussuchen evtl. direkt mit access, dauert aber noch ein bisschen. Gruß Seher Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Akrist Mitglied
Beiträge: 127 Registriert: 05.02.2001 Inventor 6 SP1/2 Windows XP Prof. P4 1700, GF3 1GB RAM
|
erstellt am: 04. Sep. 2003 11:30 <-- editieren / zitieren --> Unities abgeben:
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 04. Sep. 2003 13:51 <-- editieren / zitieren --> Unities abgeben: Nur für Akrist
Zitat: ich denke schon das das mit access und vba möglich ist.
Ach, ja. Jetzt habe ich die Verweise gefunden. Extras -> Verweise. Klar, dann geht es schon. Hast schon Recht. Ich habe nur im Projekt -> Verweise (wie in VB) gesucht ------------------ Grüße daywa1k3r Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SEHER Mitglied Systemanalytiker
Beiträge: 1203 Registriert: 13.03.2001
|
erstellt am: 05. Sep. 2003 20:44 <-- editieren / zitieren --> Unities abgeben: Nur für Akrist
Hallo Andre, habe gerade mal was gebastelt, hoffe es hilft dir weiter und zwar mittels ODBC. Also zuerst mal einen ODBC-Treiber mit dem Namen "access" unter der Systemsteuerung vereinbaren (Access-Treiber und Deine gewünschte mdb auswählen)dann die Verweise in vba-editor einstellen (siehe jpg)und dann eine mdb mit Tabelle1 und Feld1 und Feld2 erstellen. Wenn Feld1=vbatest_feld1 ist, dann wird Feld2 ausgelesen. Es gibt bestimmt noch andere Wege, doch try it... Gruß Seher Public Sub invmdbtest() ' Set a reference to the drawing document. ' This assumes a drawing document is active. Dim oDrawDoc As DrawingDocument Set oDrawDoc = ThisApplication.ActiveDocument Dim conn As New Connection 'Dim conn1 As New Connection Dim recs As Recordsets Dim rec As New Recordset, f, f1, f2, f3 As Field Dim odateiname As String Dim Wnummer As String Dim sql$, x& Wnummer = "vbatest_feld1" conn.Open "Provider=MSDASQL;DSN=Access"
odateiname = oDrawDoc.DisplayName sql = "SELECT FELD1, FELD2 " & _ "FROM Tabelle1 WHERE FELD1 = '" & Wnummer & "';" 'MsgBox ([sql]) rec.Open sql, conn Set f2 = rec.Fields.Item("FELD2") Dim Inhalt2 As String Inhalt2 = f2.Value MsgBox ([Inhalt2]) rec.Close: conn.Close End Sub Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |