---

Ich habe ein Programm geschrieben, dass Zeichnungselemente per WBlock als dxf ablegt.
Öffnet man diese nun, ist nicht alles sichtbar.

Dies würde ich gerne mit ZoomExtents machen, wenn möglich in einer Side-Database, also die dxf hierfür nicht öffnen.
Sollte es nicht anders funktionieren wäre ich auch hier offen für einen Denkanstoß 

Code:

---

Dim prRes As PromptSelectionResult = ed.GetSelection()
                    If prRes.Status <> PromptStatus.OK Then
                        Return
                    End If
                    Dim objIds As New ObjectIdCollection()
                    Dim objIdArray As ObjectId() = prRes.Value.GetObjectIds()
                    ' Copy objectIds to objectIdCollection
                    For Each id As ObjectId In objIdArray
                        objIds.Add(id)
                    Next
                    '#################
                 
                    Using newDb As New Database(True, False)
                        db.Wblock(newDb, objIds, Point3d.Origin, DuplicateRecordCloning.Replace)    'gewählte Elemente in neue Datenbak
                        newDb.DxfOut(dxfName, 16, DwgVersion.AC1015)
                     
                    End Using

---

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

---

Diese sollte doch helfen:
http://forums.autodesk.com/t5/NET/Zoom-Extents-on-new-Database/m-p/2070837#M8188
Hoffe ich zumindest, viel Erfolg! 

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


www.cars4fun.at

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

---

Vielen Dank,

funktioniert super!

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