Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Solid Edge
  Phys. Einheiten per VB auslesen und verändern

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SolidEdge
Autor Thema:  Phys. Einheiten per VB auslesen und verändern (1152 mal gelesen)
dila
Mitglied
Konstrukteur


Sehen Sie sich das Profil von dila an!   Senden Sie eine Private Message an dila  Schreiben Sie einen Gästebucheintrag für dila

Beiträge: 26
Registriert: 08.03.2005

Windows 7
39x Solid Edge ST 8
Oracle Agile e6 als PDM

erstellt am: 10. Dez. 2008 11:03    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Edger,

wie kann ich per VB die physikalischen Einheiten der Dichte, Flache, Masse usw. auslesen und ggf. verändern?

Konkret: ich möchte vom geöffneten Part wissen, welche Einheiten eingestellt sind und diese im Bedarfsfall ändern.

Mit der Bitte um rasche Hilfe,
DILA70

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

modeng
Ehrenmitglied V.I.P. h.c.



Sehen Sie sich das Profil von modeng an!   Senden Sie eine Private Message an modeng  Schreiben Sie einen Gästebucheintrag für modeng

Beiträge: 7061
Registriert: 10.12.2003

erstellt am: 10. Dez. 2008 14:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für dila 10 Unities + Antwort hilfreich

Code:

Dim objUnits As SolidEdgeFramework.UnitsOfMeasure
Dim objUnit As SolidEdgeFramework.UnitOfMeasure
'
    Set objUnits = objDocument.UnitsOfMeasure
    '
    For Each objUnit In objUnits
        Select Case objUnit.Type
            Case SolidEdgeConstants.UnitTypeConstants.< unit type>
            if objUnit.Units <> < unit Type> then
            objUnit.Units = SolidEdgeConstants.UnitOfMeasure< type >ReadoutConstants .< unit type>
            endif
            Case SolidEdgeConstants.UnitTypeConstants.< unit type>
            ...
            ...
            Case Else
            '
        End Select
    Next objUnit


[Diese Nachricht wurde von modeng am 11. Dez. 2008 editiert.]

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

dila
Mitglied
Konstrukteur


Sehen Sie sich das Profil von dila an!   Senden Sie eine Private Message an dila  Schreiben Sie einen Gästebucheintrag für dila

Beiträge: 26
Registriert: 08.03.2005

Windows 7
39x Solid Edge ST 8
Oracle Agile e6 als PDM

erstellt am: 11. Dez. 2008 07:39    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo modeng,

vielen Dank für den Tip, da wäre ich noch lange nicht draufgekommen....
Unities werden sofort geschickt.

Bleibt nur noch eines offen:
Wo finde ich eine Liste der möglichen Einheiten (zB. 4 entspricht bei der Dichte "kg/m³").
In der SolidEdge V18-Hilfe bin ich leider nicht fündig geworden (ich muß leider noch die V18 verwenden).
Hat da noch jemand einen Tip?

Dank im Voraus für Eure Hilfe,
DILA70

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

rulfman
Mitglied
IT-Manager / CAD-Administrator


Sehen Sie sich das Profil von rulfman an!   Senden Sie eine Private Message an rulfman  Schreiben Sie einen Gästebucheintrag für rulfman

Beiträge: 85
Registriert: 22.06.2004

erstellt am: 11. Dez. 2008 08:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für dila 10 Unities + Antwort hilfreich

Hallo dila,

schau im .net-Objektbrowser unter:


Interop.SolidEdgeConstants - SolidEdgeConstants - UnitOfMeasureDensityReadoutConstants

0 -> seDensityPoundMassPerFootCubed
1 -> seDensityPoundMassPerInchCubed
2 -> seDensitySlugPerFootCubed
3 -> seDensitySlinchPerFootCubed
4 -> seDensityKilogramPerMeterCubed
5 -> seDensityKilogramPerDecimeterCubed
6 -> seDensityKilogramPerCentimeterCubed
7 -> seDensityKilogramPerMillimeterCubed
8 -> seDensityKilogramPerLiter
9 -> seDensityGramPerMeterCubed
10 -> seDensityGramPerDecimeterCubed
11 -> seDensityGramPerCentimeterCubed
12 -> seDensityGramPerMillimeterCubed


Gruß rulfman

------------------
Gruß Ralf  

_______________________________
* Printed on 100% recycled electrons *

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

dila
Mitglied
Konstrukteur


Sehen Sie sich das Profil von dila an!   Senden Sie eine Private Message an dila  Schreiben Sie einen Gästebucheintrag für dila

Beiträge: 26
Registriert: 08.03.2005

Windows 7
39x Solid Edge ST 8
Oracle Agile e6 als PDM

erstellt am: 11. Dez. 2008 11:19    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Vielen Dank für den Hinweis!

habe zwar VB6, ist dort aber ganz ähnlich zu finden!

DILA

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

modeng
Ehrenmitglied V.I.P. h.c.



Sehen Sie sich das Profil von modeng an!   Senden Sie eine Private Message an modeng  Schreiben Sie einen Gästebucheintrag für modeng

Beiträge: 7061
Registriert: 10.12.2003

erstellt am: 11. Dez. 2008 11:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für dila 10 Unities + Antwort hilfreich

jau, Du musst nur die beiden verschiedenen Typen beachten:

Select Case objUnit.Type
  Case igDistance --> sind aus UnitTypeConstants ig...

objUnit.Units  --> UnitOfMeasure< type >ReadoutConstants se...

in VB6 kann man's auch kuerzer schreiben

case igDistance
  if objUnit.Units <> seLengthMeter then

 

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz