---

Hallo zusammen,

ein Kollege (gute Delphi Kenntnissen) und ich (geringe VBA und Lisp Kenntnisse)haben folgendes Problem:

Wir haben mit Delphi ein Programm zum Archivieren von ACAD-Zeichnungen
gebaut (Dateiname Prüfen, Datei verschieben...)
Jetzt wollen wir es dem Programm ermöglichen auf die Attribute "index" aus dem ACAD-Schriftfeld auszulesen.

Wie kann man das Problem lösen?
Muß ACAD auf dem Rechner istalliert sein auf dem man die Archivierung
startet?

mfg Wolfgang

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

---

Hallo Wolli,

über Lisp ist es mögich, Attribute mit einem bestimmten Namen (z. B. INDEX) aus einem Block (Schriftkopf) auszulesen oder zu verändern, ich hab das in einem anderen Beispiel schon mal gesehen. Wie es deinem Kollegen und Dir gelingt dies mit VBA und Delphi zu kombinieren, da hab ich auch zu wenig Ahnung, vielleicht über Ausgabe des Indexes in eine temporär-Datei, die danach gelöscht wird.

Gruss

Marco

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

---

Auf alle Fälle muß die Zeichnung geöffnet werden. Und um die Attribute auszulesen, bleibt Dir (Euch) nur übrig Acad zu installieren.

------------------
Gruß
CADwiesel

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

---

Hallo zusammen,

eine Alternative wäre die Schnittstelle von OpenDWG.
Die Schnittstelle funktioniert und kann alle Formate (DWG/DXF) lesen und schreiben. Unabhängig von Autocad.
Ist aber nur was für Programmierer

Beste Grüsse

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

---

Vielen Dank zusammen,

das hört sich ja alles nicht sehr ermutigend an.

Wir werden es mal so versuchen wie Marco geschrieben hat.

Ein VBA welches beim Speichern ein Textfile Zeichnungsname.txt
in eine Bibliothek schreibt in dem der Index enthalten ist.
So kann dann das Delpi-Programm darauf zugreifen ohne daß es ACAD braucht.

Vielen Dank und Gruß Wolfgang

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

---

Hallo Wolli,

bin zur Zeit am gleichen Problem, archivieren von Zeichnungen, bin zwar erst am Anfang meiner Programmiererfahrung aber folgende Syntax holt zumindest die Attribute aus dem Schriftkopf, wenn der dementsprechend angepaßt wird:

For i = 0 To objCount - 1
Set mspaceObj = ThisDrawing.ModelSpace.Item(i)
If mspaceObj.EntityName = "AcDbBlockReference" Then
If mspaceObj.HasAttributes Then
attributes = mspaceObj.GetAttributes
insertp = mspaceObj.InsertionPoint
Rotationp = mspaceObj.Rotation
For count = LBound(attributes) To UBound(attributes)
If Header = False Then
attext = attributes(count).TagString
atwert = attributes(count).TextString
If attext = "RAHMEN" Then
rahmen = atwert
insertpr = insertp
Rotationp = Rotation
End If
If attext = "IDENT-NR" Then
identnr = atwert
End If
If attext = "ZEICHNUNG-NR" Then
znr = atwert
End If
If attext = "GEN-TITLE-SCA" Then
sfaktor = atwert
End If
If attext = "BLATT" Then
blnr = atwert
End If
End If
Next count
End If
End If
Next

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