| |
| 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
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 / zitieren --> Unities abgeben:
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.
Beiträge: 7061 Registriert: 10.12.2003
|
erstellt am: 10. Dez. 2008 14:11 <-- editieren / zitieren --> Unities abgeben: Nur für dila
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
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 / zitieren --> Unities abgeben:
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
Beiträge: 85 Registriert: 22.06.2004
|
erstellt am: 11. Dez. 2008 08:44 <-- editieren / zitieren --> Unities abgeben: Nur für dila
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
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 / zitieren --> Unities abgeben:
|
modeng Ehrenmitglied V.I.P. h.c.
Beiträge: 7061 Registriert: 10.12.2003
|
erstellt am: 11. Dez. 2008 11:31 <-- editieren / zitieren --> Unities abgeben: Nur für dila
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 |