---

Hallo,

ich möchte in CATIA V5 R16 via VBA die momentan eingestellte Masseinheit ermitteln, also mm, Inch, oder ....

Hierzu habe ich in einem VB-Script eine Funktion geschrieben.
Mein Problem: Die Funktion liefert den String PROBLEM_NO_UNIT_AVAIABLE
Eingestellt in CATIA ist aber mm.

Hat jemand einen Tip wie ich an die eingestellte Einheit herankomme?

Meine Funktion:
Function GetUnitOfMeasure(objCatia)
Dim strMagnitude 'Ausmass, Groessenordnung -> Parameter ByReference
Dim strUnitOfMeasure
Dim dblGetDecimal
Dim dblGetExpo
Dim objSettingControllers
Dim objUnitsSheetSettingCtrl
On Error Goto 0
strMagnitude = ""
strUnitOfMeasure = ""
dblGetDecimal = 0.0
dblGetExpo = 0.0
Set objSettingControllers = objCatia.SettingControllers
Set objUnitsSheetSettingCtrl = objSettingControllers.Item("CATLieUnitsSheetSettingCtrl")
objUnitsSheetSettingCtrl.GetMagnitudeValues strMagnitude, strUnitOfMeasure, dblGetDecimal, dblGetExpo
if err.Number=0 then
GetUnitOfMeasure=strUnitOfMeasure
else
GetUnitOfMeasure="Fehler Unit"
end if
set objUnitsSheetSettingCtrl=nothing
set objSettingControllers=nothing
End Function

Gruss Hein_nieH 

------------------
HeinHein

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

---

Servus
Ich vermute dass du mit "strMagnitude" die Größe 8änge, Volumen, ...) übermitteln musst. Leider weiß ich nicht welche Strings da zulässig sind.
ggf kannst du auch über die Mehtode "units" bei der Parameters-Collection die Einheit bestimmen.

Gruß
Bernd

PS: Ist R16 nicht ein bisschen alt?

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Supppi,

das wars. Jetzt funzt es.

Danke
Gruss Hein_nieH

------------------
HeinHein

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

---

Servus
Und wie hast du es jetzt gelöst?
Was hast du als "strMagnitude" übergeben? (in meinem Test hat zb "Lenght" nicht funktioniert, ist das Sprachabhängig?)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo,

der String muss in UpperCase gewandelt werden
LENGTH für Laenge
MASS fuer Masse
VOLUME fuer Volumen
DENSITY fuer Dichte
AREA fuer Flaeche

Dann sollte es funktionieren.
Ich habe es durch Experimentieren in vba herausbekommen.

Gruss Hein_nieH

------------------
HeinHein

[Diese Nachricht wurde von HeinHein am 08. Mrz. 2016 editiert.]

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