| |
| 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
Beiträge: 505 Registriert: 10.01.2003 WIN10. ACAD2018
|
erstellt am: 06. Feb. 2003 10:56 <-- editieren / zitieren --> Unities abgeben:
|
CADwiesel Moderator CAD4FM UG
Beiträge: 1968 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 06. Feb. 2003 11:10 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2
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
Beiträge: 505 Registriert: 10.01.2003 WIN10. ACAD2018
|
erstellt am: 06. Feb. 2003 11:14 <-- editieren / zitieren --> Unities abgeben:
|
Schachinger Ehrenmitglied V.I.P. h.c. Konstrukteur
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 / zitieren --> Unities abgeben: Nur für fca_mi2
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
Beiträge: 505 Registriert: 10.01.2003 WIN10. ACAD2018
|
erstellt am: 06. Feb. 2003 12:08 <-- editieren / zitieren --> Unities abgeben:
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
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 / zitieren --> Unities abgeben: Nur für fca_mi2
|
StephanJP Mitglied CAD-Admin
Beiträge: 829 Registriert: 09.11.2000
|
erstellt am: 06. Feb. 2003 13:03 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2
|
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 06. Feb. 2003 13:18 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2
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
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 / zitieren --> Unities abgeben: Nur für fca_mi2
|
StephanJP Mitglied CAD-Admin
Beiträge: 829 Registriert: 09.11.2000
|
erstellt am: 06. Feb. 2003 21:15 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2
|
otterloh Mitglied
Beiträge: 188 Registriert: 27.06.2001 AutoCAD 2012, 2013, 2019 Win8.1
|
erstellt am: 07. Feb. 2003 10:30 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2
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 |