---

Hallo,

ich lade in eine Zeichnung einen Block. Dieser Block hat mehrere Attribute.

Anschließend lade ich aus einer Datenbank Handles, Blockposition und Stromkreisbezeichnungen.

Wie bekomme ich es jetzt hin das Autocad mir einen Block nach dem anderem aus der Datenbank zeichnet und das Attribut ŽStromkreisŽ setzt.

Die Datenbankzugriffe und das drumherum stellen kein Problem für mich dar. Zeichne auch Polylinien und texte problemlos aus einer DB in Autocad. Nur das mit den Blöcken versteh ich nicht.
Vielleicht hat jemand ein Codestückchen parrat oder kann mir einen Tipp geben.

Vielen dank im vorraus.

------------------
.

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

---

Hallo,
Auszug aus der VBA-Hilfe:

Code:

---

'RetVal = object.InsertBlock(InsertionPoint, Name, Xscale, Yscale, ZScale, Rotation [, Password])
'------
Sub Example_InsertBlock()
    ' This example creates a block containing a circle.
    ' It then inserts the block.

    ' Create the block
    Dim blockObj As AcadBlock
    Dim insertionPnt(0 To 2) As Double
    insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
    Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "CircleBlock")
   
    ' Add a circle to the block
    Dim circleObj As AcadCircle
    Dim center(0 To 2) As Double
    Dim radius As Double
    center(0) = 0: center(1) = 0: center(2) = 0
    radius = 1
    Set circleObj = blockObj.AddCircle(center, radius)
 
    ' Insert the block
    Dim blockRefObj As AcadBlockReference
    insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0
    Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "CircleBlock", 1#, 1#, 1#, 0)
   
    ZoomAll
   
End Sub

---

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Sorry, für die SPäte Antwort.
HAt geklappt. Vielen Dank.

------------------
.

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