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