Tagesdatum per Knopfdruck in das Schriftfeld schreiben

Drücken Sie in Autocad ALT + F11

Speichern Sie das Projekt "Global" unter dem Namen Datum.dvb.

Fügen Sie ein neues Modul ein.

Tragen Sie den unten dargestellten Programmcode in das Modul ein.

Definition der Variablen

Dim objBl As AcadBlockReference

Dim varAtt As Variant

Dim i As Integer

Auswahl des Schriftfeldes

With ThisDrawing.Utility

.GetEntity objBl, varpick, "Block wählen"

Nachschauen, ob Attribute enthalten sind

If objBl.HasAttributes Then

varAtt = objBl.GetAttributes

For i = LBound(varAtt) To UBound(varAtt)

Wenn ein Attribut "Bearbeit." heißt, Datum eintragen

If varAtt(i).TagString = "BEARBEIT." Then

varAtt(i).TextString = Date

Aus der Routine aussteigen

Exit Sub

Erzeugen Sie ein Symbol zum Ausführen des makros

Rechtsklick auf ein beliebiges Symbol

Anpassen…

Benutzerdefiniert

Ziehen Sie die Benutzerdefinierte Schaltfläche in die gewünschte Symbolleiste

Klicken Sie auf das neue Symbol

Geben Sie den Aufruf des Makros ein

^c^c-vbarun;datumeintragen

^c^c Befehlsabbruch

-vbarun Ruft den VBARUN-Befehl ohne Dialogfenster auf

; Return

Datumeintragen Makroname