---

Hallo Zusammen,

hier im Forum habe ich folgendes nettes programmchen,für das einfügen von "vorhandenen" Blocken in externen Zeichnungen gefunden.

Dim einfuege As Variant
Dim name As String
Dim blockref As AcadBlockReference 

On Error GoTo errorhndl

name = "Raum-NR"
einfuege = ThisDrawing.Utility.GetPoint(, "Bitte den Einfügepunkt für Block " & name & " wählen")

Set blockref = ThisDrawing.ModelSpace.InsertBlock(einfuege, importfile, 1, 1, 1, 0)

errorhndl:
If Err.Number = "-2145386445" Then
MsgBox ("Der Block 'Raum-NR' ist nicht in dieser Zeichnung vohanden")
Dim importfile As String
importfile = "C:\RaumStmp\Raum-NR.dwg"
Set blockref = ThisDrawing.ModelSpace.InsertBlock(einfuege, importfile, 1, 1, 1, 0)
Else
MsgBox (Err.Description)
end if

Aber, wie ich kann in eine Zeichnung eine externe Zeichnung als Block einfügen?!

Danke für die Unterstützung

Schöne Grüße
Feyza : )

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

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

---

wenn ich dieses Prog bei mir umsetzte, kommt ein AutoCAD fenster mit folgender Meldung:

AutoCAD Hauptfenster ist nicht sichtbar

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

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

---

Gelöst : )

Me.Hide

"den Programm code"

Me.Show

Man muß das Formular ausblenden und wieder einblenden : )

Schöne Grüße
Feyza : )

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

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