---

Hallo zusammen,
gibt es bei Inventor die Möglichkeit, eine eigene Einheit zu erstellen (z.B. indem man angibt 1HE entspricht 44,45mm), ich brauche nämlich öfter mal die Angebe HE und nicht die mm in der Zeichnung.

Danke schonmal

Bianca

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

---

Für was steht HE? Heisse Eisen? 

------------------
Gert Dieter 

Wer nicht an Wunder glaubt, ist kein Realist. (Chaim Weizmann)

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

---

Google das mal :-)
Steht für Höheneinheit bei 19 Zoll Gehäusen.

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

---

Wäre nicht eine benutzerdef. Parameter HE = 44,45mm auch brauchbar?
dann bei Maßanfragen z.B. einfach 2*HE eintragen.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Ich nehme mal an, es geht um die Darstellung in der Zeichnung. Da hatte ich mal ein ähnliches Problem und mir ein Makro geschrieben. Habe es mal umgearbeitet:

Code:

---

Sub HE()

  Dim oDoc As Object
  Dim oSelEnt As Object
  Dim dHE As Double
  Dim iHE As Integer
 

  'Nur in Zeichnung
  If ThisApplication.ActiveDocumentType <> kDrawingDocumentObject Then Exit Sub
  'Objekt herstellen
  Set oDoc = ThisApplication.ActiveDocument

  'Nur wenn was Selektiert ist
  If oDoc.SelectSet.Count <> 1 Then
    MsgBox "Bitte ein Maß auswählen!"
    Exit Sub
  End If
 
  Set oSelEnt = oDoc.SelectSet.Item(1)
 
  If oSelEnt.Type <> kLinearGeneralDimensionObject Then
    MsgBox "Bitte ein Maß auswählen!"
    Exit Sub
  End If
 
  'Wert umrechnen (Intern = cm)
  dHE = oSelEnt.ModelValue / 4.445
 
  'Prüfe, ob ganze HE
  iHE = Round(dHE, 0)
  If Abs(dHE - iHE) > 0.01 Then
    MsgBox "Keine gültige HE!"
    Exit Sub
  End If
       
  'Anzeige mit mm als 2. Einheit
  oSelEnt.Text.FormattedText = Trim(Str(iHE)) + " HE [<DimensionValue/>]"
       
       
  'Alternativ: Anzeige solo (Kommentarzeichen entfernen)
'  oSelEnt.Text.FormattedText = Trim(Str(iHE)) + " HE"
'  oSelEnt.HideValue = True
     
 
End Sub

---

Du musst erst dein Maß markieren und dann das Makro starten.

------------------
Grüße Jörgen

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

---

Vielen, vielen Dank!!!!
Das ist genau das, was ich brauche!

Hatte zwar gehofft, dass es einfacher geht als mit einem Macro, aber nun gut...

LG Bianca

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