---

Hallo

Ich habe immer wieder das problem das ich anhand von 4 punten herausfinden soll ab sie eine ebene bilden.

Kann autocad das herausfinden. so das ich nur die 4 punkte anwählen muss und es mir das sagt ob es eine ebene ist und wenn nicht was der abstand zum 4 punkt ist???

Gruss

------------------
Moni

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

---

Da hilft vielleicht das hier weiter. Einfach auf Abstand = 0 Testen. ( Geht zwar auch integriert ( und eleganter ), aber der Code war schon online.. )

------------------
  - 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

---

jupp, das geht:
Du nimmst den Geometrierechner und 'fütterst den mit:
dpp(p,p1,p2,p3)
Bestimmt die Entfernung zwischen dem Punkt P und einer Ebene durch drei Punkte (P1,P2,P3).

Ist die Entfernung = 0 dann ists eine Ebene.

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

Prinzipiell geht das schon - aber was fertiges ist da nicht drin im Acad. Die Reiehnfolge muss definiert sein (also welche 3 Punkte die Ebene bilden) BKS in dies Ebene legen und dann Z Wert des 4. Punktes abfragen.

Unter Umständen könnte dafür schon ein Makro reichen (wenn Einfache Anzeige des letzten Punktes reicht) - Punkt setzen und mit LISTE abfragen.

------------------
Ciao
J-SC
... geht's vielleicht doch?

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

---

Hallo Cadmium

Danke für dein link
glaube ist genau was ich suchte
aber heute geht bei mir einfach nichts zusammen
kannst du mir schnell einen tipp geben wie ich lsp suf einen knopf belegen kann

habe es so gemacht
^C^C(load "EBENE-PUNKT");(DT:ABSTAND-EBENE-PUNKT); (geht aber nich).
mann ich sehe einfach nicht mehr durch was nicht ok ist

gruss

------------------
Moni

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

---

ne, das macro sollte dann so aussehen:
^C^C(load "EBENE-PUNKT.lsp");(DT:ABSTAND-EBENE-PUNKT (getpoint "\nP1:")(getpoint "\nP2:")(getpoint "\nP3:")(getpoint "\nP4:"));

du brauchst schließlich noch die Funktionsparameter .. oder du schreibst dir noch ne Funktion mit (defun c:ABSTAND-EBENE-PUNKT ... drumrum, das die Pkts ermittelt und intern (DT:ABSTAND-EBENE-PUNKT aufruft.. dann haste das als neues ACAD-Kommando

------------------
  - 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

---

Danke

Genau was ich suchte      
funkt auch!!!

Gruss

------------------
Moni

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

---

Zitat:

---

Original erstellt von CADmium:
ne, das macro sollte dann so aussehen:
^C^C(load "EBENE-PUNKT.lsp");(DT:ABSTAND-EBENE-PUNKT (getpoint "\nP1:")(getpoint "\nP2:")(getpoint "\nP3:")(getpoint "\nP4:"));

---

*grusel*

------------------
Ciao,
Marc

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

---

Zitat:

---

Original erstellt von marc.scherer:
*grusel*

---

na bau ihr doch ne Kommandofunktion drumrum  .. mir fehlt dafür momentan etwas die Zeit.

------------------
  - 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

---

So?

Code:

---

(defun C:CADMISCALL ()
  (load "EBENE-PUNKT.lsp")
  (DT:ABSTAND-EBENE-PUNKT
    (getpoint "\nP1:")
    (getpoint "\nP2:")
    (getpoint "\nP3:")
    (getpoint "\nP4:")
  )
  (princ)
)

---

*huahuahua*

------------------
Ciao,
Marc

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

---

zum Beispiel 

------------------
  - 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