Zeichnungseigenschaften auslesen, verändern (Autodesk/AutoCAD VBA)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Zeichnungseigenschaften auslesen, verändern (3047 mal gelesen)
Dressler Mitglied technischer Angestellter Beiträge: 301 Registriert: 19.11.2003 Acad 2002	erstellt am: 19. Jan. 2004 07:07 <-- editieren / zitieren --> Unities abgeben: Hallo und einen schönen guten Morgen. Ich möchte mit Hilfe von VBA auf die Zeichnungseigenschaften zugreifen. Dabei möchte ich 1. aus der Statistik auslesen, -wer zuletzt die zeichnung gespeichert hat, -die Bearbeitungszeit. 2. die Datei-Info auslesen (Titel, Thema, Autor, Stichwörter, Kommentar) und diese Daten möglichst auch schreiben. Das beides würde ich gerne bei geöffneten und ungeöffneten Dateien machen. Ist das überhaupt möglich und sieht der Ansatz zumindest gleich aus? Danke im voraus. ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
harryk Mitglied Projektleiter Beiträge: 124 Registriert: 19.08.2003	erstellt am: 19. Jan. 2004 08:07 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler schau mal unter acadx.com unter "acadxprops", dürfte schonmal helfen. Gruss, Harry Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Dressler Mitglied technischer Angestellter Beiträge: 301 Registriert: 19.11.2003 Acad 2002	erstellt am: 19. Jan. 2004 08:41 <-- editieren / zitieren --> Unities abgeben: Danke Harry, ich würde mich trotzdem noch für eine AutoCAD eigene Variante interessieren, wenn es die gibt. ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 ACAD 2008 Mechanical	erstellt am: 19. Jan. 2004 09:11 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler ... hab mal unter http://www.afralisp.com/newsletter/code/code5.htm was gefunden... ( funzt, aber glaube ich nur bis R14 - in dxf stehen die werte aber immer noch unter "dwgprops" ) Gruß Thomas ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Dressler Mitglied technischer Angestellter Beiträge: 301 Registriert: 19.11.2003 Acad 2002	erstellt am: 19. Jan. 2004 09:50 <-- editieren / zitieren --> Unities abgeben: Danke für die Antwort, nur suche ich eigentlich nach einer VBA Lösung und es geht mir in erster Linie um das DWG Format. Beim speichern einer DXF-Datei im Format DXF 12 sind übrigens leider die Informatioen nicht vorhanden. ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 ACAD 2008 Mechanical	erstellt am: 19. Jan. 2004 13:25 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler ..steh betreffs VBA momentan noch aufn Schlauch ... folgende (Lisp)Zeile liefert dir jedoch eine Infos, die du haben willst... Befehl: (dictsearch (namedobjdict) "DWGPROPS") ansonsten .. logfilmode logfileon _time .. nutz mal F1 mit den Begriffen ... ist zwar von hinten durch die Brust...aber vielleicht hilft es weiter Thomas ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
RoSiNiNo Mitglied Konstrukteur Beiträge: 1126 Registriert: 09.10.2002 Acad 2011-deutsch, Express Tools 3ds Max 2010 Win 7-Professional HP Workstation Z400, 6GB GeForce GTX 470	erstellt am: 19. Jan. 2004 14:17 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler Wenn ich mir den vorigen Beitrag von Thomas durchlese, könntest du vielleicht die Zeichnung nach einem Dictionary durchsuchen, vielleicht steht ja da etwas drinnen. ------------------ Roland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Dressler Mitglied technischer Angestellter Beiträge: 301 Registriert: 19.11.2003 Acad 2002	erstellt am: 19. Jan. 2004 14:57 <-- editieren / zitieren --> Unities abgeben: Hallo RoSiNiNo, wie kann ich denn die .dwg nach einem Dictonary durchsuchen? Ich könnte mir evtl. vorstellen, daß es irgendwie über die ActiveX-Funktionen klappen könnte, allerdings hab ich keine Ahnung wie. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
RoSiNiNo Mitglied Konstrukteur Beiträge: 1126 Registriert: 09.10.2002 Acad 2011-deutsch, Express Tools 3ds Max 2010 Win 7-Professional HP Workstation Z400, 6GB GeForce GTX 470	erstellt am: 19. Jan. 2004 15:10 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler Dictionaries kann man wie folgt auslesen. Code: Public Sub TestDict() Dim dctAcad As AcadDictionaries Set dctAcad = ThisDrawing.Dictionaries End Sub Ist vielleicht aber doch nicht richtig, ich schau mir mal die XData an. ------------------ Roland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Dressler Mitglied technischer Angestellter Beiträge: 301 Registriert: 19.11.2003 Acad 2002	erstellt am: 19. Jan. 2004 15:42 <-- editieren / zitieren --> Unities abgeben: Nun kommt meine Unwissenheit langsam zu Tage, denn ich hab keine Ahnung wie ich nun in der Variablen "dctAcad" nach den DWGPROBS, oder z.B. nach time oder so suchen kann? Vielleicht kann mir jemand dabei weiter helfen. Der Ansatz scheint mir schon nach meinen bisher geringen VBA-Kenntnissen in die richtige Richtung zu gehen. Aber ich verstehe nicht wie ich nun weiter machen soll? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)