Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Gruppencode 42 ?

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
Autor Thema:  Gruppencode 42 ? (1261 mal gelesen)
FiRePhoeniX
Mitglied
Bauzeichner Fachgebiet Tief−, Straßen− und Landschaftsbau


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

Beiträge: 127
Registriert: 22.04.2007

AutoCad 2007

erstellt am: 31. Mrz. 2010 12:15    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 Forum,
ich hätte mal wieder eine Frage an euch.

Wollte fragen ob mir jemand erklären kann, was es mit den Gruppencode 42 bei der LWPolyline aus sich hat.
Es handelt hier sich um eine Ausbuchtung. Aber was soll die „Ausbuchtung“ sein?
Wichtiger ist wie sie errechnet?

Hoffe jemand kann mir helfen und versteht die Frage.
Danke im vor raus.

Mit freundlichen Grüßen

FiRE

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


Ex-Mitglied

erstellt am: 31. Mrz. 2010 12:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

Hi,

es handelt sich dabei um den 'Bulge'-Wert, Suchergebnisse dazu: >>>hier<<<

- alfred -

------------------
www.hollaus.at

CADmium
Moderator
Maschinenbaukonstrukteur




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

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 31. Mrz. 2010 13:01    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 FiRePhoeniX 10 Unities + Antwort hilfreich

am besten (auch mit ein paar Bildchen) ist es IMHO bei www.afralisp.net  beschrieben.

Ich schenk dir mal ne Funktion die aus den Beiden Bogenendpunkten und dem Bulgefaktor alles weitere Berechnet:
Parameter     : P1   -[List(3x Real)] - Anfangspunkt 
                P2   -[List(3x Real)] - Endpunkt des Bogensegments
                BULGE-[REAL]          - Bogenfaktor
Rückgabe      : INFO  [LIST] - R [Real]          .. Radius                    
                             - M [List(3x Real)] .. Mittelpunkt               
                             - W [REAL]          .. eingeschlossener Winkel   
                             - W1[REAL]          .. Startwinkel               
                             - W2[REAL]          .. Endwinkel                 

(defun DT:PL-BULGE-INFO(P1 BULGE P2 / W C S R M W1 W2)
  (if(and(numberp BULGE)(not(zerop BULGE))        
         (not(vl-remove-if
               '(lambda(x) (and(=(type X)'LIST)
                               (=(length X)3)
                               (not(vl-remove-if'(lambda(y)(numberp y))X))
                           )
                )
                (list P1 P2)
              )
         )
     )
    (progn
      (setq W (* 4.0 (atan (abs BULGE))))           ;_ eingeschlossenen Winkel ermitteln
      (setq C (distance P1 P2))               ;_ Abstand der Bogenendpunkte(Sehnenlänge)
      (setq S (*(/ C 2.0)(abs BULGE)))                 ;_ Bogenhöhe über der Sehne P1-P2
                                                 ;_ Bogenradius mit Pythagoras ermitteln
                                   ;_ Radius über trigonometrische Beziehungen ermitteln
      (setq R  (/ (/ C 2.0) (sin (/ W 2.0))))     
      (setq M (polar     ;_ Bogenmittelpunkt über trigonometrische Beziehungen ermitteln
                 P1
                (if (>= BULGE 0)
                  (+ (angle P1 P2) (/ (- pi W) 2.0))
                  (- (angle P1 P2) (/ (- pi W) 2.0))
                )
                R
              )
      )
      (setq W1 (angle M P1))                                              ;_ Startwinkel
      (setq W2 (angle M P2))                                                ;_ Endwinkel
      (if (< W2 W1) (setq W2(+ W2 (* Pi 2.0))))
      (list R M W W1 W2)
    )
  ) 
)

Daraus dann die Umkehrfunktion zu bauen sollte nicht das Problem sein ??!
------------------
      - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

FiRePhoeniX
Mitglied
Bauzeichner Fachgebiet Tief−, Straßen− und Landschaftsbau


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

Beiträge: 127
Registriert: 22.04.2007

AutoCad 2007

erstellt am: 31. Mrz. 2010 14:38    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

Danke euch beiden für die Mühe,
aber ich bin einfach zu blöd dafür.

Kurze Erklärung für ich eigentlich machen will.
Ich habe drei Punkte.
P1 = Anfangspunkt des Bogens (LWPOLY)
P2 = Endpunkt des Bogens (LWPOLY)
P3 = Krümmungspunkt des Bogens (LWPOLY)

Mit diesen drei Werten möchte ich gerne die Ausbuchtung errechnen.

Habe auf www.afralisp.net  gelesen das die Ausbuchtung = Tan (Winkel/4) ist.
Die Frage ist nur welcher Winkel ist gemeint. An dieser Stelle will ich sagen das mein Englisch echt bescheiden ist.
Ich bräuchte eigentlich nur die Formel um aus den Drei Punkten die Ausbuchtung zu errechnen.

Vielen Dank noch mal.

Mit freundlichen Grüßen

FiRE

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

Theodor Schoenwald
Ehrenmitglied



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

Beiträge: 1672
Registriert: 16.04.2002

erstellt am: 31. Mrz. 2010 14: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 FiRePhoeniX 10 Unities + Antwort hilfreich

Hallo,

hier: http://www.afralisp.net/lisp/Bulges1.htm
sind gute Informationen zu dem Thema.

Wie ich gesehen habe, kam mein Hinweis 3 Minuten zu spät.

Gruß
Theodor Schönwald
www.cad-cnc.com

[Diese Nachricht wurde von Theodor Schoenwald am 31. Mrz. 2010 editiert.]

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