| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Pfad und Dateiname auslesen und an Attribut übergeben (4831 mal gelesen)
|
Dirk.B Mitglied Tischler / Leiter Arbeitsvorbereitung
Beiträge: 534 Registriert: 25.11.2003
|
erstellt am: 10. Okt. 2004 18:47 <-- editieren / zitieren --> Unities abgeben:
Hallo Zusammen! Ich hoffe ihr hattet bislang ein schönes Wochenende? In meinen Zeichnungsrahmen habe ich feste Schriftfeldblöcke mit Attributseingaben hinterlegt. Ein Attribut ist davon das "BDATEINAME" zur Angabe des kompletten Zeichnungsnamen mit Pfadangabe. Dies muß ich aber bislang manuel eingeben. Kann man dies über ein VBA Code lösen, der dies automatisch beim speichern der Zeichnung erledigt? Wenn ja, dann wäre es schön, wenn mir dabei jemand helfen könnte. Vielen Dank im voraus. Gruß Dirk Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
JoeG Mitglied Systemadmin NX und Autocad
Beiträge: 122 Registriert: 18.10.2002 Autocad 2000 und Win2000
|
erstellt am: 11. Okt. 2004 08:19 <-- editieren / zitieren --> Unities abgeben: Nur für Dirk.B
Hallo Dirk Du kannst das auch Autocad überlasen Als Anlage habe ich einen Block beigefügt. Wenn du diesen Block einfügst zeigt er dir den Namen der Zeichnung an. Der angezeigte Name wird bei jedem Öffnen der Zeichnung aktualisiert. Der Block enthält einen "RText" mit einer Diesel-Funktion mfg Joe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dirk.B Mitglied Tischler / Leiter Arbeitsvorbereitung
Beiträge: 534 Registriert: 25.11.2003
|
erstellt am: 12. Okt. 2004 09:10 <-- editieren / zitieren --> Unities abgeben:
Hallo JoeG! Erstmal vielen Dank für Deine Hilfe. Ich habe mir den Block mal in eine Zeichnung eingefügt und es passiert leider nichts. Es wird mir nichts angezeigt, weder als Objekt noch als Text. Auch wenn ich den Block ansich öffne, um ihn mit Ursprung aufzulösen, sehe ich nur 5 Linien. Kannst Du mir diese Geschichte mit der Dieselfunktion mal erläutern, es würde mich sehr interessieren? Vielen Dank im voraus. Gruß Dirk Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
JoeG Mitglied Systemadmin NX und Autocad
Beiträge: 122 Registriert: 18.10.2002 Autocad 2000 und Win2000
|
erstellt am: 12. Okt. 2004 15:48 <-- editieren / zitieren --> Unities abgeben: Nur für Dirk.B
Hallo Dirk Als erstes erzeigst du ein Textobjekte mit dem Befehl "rtext". Das Textobjekt kann Dieselausdrücke verarbeiten. Für denn Pfad haben ich „$(upper, $(getvar, DWGPREFIX) $(getvar, DWGNAME) )“ in das Fenster eingegeben. Das war’s auch schon, für andere Anwendungen z.B. Datum und so gibt es unter DIESEL eine halbwegs gute Onlinehilfe in Autocad. In VBA habe ich noch eine andere Möglichkeit
Sub block() Dim Einfügepunkt(0 To 2) As Double Einfügepunkt(0) = 2 Einfügepunkt(1) = 2 Einfügepunkt(2) = 0 Dim BlockRefObj As AcadBlockReference Set BlockRefObj = ThisDrawing.ModelSpace.InsertBlock(Einfügepunkt, "Pfad", 1#, 1#, 1#, 0) Dim AttWerte As Variant AttWerte = BlockRefObj.GetAttributes AttWerte(0).TextString = ThisDrawing.FullName End Sub Diese Sub fügt eine Block mit einem Attribut ein dem nach dem einfügen der Pfad und der Name der aktuellen Zeichnung zugewiesen wird. Joe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dirk.B Mitglied Tischler / Leiter Arbeitsvorbereitung
Beiträge: 534 Registriert: 25.11.2003
|
erstellt am: 12. Okt. 2004 20:20 <-- editieren / zitieren --> Unities abgeben:
|
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Die Phönizier haben das Geld erfunden - aber warum so wenig? (Johann Nepomuk Nestroy)
|
erstellt am: 15. Okt. 2004 10:56 <-- editieren / zitieren --> Unities abgeben: Nur für Dirk.B
|