---

Hallo zusammen,

habe ein Tool geschrieben, welches die Daten von Blöcken (Attribute) in eine Access-Datenbank speichert. Hier soll nun eine Auswertung der Daten erfolgen. Eine wichtige Information wäre nun noch die Verbindungslinie, mit der die Blöcke verbunden sind (Elektrozeichnung).

Hat einer eine Idee wie ich an diese Information komme und wie ich erkennen kann an welchem Block eine Linie endet.

Für jeden Tipp dankbar.

Viele Grüße
Udo

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

---

Iimho musst du die einzelnen Subentities mit einer Schleife durchrattern oder den Block sprengen und dann mit den einzelnen Objekten ein intersectionpoint errechnen.

Zitat:

---

- snip
Dim ExpBlk As Variant
Dim PntArr() As Variant
Dim CurEnt As AcadEntity
Dim EntCnt As Integer
Dim LowBnd As Integer
Dim UppBnd As Integer

ExpBlk = TheBlockReference.Explode
LowBnd = LBound(ExpBlk)
UppBnd = UBound(ExpBlk)
Redim PntArr(LowBnd To UppBnd)
For EntCnt = LowBnd To UppBnd
Set CurEnt = ExpBlk(EntCnt)
With CurEnt
PntArr(EntCnt) = .IntersectWith(TheOtherEntity, acExtendNone)
.Delete
End With
Next EntCnt
- snip

---

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

Vielen Dank, die Antwort hat mich einen Schritt weiter gebracht.

Bin nun noch dabei die richtigen Objekte zu selektieren, damit durch die Abfrage keine Fehler erzeugt werden.

Viele Grüße
Udo

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

---

Hallo UdoSf,
ich habe vor, genau das Selbe zu machen, bloß, dass ich die Werte für die Attribute von einer Datenbank aus abrufen will, weiss aber nicht genau, wie man mit VBA Attribute anspricht, könntest du mir vielleicht mal einen Code-Auszug deines Programms schicken?

E-mail: Dominik.Drexl@gmx.de

Für deine Bemühungen bedanke ich mich schon mal im Voraus!!

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

---

Hallo Dexta,

habe einen Programmausschnitt per Mail an Deine Adresse geschickt.

Viele Grüße
Udo

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