Experimentiere gerade mit VB.NET rum (leider sehr geringe Kentnisse) und stehe vor folgendem Problem:
Habe es schon geschafft mit einer externen VB.NET Applikation eine DWG zu öffnen und darin einzelne Sheets zu erstellen. Auf diesen Sheets möchte ich nun eine DWG als Block einfügen. FUnktioniert soweit, nur fügt er alle DWGs (aus einem bestimmten Verzeichnis) in das aktuelle Layout ein. Wie kann ich mit VB.NET ein bestimmtes Layout mit z.B. Name "Sheet1" aktiv setzen, damit der Block dort eingefügt wird?
CODEAUSSCHNITT:
For Each fi In di.GetFiles("*.dwg")
'Layout anfügen für nächstes File im Sourceordner
Sheet = Sheet + 1
Sheetname = "Sheet" & Sheet
vAcadDoc.Application.ActiveDocument.Layouts.Add(Sheetname)
vAcadDoc.Application.ActiveDocument.ActiveSpace = AcActiveSpace.acPaperSpace
'Layout activ setzen
????
'File aus Sourceordner als Block in Layout einfügen vAcadDoc.Application.ActiveDocument.PaperSpace.Layout.Block.InsertBlock(insertionPnt, txtSourcepath.Text & "\" & fi.ToString, 1, 1, 1, 0)
Next
Danke
Leon
------------------
mfg
Leon
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP