---

Hallo zusammen,

ich möchte gerne mit vb6 einen Block in den Layoutbereich schreiben, was mir auch schon gelungen ist, nur habe ich den sicheren Zugriff auf den Paperspace noch nicht recht im Griff.

Mit folgenden Zeilen Frage ich alle aktuellen Layouts einer Zchng ab,
was super funktioniert und schreibe sie dann in eine Listbox.

  For i = 0 To acadDoc.Layouts.count - 1
        List1.AddItem (acadDoc.Layouts(i).Name)
  Next i

Dann waehle ich einige Layouts und moechte dann in diese immer
den gleichen Block einfuegen.
Das Einfuegen über acadDoc.Layouts ist mir nicht gelungen, dafuer
mit objBlocks = acadDoc.Blocks
Das Problem ist nun, dass ich den Link zwischen der Layoutvariante (wie oben erwaehnt und der objBlocks-Variante finde)
Dh.
objBlocks(i).InsertBlock() kann ich nur ueber die Variable i, das Blockelement ansprechen, aber wie kommen ich denn auf diese Nummer?

  'Alle Blöcke einsetzen
  Set objBlocks = acadDoc.Blocks

  If (BlockName <> "") And dokCADoffen Then
  For i = 0 To List1.ListCount - 1
    If List1.Selected(i) Then
        Set blockRefObj = objBlocks(i).InsertBlock(insertPnt,_
        BlockName, xs, ys, zs, rotation)
      End If
    Next
  Else
      MsgBox ("Bitte einen Block wählen!")
  End If

Das groesste Problem mit der acadDoc.Blocks - Variante habe ich,
wenn sich in der Zeichnung zusatzliche Bloecke befinden, dann
stuerzt mein Programm immer ab.
Ettliche Versuche wie auch mit einer If-Abfrage ein Null-Objekt
abzufangen waren vergeblich.

Kann mir da vielleicht jemand einen guten Rat geben.

Wie kann ich die Paper- und ModelSpaces unter kontrolle haben
und darauf frei zugreifen respektive Objekte einfuegen.

Hoffe da draussen im unendlichen Datenmeer findet sich doch noch
jemand der mir da helfen kann.

Vorerst mal vielen Dank und Viele Gruesse

Kaspar

der Verzweiflung nahe

 

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

---

Hi Kaspar,

Da es sich um AutoCAD dreht würde ich die Frage Mal hier im AutoCAD VBA-Forum stellen. Dort sind auch einige, die mit VB arbeiten.

Gruß, Carsten

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

---

Hi Kaspar,

denke auch, das Acad/VBA Brett wäre besser, aber nixdestotrotz hier mal zwei kleine Ansätzelchen;-)

Code:

---

Sub viaBlock()
    Dim blo As AcadBlock, p#(2)
    For Each blo In ThisDrawing.Blocks
        If blo.IsLayout Then
            If blo.Layout.Name = "Layout_1" Then _
            blo.InsertBlock p, "testblock", 100, 100, 1, 0
        End If
    Next
End Sub

Sub viaLayout()
    Dim p#(2)
    ThisDrawing.Layouts("Layout_1").Block.InsertBlock p, "testblock", 100, 100, 1, 0
End Sub

---

HTH Nancy

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

---

Vielen Dank Ihr zwei,

besonders an Nancy fuer Deine Ruecksicht.

Natuerlich werde ich falls es zu einer weiteren Frage zum gleichen
Thema kommt, was ich nicht ausschliesse, im richtigen Forum
versuchen.

Nun werde ich mich mal begierieg auf die analyse des Codes stuerzen.

Vielen Dank nochmals

Kaspar

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

---

Hat super geklappt.

War selber nahe dran aber habe insertBlock() immer mit
Klammern geschrieben, ja, das geht so halt nicht.

Tschuess

Fabian

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