---

Hallo zusammen,
weiss jemand wie ich einen mit "Wblock" erstellten BLOCk mittels VBA in eine zeichnung einfügen kann?

hab es nur über den umweg xref anhängen und binden geschafft:

    Dim einfüge As Variant
    Dim importfile As String

    Dim xrefHome As AcadBlock
    Dim xrefInserted As AcadExternalReference
    importfile = "C:\RaumStmp\Raum-NR.dwg"
  einfuege = ThisDrawing.Utility.GetPoint(, "Bitte den Einfügepunkt für Block " & name & " wählen")
    Set xrefInserted = ThisDrawing.ModelSpace. _
            AttachExternalReference(importfile, "Raum-NR", _
            einfuege, 1, 1, 1, 0, True)

    ThisDrawing.Blocks.Item(xrefInserted.name).Bind True

CU Olli

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

---

Hallo Olli,

wie wäre es, wenn Du dies direkt in die Eigenschaften von einem ICON einträgst. So kannst Du nämlich auch ein WBlock einfügen ; )

^C^C(command "_insert") C:/RaumStmp/Raum-NR.dwg \ ;;

Oder willst Du vielleicht noch etwas anders in Dein VBA Programm einfügen?!

Mit freundlichen Grüßen
Feyza

------------------
 

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

---

ne so nicht, da ich über eine Userform Attribute setze und diese dann beim setzten des blocks übergebe hab es aber jetzt selbst gelöst, trotzdem danke:

Es geht doch über die .InsertBlock-Methode
ich hab gedacht es geht damit nicht, da der Block kaputt war ;o)

errorhndl:
'Error Nummer bei nicht vorhandenem Block
If Err.Number = "-2145386445" Then
MsgBox ("Der Block 'BD1x1' ist nicht in dieser Zeichnung vohanden")
Dim PT1 As Variant
Dim importfile As String
                             
  importfile = "C:\Durchbruch\BD1x1.dwg"
    Set blockref = ThisDrawing.ModelSpace.InsertBlock(einfuege, importfile, Länge1, Breite1, Höhe1, Winkel1)
           
  MsgBox "Der Block wurde der Zeichnung zugeführt"
  GoTo weiter
 
Else
MsgBox (Err.Description)
End If
ende:

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