---

Hallo zusammen,

ich habe einen ganzen Schwung Zeichnungen bei denen ich die Bemaßungen und Führungen so umstellen muss, dass die Pfeile offen sind.
(rechtsklick auf Maß/Eigenschaften/Symbole/Typ messen:Pfeil(offen))

Nun habe ich hier bereits ein VB-Makro, welches die dftŽs automatisch in dwgŽs konvertiert.

Ich möchte im gleichen Zug die Bemaßungen und Führungen umstellen.

Kann mir jemand sagen, wie ich an die Eigenschaften der Bemaßungen rankomme bzw. wie sich das am Besten realisieren läßt.
Das Makro soll also eine Zeichnung öffnen, die Pfeile auf "offen" stellen und im Anschluß die Zeichnung als dwg speichern.

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

---

Ändere die Einstellung in den verwendeten Formatvorlagen/Styles.
Das muss für jede Zeichnung gemacht werden, da jede Zeichnung nur eine Kopie des Templates ist.
Lästiger wird es bei manuell angepassten Maßen. Dann müssen die Eigenschaften jedes Maßes geändert werden.

------------------
APeters@BSS-Online.de

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

---

Vielen Dank Arne,
das beschleunigt die Sache auf jeden Fall schon mal.

Aber, ist es denn nicht möglich über VB zu sagen, öffne die Zeichnung und stelle die Formatvorlage um, bzw. mache bei allen Bemaßungen die gewünschte Änderung.
Im AutoCAD hat das recht einfach funktioniert.
Leider fehlt mir für SolidEdge die Erfahrung bzw. ein Lösungsansatz in Form eines Quelltextes.

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

---

Ich meinte schon, dass Du das über VB machen sollst.
Wenn Du weißt welche Styles verwendet werden, kann es nicht so schlimm sein. Ich kann nur grade den Quellcode nicht für Dich erstellen, da ich was anderes mache.
Die Objektstruktur müsste doch im Objektbrowser zu bekommen sein.
Application. DraftDocument.DimensionStyles("Blabla").Terminatortype=igdimstylehollow oder so ähnlich...

------------------
APeters@BSS-Online.de

[Diese Nachricht wurde von Arne Peters am 01. Mrz. 2010 editiert.]

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

---

So müsste es gehen:

        Dim objApp As SolidEdgeFramework.Application
        Dim objDoc As SolidEdgeDraft.DraftDocument
        Dim mSheets As SolidEdgeDraft.Sheets
        Dim mSheet As SolidEdgeDraft.Sheet
        Dim mDimensions As SolidEdgeFrameworkSupport.Dimensions
        Dim mDimension As SolidEdgeFrameworkSupport.Dimension

        ObjApp = GetObject(, "SolidEdge.Application")
        objDoc = objApp.ActiveDocument
        mSheets = objDoc.Sheets

        For Each mSheet In mSheets
            mDimensions = mSheet.Dimensions
            For Each mDimension In mDimensions
                mDimension.Style.TerminatorType = SolidEdgeFrameworkSupport.DimTermTypeConstants.igDimStyleTermOpen
            Next
        Next

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

---

Super. Das funktioniert prima.
Gibt es eigentlich auch eine Möglichkeit Systemmeldungen zu deaktivieren?
Ich habe von dem Auftrag nur die dftŽs.
Wenn man diese öffnet, meldet er ja, dass er das Modell nicht findet.
Das stört bei so einem automatisierten Ablauf natürlich.

Kann man das abschalten?

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

---

Versuch mal Application.DisplayAlerts = False.

------------------
APeters@BSS-Online.de

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

---

Super Sache, jetzt läuft es durch.
Vielen Dank.
Ihr habt mir einen Haufen geklicke und gepiepse erspart 

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