---

Ich bin gerade dabei, einen Dialog zu entwickeln, mit dem man diverse Parameter an CATParts ändern kann, ohne dass man sich dabei im Tree mühsam zu den Parametern hangeln muss. Die Parameter bekomme ich ausgelesen per

documents = CATIA.Documents
partDocument = documents.Item(Filename)
Part = partDocument.Part
Part_Parameters = Part.Parameters

Nun stehen sämtliche Parameter in der in CATIA-internen Einheit (mm) in dem Parameterset (Part_Parameters). Ich würde meinem Anwender jedoch gerne die eingestellten Einheiten anzeigen (z.B: Inch oder Yard). Umrechnen kann ich dank TypeConverter selber, nur weiß ich nicht, wie ich CATIA befragen kann, welche Einheiten der Anwender unter Tools -> Optionen eingestellt hat.

Ist das irgendwie möglich?

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

---

Hab's gefunden:

Code:

---

Dim oUnitsSheetSettingAtt As INFITF.SettingController
oUnitsSheetSettingAtt = oSettingControllers.Item("CATLieUnitsSheetSettingCtrl")

Dim oMagnitude As String
oMagnitude = "LENGTH"

Dim oUnit As String
oUnit = ""

Dim oGetDecimal As Double
Dim oGetExpo As Double

oUnitsSheetSettingAtt.GetMagnitudeValues(oMagnitude, oUnit, oGetDecimal, oGetExpo)

If (oUnit = "Inch") Then
    Dim oUnitInch As String
    oUnitInch = "Millimeter"
    oUnitsSheetSettingAtt.SetMagnitudeValues(oMagnitude, oUnitInch, 6.0, 3.0)
    oUnitsSheetSettingAtt.SaveRepositoryForUnits()
    oUnitsSheetSettingAtt.CommitForUnits()
    MsgBox("The Current Unit is now: " & oUnitInch)
End If

---

Quelle: http://www.3dcadforums.com/cad-communities-7/catia-forum-10/setting-tools-options-2409.html

Doof nur, dass die Einheit als voll ausgeschriebenes Wort daherkommt. Naja.

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