---

Hi Leute,
irgendwie habe ich beim Thema Blöcke eine Denkblokade. Vielleicht ist mein Problem hier im Forum sogar schon mal gelöst worden, ich bin jedenfalls noch nicht fündig geworden. Also es geht um folgendes:
ich habe in eine Zeichnung einen Block mit dem Name Viereck (ist auch wirklich nur ein Rechteck aus 4 einzelnen Linien) eingefügt und möchte nun die Daten (Länge, Winkel innerhalb der x,y-Ebene) für die einzelnen Linien dieses Blockes ermitteln. Ich habe zwar was von XData gelesen, aber die Sache nicht verstanden. Könnt Ihr mir auf die Sprünge helfen?
Vielen Dank schon mal an alle!
Gruß Ines

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

---

Schau dir mal die Blockinfo von Stelli1 an. Das könnte deine 'Denkblockade' lösen.

   

------------------
MfG Proxy

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

---

Hallo Proxy,
danke für Deine Antwort. Ich kann dieses Programm aber nicht herunterladen, jedesmal wenn ich auf Datei herunterladen klicke, öffnet sich ein Texteditor und zeigt mir kryptische zeichen an.
Wenn ich die Programmbeschreibung richtig verstanden habe, kann man damit die Layernamen der einzelnen Blockelemente ermitteln, ich suche aber auch die Koordinaten (Startpunkt, Endpunkt) der einzelnen Elemente.
Gruß Ines

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

---

Hallo Ines,
bei mir klappt es mit dem Download. Alternativ kannst du es von meiner HP unter Tools laden.

Was Proxy meinte ist, dass du hier siehst wie auf die einzelnen Entitys innerhalb des Blockes zugeriffen wird. Wenn du die Entitys innerhalb des Blockes ausliest, kannst du neben dem Layer auch deren anderen Eigenschaften (Koordinatern, Länge etc.) mit auslesen. Wenn du dann auch den Skalierfaktor der Einfügung mit berücksichtigst hast du deine Daten.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Hallo Stelli,
danke für die Antwort. In der Zwischenzeit habe ich es auch geschafft das Programm von Deiner HP zu laden und zu starten. Leider bleibt es mit einer Fehlermeldung stecken. Deshalb habe ich Dir bereits eine Mail geschrieben, in der ich genauer das Problem beschreibe. Ansonsten scheint das genau die Sache zu sein, die ich suche.
Gruß Ines

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

---

Hallo,
@ines
schöne das es geklappt hat
aber wo hast du zuerst versucht die Datei zu laden ?
Wenn da ein Fehler ist wollen wir den beseitigen.

wer sonst noch Probleme hat bitte die Verweise überprüfen:
- Visual Basic for Applications
- AutoCAD 200x-Typenbiliothek
- OLE Automation
- Mircosoft Forms 2.0 Object Library

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Hallo Stelli,
ich bin zuerst dem obigen Hinweis von Proxy gefolgt und auf dieser inoffiziellen Hilfeseite dieses Forum's gelandet und dort dann dem entsprechenden Link gefolgt. Beim Versuch des Downloads hat sich nur die
Textdatei geöffnet.
Ansonsten habe ich am Wochenende versucht Dein Programm zu verstehen, es ist mir aber nicht mal im Ansatz gelungen. Ich kann nur den Hut vor Dir ziehen, da trennen uns Welten, was das Können angeht.
Auf gut Deutsch, ich habe immer noch nicht verstanden, wie ich bei einem  vorhandenen Block die einzelnen Koordinaten jeder einzelnen Linie erhalte. Ich werde mich wohl doch weiter belesen müssen, vielleicht kannst Du mich ja auf den richtigen Weg schieben?
Gruß Ines

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

---

Hallo Ines,

Probier dies:

Public Sub Testblock()
Dim Block As AcadBlock
Dim Object As AcadObject
Dim Ausgabe As String
Dim Pickedpoint As Variant
On Local Error Resume Next
Ausgabe = "Objekt wählen:"
ThisDrawing.Utility.GetEntity Object, Pickedpoint, Ausgabe
Set Block = ThisDrawing.Blocks(Object.Name)
'Ab hier enthält "Block" die einzelnen Elemente des Blocks
End Sub

Ist zwar nicht besonders schön, aber es zeigt dir auf, wie du an die einzelnen Elemente im Block rankommst.

Gruß, Carsten

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

---

Hallo Carsten,
super, vielen Dank!
Das ist genau die Hilfe, die ich als Anfänger brauche. Jetzt kann ich weiter probieren! 10 Unities sind unterwegs!
Gruß Ines

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