---

Hallo zusammen,

ich lese unterschiedlichste Parameter aus einem Part aus mit Namen und Wert. Funktioniert auch gut. Aber ich hätte gerne noch die Einheit dazu. Unter Item(x).Unit.Symbol komme ich dran, aber wenn ich einen Typ String habe, gibts .Unit ja nicht.
Ich filtere jetzt über Err.Number, aber kennt jemand eine elegantere Möglichkeit?

Danke Euch schon mal im voraus für ne Antwort!

------------------
mfg Gaucho

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

---

Vielleicht kannst du über einen Hilfsstring dir den Parameter erst mal als String umwandeln, dann alle Zeichen von 1,2,3-0 und den "." entfernen. Was übrig bleibt ist dann die Einheit.

------------------
Grüße aus dem Rheinland

Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

"Phase 2 in CATIA V5"  - www.tobeplus.de

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

---

Moin,

nach V5Automation.chm haben nur die Parameter die Eigenschaft Unit, die vom Typ Dimension oder von Dimension abgeleitet sind. Die Typinformation kannst du zur Laufzeit abfragen über TypeName(object) oder in VBA zusätzlich über TypeOf.

Der Code dafür sieht in etwa wie folgt aus, habe ihn jetzt nicht getestet, eventuell heißen die einzelnen Typnamen auch DimensionParam oder so, müsstest du mal ausprobieren.

VBScript:

Code:

---

Dim oParam As Parameter
Set oParam = ...
If TypeName(oParam) = "Dimension" Or TypeName(oParam) = "Angle" Or TypeName(oParam) = "Length" Then
  ...
End If

---

VBA:

Code:

---

Dim oParam As Parameter
Set oParam = ...
If TypeOf oParam Is Dimension Or TypeOf oParam Is Angle Or TypeOf(oParam) Is Length Then
  ...
End If

---

Gruß

Carsten

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