Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  VBA Function in Parameter

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 Autodesk Produkte
  
Jetzt verfügbar: NVIDIA RTX PRO 6000 Blackwell Server Edition, eine Pressemitteilung
Autor Thema:  VBA Function in Parameter (360 mal gelesen)
invhp
Ehrenmitglied V.I.P. h.c.
MB Techniker, AE, WKZmacher



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

Beiträge: 5552
Registriert: 16.05.2002

(fast) alles, was Autodesk im Mechanikbereich anbietet ;)

erstellt am: 07. Jan. 2004 11:27    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 Zusammen!

Bin gerade dabei was zu probieren. und zwar soll sich ein Rundtisch drehen aber nur wenn die "Antriebswelle" zwischen 0 und 150 grad steht. bei W > 150 soll der tisch stehen bleiben und sich erst wieder um 45 grad weiter bewegen, wenn sich der Winkel wieder zwischen 0 und 150 bewegt.
Nicht leichter als das dachte ich mir:
Abhängigkeit Drehung mit einem Drehverhältnis von 1.25 schon dreht sich der Tisch nur 1/8 dreht. und um zu verhindern, das sich sich der Tisch dreht, wenn der Winkel größer 150 wird habe ich eine VBA Funktion in den Benutzerparameter verwurstet:

sieht so aus:

Public Function drehv(winkel As Double) As Double

If winkel * 360 / 3.14 <= 150 Then
drehv = 0.125
ElseIf winkel * 360 / 3.14 > 150 Then
drehv = 0
End If
End Function

und in der Parameterbox

VBA:drehv(d18) * 1 oE  (d18 ist der Winkel)

Nun aber das Problem:
wenn ich den Winkel bewege bleibt der Wert drehv auf 0.15 stehen. Wenn ich ihn in der Parameterbox änder, dann ändert sich das drehverhältnis von 0.15 auf 0.

Kann es sein, das der IV den Functionswert nicht aktualisiert, wenn ich einen Parameter nach abhängigkeit bewege und wenn ja, was kann ich dagegen tun?

so, ich hoffe ihr wisst was ich meine  

Danke für eure Hilfe!

------------------
Grüsse
Jürgen
häufige Fragen zu Inventor

[Diese Nachricht wurde von invhp am 07. Jan. 2004 editiert.]

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

invhp
Ehrenmitglied V.I.P. h.c.
MB Techniker, AE, WKZmacher



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

Beiträge: 5552
Registriert: 16.05.2002

(fast) alles, was Autodesk im Mechanikbereich anbietet ;)

erstellt am: 07. Jan. 2004 20:29    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? ... hat keiner einen Rat?

------------------
Grüsse
Jürgen
häufige Fragen zu Inventor

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

Chefe
Mitglied
Geschäftsführer


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

Beiträge: 175
Registriert: 23.12.2002

erstellt am: 07. Jan. 2004 21:58    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 invhp 10 Unities + Antwort hilfreich


drehteller.zip

 
Hallo Jürgen,

nur keine Panik...
hier werden Sie geholfen 

ich hab es zwar nicht 100pro verstanden, aber schau mal, ob der Anhang passt.

Hinweis:
IV rechnet immer in rad und Zentimetern...auch in VBA Funktionen
Der Teiler ist notwendig, damits auch mehr als eine Umdrehung tut
Außerdem geht es so auch für negative Winkel

Kot:
Public Function drehv(Winkel As Double) As Double

pi = 4 * Atn(1)

Teiler = Int(Winkel / (2 * pi))
Winkel = Winkel - Teiler * 2 * pi

If Winkel < pi * 150 / 180 Then
    drehv = Teiler * pi / 4 + Winkel * 0.3
Else
    drehv = (Teiler + 1) * pi / 4
End If

End Function

Viel Erfolg 
Oliver

------------------
Wie man's macht ist verkehrt, aber
kaum macht man's richtig, geht's

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

invhp
Ehrenmitglied V.I.P. h.c.
MB Techniker, AE, WKZmacher



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

Beiträge: 5552
Registriert: 16.05.2002

(fast) alles, was Autodesk im Mechanikbereich anbietet ;)

erstellt am: 08. Jan. 2004 16:43    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

Merci Oliver,

ich probiers nächste Woche mal aus weil heute kaum Zeit und dann weg bis Sonntag abend...

Danke nochmals!!

------------------
Grüsse
Jürgen
häufige Fragen zu Inventor

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)2024 CAD.de | Impressum | Datenschutz