---

Ich habe in der Draft ein Weg-Zeitdiagramm erstellt, was ich über Verknüpfungen mit Excel steuer. Leider sieht das Diagramm mit den echten Werten etwas zu klein aus. Deshalb habe ich in Excel eine Art Skalierungsfaktor eingebaut. Jetzt möchte ich natürlich auch die richtigen Werte in der Draft angezeigt bekommen. Dies könnte ich zwar über den Skalierungsmodus steuern, aber nicht variabel über das Excelblatt ändern. Welche Möglichkeit gibt es, über Excel den Wert in Skalierungsmodus zu ändern oder kann ich das Maß über eine Formel schreibe ? Schon einmal vielen Dank im Voraus. Stefan

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

---

Nimm einen Masstab im Draft.
Plaziere dann deine Grafik im 2d Modellblatt und füge dann diese Ansicht ins normale Blatt ein und dann kannst du den Masstab beliebig ändern.

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

---

Bemaßungseigenschaften.jpg

Hallo kmw,
da mein Kollege schon Feierabend hat, hier nochmal das Problem.
Im Bild ist zu sehen, dass das Maß 12 geändert ist. 120 ist die Linienlänge im 2D Modelblatt.
Einmal durch den Maßstab 1:2 ist die Linie verkürzt dargestellt, zudem wurde unter Bemaßungseigenschaften der Skalierungsmodus auf Manuell, 5, gesetzt. Dadurch ergibt sich nun das Maß 12.
Die Frage ist nun, kann mann diesen Skalierungsmodus über Excel oder die Variablentabelle steuern?
Anregungen werden gerne angenommen.

------------------
Rainer

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

---

Hallo Rainer,

es ginge sicher über einen Excelmakro.
Bei Excelmakros handelt es sich ja im Grund um Visual Basic.
Mit VB, in diesem Fall VBA, hast Du ja Zugriff auf alle Solid Edge Objekte.
D.h. Excel selbst schreibt, statt Du, den Wert dort rein.

------------------
Gruß
Markus Gras
Unitec Informationssysteme GmbH

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

---

Bemaßungseigenschaften.jpg

Hallo Markus, leider ist es etwas schwierig zu erklären was wir suchen. Es geht darum, ob der Bemaßungsskalierungsfaktor irgendwo hinterlegt ist und veränderbar ist. Im Anhang das Registerblatt Bemaßungseigenschaft, in dem ich den Skalierungsmodus manuell geändert habe. Diesen Faktor möchte ich über Excel verändern. Ich hoffe du verstehst das Problem. Bis dann... Stefan

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

---

Hallo Stefan,

dieser Wert ist selbstverständlich hinterlegt, aber leider an keiner Stelle die Du mit einer simplen Variablenverknüpfung zu Excel erreichen kannst.
Es geht wohl nur mit VB, weil Du damit auch direkt auf die Eigenschaften des Maßobjektes zugreifen kannst.
Also alle Einstellungen in den Maßeigenschaften kannst Du damit ändern.
Es erfordert allerdings etwas VB Wissen um es zu realisieren, es ist aber andererseits kein Riesenaufwand.
Ein Beispiel ist bei Solid Edge unter \Custom\Bearing zu finden, die dortige Exceltabelle schreibt Werte ins Part.

------------------
Gruß
Markus Gras
Unitec Informationssysteme GmbH

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

---

hiermal eine kleine Subroutine die das macht

Code:

---

'
' Will change only dimensions that are linear and driven ones
' The dimension scale is an inverse property; that is, a dimension
' scale of 0.5 doubles the dimension
'
Private Sub setDimScale(pFactor As Double)
    Dim mApp As SolidEdgeFramework.Application
    Dim mDraft As DraftDocument
    Dim oDimens As Dimension
'
    Set mApp = GetObject(, "SolidEdge.Application")
    Set mDraft = mApp.ActiveDocument
    For Each oDimens In mDraft.ActiveSheet.Dimensions
        If oDimens.StatusOfDimension = seDimStatusDriven And _
            oDimens.Style.DimensionScaleMode = igDimStyleScaleAutomatic  ' reset
            oDimens.Style.DimensionScale = pFactor
            oDimens.Style.DimensionScaleMode = igDimStyleScaleManual
        End If
    Next
    '
    Set mApp = Nothing
    Set mDraft = Nothing
    Set oDimens = Nothing
    '
End Sub

---

musst dann halt in das VBA in Excel so oder angepasst einbauen
und dann aus dem Coding mit dem passenden Wert als argument
aufrufen z.B.:  Call setScale(5)

[Diese Nachricht wurde von modeng am 05. Feb. 2010 editiert.]

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