---

Hi,

wird beim Inventor 6 eine Bohrung direkt mit einer Senkung versehen,
ist bei mir der voreingestellte Wert immer 82 Grad und nicht wie ge-
wuenscht 90 Grad.Laest sich dieser Wert dauerhaft ändern ?

Gruß

Sven

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

---

Hi Anfangsgeschwindigkeit!

Das habe ich hier auch schon mal gefragt, aber keine Antwort.

Ich schlage Dir vor, in Deiner Vorlage einen Texthinweis zu machen wie:

Angegebener Winkel 82° ist 90°

Dann braucht nix umstellen und die Zeichnung stimmt auch wieder.
Sollte sich doch jemand einen 90° Senker auf 82° schleifen, kannst Ihn immer noch auf Deinen Text verweisen.

Grüße
Alex

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

---

Hi zusammen!
Die 82° werden ein ewiges Rätsel bleiben.
Im Template umstellen ist nicht.
Weiß wer, ob die 82° in ANSI Standard sind?

------------------
lg 
Tom
               
mcds Datensystem GmbH

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

---

ANSI kennt zwei Senkungen: 82° (Standard) und 100°.

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

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

---

Hier ein kleines Tool zur nachträglichen Bearbeitung aller Bohrungen in einem Teil:

Sub MachMalNeunzig()

If ThisApplication.ActiveDocumentType = kPartDocumentObject Then
 
  Dim oHF As HoleFeature
  For Each oHF In ThisApplication.ActiveDocument.ComponentDefinition.Features.HoleFeatures
 
    If oHF.HoleType = kCounterSinkHole Then
      If Abs(oHF.CSinkAngle.ModelValue - 1.43116999) < 0.000001 Then
        oHF.CSinkAngle.Value = 1.5707963267949
      End If
    End If
  Next
End If

ThisApplication.ActiveDocument.Update

End Sub

Die Routine durchläuft alle Senkbohrungen in der IPT (die muss aktiv sein). Wenn es auf eine Bohrung trifft, die 82° hat, dann macht sie 90° draus.

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

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

---

Hallo Pisarz,
Dein programmbeispiel sieht gut aus, ist aber für newcomer nicht auszuwerten.
- wie speichern?
- wie in IV einbinden und starten?
- auch für 5.3 zu gebrauchen?
Schreiben anscheinend in jedem Editor?
Gruss aus dem Harz
Voschirmer

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

---

Mag sein das ich heue ein wenig begriffstutzig bin, aber warum verwendet ihr nicht zum erstellen einer 90° Senkung auch die zylindrische Senkung. Im Bohrungsfeature gibt es das doch. Durchganngsbohrung, Bohrungs mit zylindrische Senkung und Bohrung mit konischer Senkung.

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

---

Hi Sparky

genau bei dieser Funktion,also zylindrische Bohrung
mit konischer Senkung, ist der Winkel auf 82 Grad vor-
eingestellt 

Gruss

Sven

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

---

Hallo Voschirmer,

kurzgesagt:

1. Makroeditor (auch VBA-Editor genannt) öffnen (Extras(bzw. Werkzeuge) -> Makros -> Visual Basic Editor)
2. Links im Editorfenster gibt es eine Baumstruktur (Projektfenster), dort im Anwendungsprojekt - Module das Modul1 doppelklicken.
3. spätestens jetzt gibt es rechts ein Fenster, in den man Text eingeben kann. Dort den fetten Text des Makros (von Sub... bis End Sub) hineinkopieren.
4. Speichern (im Editor). Editor schließen.
5. Im IV unter Extras (bzw. Werkzeuge) -> Makros -> Makros wählen und im Dialogfeld in der Auswahl "Makros in:" das Anwendungsprojekt wählen.
6. Nun erscheint oben in der Liste sowas wie Modul1.MachMalNeunzig. Markieren und ausführen.

Für Inventor 5.3 sieht das Programm wie folgt aus:

Sub MachMalNeunzig()

If ThisApplication.ActiveDocumentType = kPartDocumentObject Then
 
  Dim oHF As HoleFeature
  For Each oHF In ThisApplication.ActiveDocument.ComponentDefinition.Features.HoleFeatures
 
    If oHF.HoleType = kCounterSinkHole Then
      If Abs(oHF.CSinkAngle.Value - 1.43116999) < 0.000001 Then
        oHF.CSinkAngle.Value = 1.5707963267949
      End If
    End If
  Next
End If

ThisApplication.ActiveDocument.Update

End Sub

Der Unterschied liegt in oHF.CSinkAngle.Value, da 5.3 die Eigenschaft oHF.CSinkAngle.ModelValue nicht kennt. So wie hier läufts wahrscheinlich auch im 6er.

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

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

---

Hallo Jörgen,
man dankt, anbei ein Bakschisch in Form von Unities
voschirmer

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

---

Hallo Jörgen,

also im 6er funzt es nicht. Die Bohrung hat den Typ: 83912192 = kHoleFeatureObject. Die Senkung in einer Bohrung wird mit Methode:

Code:

---

SetCSink(
CSinkDiameter As Variant,
CSinkAngle As Variant)

---

So, jetzt habe ich die halbe Halbzeit verpasst    

Bis bald...

Nachtrag: Es funktioniert doch! Ich habe den unteren Konus in der Bohrung beobachtet. Mit der Methode oben, kann die Senkung gesetzt werden, auch wenn keine vorhanden ist.

Wie kommst Du auf die 1.5... und 1.4... Werte? Die funktionieren einwandfrei, nur ich sehe keinen Zusammenhang. 90 -> 1.5707963267949
87 -> 1.43116999 ... Sinus, Kosinus, Pi, Zoll, ... habe ich alles probiert, aber nichts logisches gefunden. Es ist 100% etwas ganz einfaches. Oder ?

------------------
Grüße daywa1k3r

[Diese Nachricht wurde von daywa1k3r am 27. Januar 2003 editiert.]

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

---

Ommmmmmmmmmm!

Wir konzentrieren uns auf die Schulzeit....

Ommmmmmmmmmm!

die Worte Winkel, Radiant und Bogenmaß kommen in unser Gedächnis....

Ommmmmmmmmmm!

Die Zahlen pi und 180° erscheinen uns....

Ommmmmmmmmmm!

Die Erleuchtung erreicht uns: Alpha(Bogenmaß) = pi/180° * Alpha(Winkel) ....

Ommmmmmmmmmm!

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

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

---

Sag ich doch, es ist etwas ganz einfaches 

Ah ja, und:

Ommmmmmmmmmmmm!

Was gab es bei dir zum Früstück ???

Ich will morgen das selbe haben.

------------------
Grüße daywa1k3r

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

---

Hallo,

bei V7 hat es ADESK wieder mal nicht geschafft die berühmten 82°zu ändern.
Gibt's da wiklich keinen Weg das zu beseitigen.

Gruß
  Martin

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

---

Hallo Pisarz!

Für so ein tolles Makro gibt es die Höchststrafe!!!
Germany ten points.

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