Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  AutoCAD VBA
  Pfad und Dateiname auslesen und an Attribut übergeben

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
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


Sehen Sie sich das Profil von Dirk.B an!   Senden Sie eine Private Message an Dirk.B  Schreiben Sie einen Gästebucheintrag für Dirk.B

Beiträge: 534
Registriert: 25.11.2003

erstellt am: 10. Okt. 2004 18:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von JoeG an!   Senden Sie eine Private Message an JoeG  Schreiben Sie einen Gästebucheintrag für JoeG

Beiträge: 122
Registriert: 18.10.2002

Autocad 2000 und Win2000

erstellt am: 11. Okt. 2004 08:19    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Dirk.B 10 Unities + Antwort hilfreich


Pfad.zip

 
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


Sehen Sie sich das Profil von Dirk.B an!   Senden Sie eine Private Message an Dirk.B  Schreiben Sie einen Gästebucheintrag für Dirk.B

Beiträge: 534
Registriert: 25.11.2003

erstellt am: 12. Okt. 2004 09:10    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von JoeG an!   Senden Sie eine Private Message an JoeG  Schreiben Sie einen Gästebucheintrag für JoeG

Beiträge: 122
Registriert: 18.10.2002

Autocad 2000 und Win2000

erstellt am: 12. Okt. 2004 15:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Dirk.B 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von Dirk.B an!   Senden Sie eine Private Message an Dirk.B  Schreiben Sie einen Gästebucheintrag für Dirk.B

Beiträge: 534
Registriert: 25.11.2003

erstellt am: 12. Okt. 2004 20:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo JoeG!

Vielen Dank für Deine Hilfe.
Das mit der Dieselfunktion hat mir sehr geholfen und funktioniert echt gut.
Den VBA Code werde ich bei Zeiten auch nochmal testen.

Gruß

Dirk

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

mapcar
Mitglied
CADmin



Sehen Sie sich das Profil von mapcar an!   Senden Sie eine Private Message an mapcar  Schreiben Sie einen Gästebucheintrag für mapcar

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Dirk.B 10 Unities + Antwort hilfreich

Wenn du Acad 2005 hast, lässt sich das über fields (Schriftfeld) noch viel einfacher lösen.

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz