Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de
  AutoCAD VBA
  Zahl PI nicht in VBA?

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
  
PNY präsentiert die PRO Elite™ High Endurance microSD-Flash-Speicherkarten für Videoüberwachung und kontinuierliche Aufzeichnung, eine Pressemitteilung
Autor Thema:  Zahl PI nicht in VBA? (39611 mal gelesen)
The VIP
Mitglied
Technischer Zeichner


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

Beiträge: 170
Registriert: 06.09.2002

AutoCAD Mechanical 6 unter Windows XP

erstellt am: 08. Aug. 2003 21:23    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

Sehe ich das richtig, dass die Zahl PI (3,14159...) nicht in vBA verfügbar ist?
Aus Excel kenne ich die Zelleneingabe "=PI()" und schon wird mit der Zahl und den ewig vielen Nachkommastellen richtig gerechnet.

Sollte Pi nämlich nicht als solchen Wert in VBA verfügbar sein (was ich ja schier nicht glauben kann), dann müsste man ja schreiben 3,14159265358.....) und das ist ja ungenau wenn man in AutoCAD rechnen will. Es kann nämlich dann sein, dass aufgrund der fehlenden oder gerundetet 20. Nachkommastelle eine Linie nicht geschlossen oder  auf ein anderes Objekt trifft (mit dem blosen Auge wohl nur nach vielen Zooms nachzusehen).

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

pan
Mitglied



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

Beiträge: 141
Registriert: 18.01.2003

erstellt am: 08. Aug. 2003 22:16    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 The VIP 10 Unities + Antwort hilfreich

Nabend
scheints nicht zu geben, habe mal ein acad 2000 Buch hergeholt
Da ist ein Beispiel mit Grad-Bogenmaß.
Man kann eine Konstante machen
Const Pi=3,sowieso
Gruß Pan

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

The VIP
Mitglied
Technischer Zeichner


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

Beiträge: 170
Registriert: 06.09.2002

AutoCAD Mechanical 6 unter Windows XP

erstellt am: 08. Aug. 2003 22:35    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

und das ist genau das, was ungenau ist, denn egal nach der wievielten Nachkommastelle ich aufhöre, es kommt immernoch mal eine dazu -> ungenaue Linie.
Oder hört AutoCAD von sich aus, nach eine bestimmten Nachkommastelle auf und rundet ab dann?

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

JW
Mitglied



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

Beiträge: 30
Registriert: 21.10.2000

erstellt am: 08. Aug. 2003 23:52    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 The VIP 10 Unities + Antwort hilfreich

versuchs doch mal wie folgt:

Pi=4*atn(1)

So definiere ich zumindest immer Pi in VB oder VBA. Genauer gehts nicht.

viele Gruesse aus Windsor (Ontario/Kanada)

Joerg

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

The VIP
Mitglied
Technischer Zeichner


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

Beiträge: 170
Registriert: 06.09.2002

AutoCAD Mechanical 6 unter Windows XP

erstellt am: 09. Aug. 2003 18:18    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

Super! Hat geklappt. 
Da muss man erst mal draufkommen...!

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

JW
Mitglied



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

Beiträge: 30
Registriert: 21.10.2000

erstellt am: 28. Aug. 2003 19:45    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 The VIP 10 Unities + Antwort hilfreich

So, zurück aus dem Urlaub und jetzt gehts wieder frisch ans Werk.

Vielen Dank für die Unities.

viele Gruesse
Joerg

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

Heron83
Mitglied
Automatiker


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

Beiträge: 11
Registriert: 22.10.2003

Auto CAD 2002, VBA, IBM 800MHz, 512MB Ram

erstellt am: 22. Okt. 2003 09:40    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 The VIP 10 Unities + Antwort hilfreich

Hallo zusammen!

Ich definiere die Zahl PI folgendermassen:

'PI
Public Function PI() As Variant
  PI = 4# * CDec(Atn(1))
End Function

Gruss Kai

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