Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  lisp, mittelpunkt, winkel

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:  lisp, mittelpunkt, winkel (598 mal gelesen)
fca_mi2
Mitglied
Bauingenieur


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

Beiträge: 505
Registriert: 10.01.2003

WIN10. ACAD2018

erstellt am: 06. Feb. 2003 10:56    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

gibt es in lisp befehle mit denen man direkt den mittelpunkt zweier punkte bzw. den winkel von einem zum anderen ausrechnen kann ?

------------------
-

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

CADwiesel
Moderator
CAD4FM UG




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

Beiträge: 1968
Registriert: 05.09.2000

AutoCAD, Bricscad
Wir machen das Mögliche unmöglich

erstellt am: 06. Feb. 2003 11:10    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 fca_mi2 10 Unities + Antwort hilfreich

Hier was für die Mitte zwischen 2 Punkten:
(DEFUN X MP (/ AGRBIB#O AGRBIB0O)
    (INITGET 128)
    (SETQ AGRBIB#O (GETPOINT "\NERSTER PUNKT :")
          AGRBIB0O (GETPOINT AGRBIB#O "\NZWEITER PUNKT :"))
    (IF (= (QUOTE STR) (TYPE AGRBIB#O))
        (SETQ AGRBIB#O (EVAL (READ AGRBIB#O)))
        AGRBIB#O
    )
    (IF (= (QUOTE STR) (TYPE AGRBIB0O))
        (SETQ AGRBIB0O (EVAL (READ AGRBIB0O)))
        AGRBIB#O
    )
    (MAPCAR (QUOTE (LAMBDA (AGRBIB0) (/ AGRBIB0 2))) (F:V+ AGRBIB#O AGRBIB0O))
(DEFUN F:V+ (AGRBIB| AGRBIB%)
    (MAPCAR (QUOTE +) AGRBIB| AGRBIB%)
)
(DEFUN F:V- (AGRBIB| AGRBIB%)
    (MAPCAR (QUOTE -) AGRBIB| AGRBIB%)
)
)

Dann schau dir mal die Funktionen: distance, angle und polar an.

------------------
Gruß
CADwiesel

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

fca_mi2
Mitglied
Bauingenieur


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

Beiträge: 505
Registriert: 10.01.2003

WIN10. ACAD2018

erstellt am: 06. Feb. 2003 11:14    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...

------------------
-

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

Schachinger
Ehrenmitglied V.I.P. h.c.
Konstrukteur



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

Beiträge: 2040
Registriert: 08.04.2002

AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D

erstellt am: 06. Feb. 2003 11: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 fca_mi2 10 Unities + Antwort hilfreich

Winkel in Radiant:

(angle pt1 pt2)
Beispiel: (angle '(1.0 1.0) '(1.0 4.0))

Mittelpunkt geht meines Wissens nicht ohne ein paar Codezeilen...

(setq deltax (/ (- (car pt1) (car pt2)) 2))
(setq deltay (/ (- (cadr pt1) (cadr pt2)) 2))
(setq deltaz (/ (- (caddr pt1) (caddr pt2)) 2))
(setq pt3 (list (+ (car pt1) deltax) (+ (cadr pt1) deltay) (+ (caddr pt1) deltaz)))

pt1 = erster Punkt
pt2 = zweiter Punkt
pt3 = Mittelpunkt

hab den Code aber noch nicht getestet - nur ma so dahingeschrieben...

ups.. war eh klar das das Wiesel schneller war *GG*

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

[Diese Nachricht wurde von Schachinger am 06. Februar 2003 editiert.]

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

fca_mi2
Mitglied
Bauingenieur


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

Beiträge: 505
Registriert: 10.01.2003

WIN10. ACAD2018

erstellt am: 06. Feb. 2003 12:08    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

vielen dank, aber einen kleine fehler habe ich gefunden :

                        (setq deltax (/ (- (car pt2) (car pt1)) 2))
                        (setq deltay (/ (- (cadr pt2) (cadr pt1)) 2))
                        (setq deltaz (/ (- (caddr pt2) (caddr pt1)) 2))
                        (setq pt3 (list (+ (car pt1) deltax) (+ (cadr pt1) deltay) (+ (caddr pt1) deltaz)))

                        pt1 = erster Punkt
                        pt2 = zweiter Punkt
                        pt3 = Mittelpunkt

------------------
-

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

Schachinger
Ehrenmitglied V.I.P. h.c.
Konstrukteur



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

Beiträge: 2040
Registriert: 08.04.2002

AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D

erstellt am: 06. Feb. 2003 12: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 fca_mi2 10 Unities + Antwort hilfreich

stimmt.. 
thanks

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

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

StephanJP
Mitglied
CAD-Admin


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

Beiträge: 829
Registriert: 09.11.2000

erstellt am: 06. Feb. 2003 13:03    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 fca_mi2 10 Unities + Antwort hilfreich


oder so?
(setq pt3 (mapcar '/ (mapcar '+ pt1 pt2) '(2 2 2)))

------------------

gruß
Stephan

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



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

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 06. Feb. 2003 13: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 Nur für fca_mi2 10 Unities + Antwort hilfreich

Hallo,

habt ihr euch mal den Geometrierechner angesehen. Da gibt es ganz einfache Möglichkeiten den Mittelpunkt zu berechnen.
Der geomcal gerät (unberechtigt) immer wieder in Vergessenheit, man kann aber eine ganze Menge mit machen.
AutoCAD-Hilfe schreibt dazu

Zitat:

Die Funktionen plt und pld geben einen Punkt auf einer gegebenen Linie zurück. Die Position des Punktes auf der Linie kann entweder über seinen Abstand vom ersten Punkt oder parametrisch über einen Parameter t bestimmt werden.

pld(p1,p2,abst)

Berechnet einen Punkt auf der Linie, die durch die Punkte P1 und P2 verläuft. Der Parameter abst definiert den Abstand des Punktes vom Punkt P1.

plt(p1,p2,t)

Berechnet einen Punkt auf der Linie, die durch die Punkte P1 und P2 verläuft. Der Parameter t definiert die parametrische Position eines Punktes auf der Linie.

Einige Beispiele mit verschiedenen Werten für den Parameter t:

Wenn t=0, dann Punkt = P1.
Wenn t=0.5, dann Punkt = Mittelpunkt zwischen P1 und P2

Wenn t=1, dann Punkt = P2


Bei Fragen ...


Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
Wieder 2 neue Tool's im FreeDownload
Wissen wie es gemacht wird? Jetzt Quellcode für die Hälfte

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

mapcar
Mitglied
CADmin



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

Beiträge: 1250
Registriert: 20.05.2002

Time flies like an arrow, fruit flies like a banana (Groucho Marx)

erstellt am: 06. Feb. 2003 15: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 Nur für fca_mi2 10 Unities + Antwort hilfreich

StephanJP
Mitglied
CAD-Admin


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

Beiträge: 829
Registriert: 09.11.2000

erstellt am: 06. Feb. 2003 21: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 Nur für fca_mi2 10 Unities + Antwort hilfreich


Ja, Axel, eigentlich wollte ich ja Deine Seite verlinken! Dachte mir aber, dass es Dir gefallen wird 

------------------

gruß
Stephan

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

otterloh
Mitglied



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

Beiträge: 188
Registriert: 27.06.2001

AutoCAD 2012, 2013, 2019
Win8.1

erstellt am: 07. Feb. 2003 10:30    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 fca_mi2 10 Unities + Antwort hilfreich

Vorsicht bei eingeschalteten Objekt-Fang.
Viele Vorschläge/Programme erzeugen Fehler.
Probiert es, wenn diverse verschiedene Fangpunkte
(alle etwas nebeneinander)
im Bereich des gewünschten Mittelpunktes
und innerhalb der Größe des Fangfensters liegen.
Der Geometrie Rechner kann es dann nicht.

------------------
Gruß Werner
http://Meyer-Werner.bei.T-Online.de

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