erstellt am: 26. Jun. 2006 10:29 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
Hallo Jan,
Probier folgendes:
Sub ProjektName() Dim prj As Object Set prj = ThisDrawing.Application.preferences.Application.VBE MsgBox prj.activevbproject.filename, , "aktueller Projektname" End Sub
Über die Suche hättest du dies auch finden können.
cseTools ALKIS dient zum Einlesen und Verwenden von ALKIS-Daten in das CAD-Basissystem. Dabei bleibt die Performance des CAD hoch, da die Daten nicht direkt in die DWG, sondern eine separate Datenbank eingelesen werden. Im CAD selbst werden diese nur für den sichtbaren Bereich geladen und angezeigt.
startrek Moderator Architekt
Beiträge: 1361 Registriert: 13.02.2003
.
erstellt am: 26. Jun. 2006 10:31 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck