---

Gibt es eine Möglichkeit bei der Verwendung von Getdist die Koordinaten des 2 Punkts auszulesen?

Gruß
Stefan

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

---

Meiner Meinung nach : NEIN ... Warum arbeitest du nicht mit getpoint und rechnest dir die entfernung aus?

------------------
- Thomas -

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

---

Hallo Thomas,

weil mir getdist eine Gummibandlinie vom 1ten zum 2ten Punkt zeichnet. Und die finde ich mitunter sehr hilfreich.

Gruß
Stefan

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

---

na dann vielleicht mit
(getvar "LASTPOINT")

ansonsten, wegen Gummiband :
(setq PKT1 (getpoint      " Erster  PUNKT :"))
(setq PKT2 (getpoint PKT1 " Zweiter PUNKT :"))
(setq ENTF (mapcar '- PKT1 PKT2))
(setq ENTF (sqrt (+(*(car  ENTF)(car  ENTF))
                  (*(cadr  ENTF)(cadr  ENTF))
                  (*(caddr ENTF)(caddr ENTF))
                )
          )
)

------------------
- Thomas -

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

---

und wer vor Command nicht zurückschreckt der kann einfach eine Line zeichnen lassen die wieder gelöscht wird.

------------------
- Sebastian -

[Diese Nachricht wurde von cadffm am 03. Dez. 2007 editiert.]

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

---

Danke für die schnelle Antwort Thomas!

Lastpoint , genau das hab ich gesucht...Alzheimer läßt grüßen 

Probier ich gleich mal aus.

Gruß
Stefan

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

---

Die Idee mit der Linie hatte ich ursprünglich auch Sebastian, aber getdist schien mir dann doch eleganter zu sein.

@Thomas
Lastpoint geht leider nicht.

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

---

warum geht lastpoint nicht ?
- kommt wohl nur darauf an wie man vorher den Punkt angibt...

------------------
- Sebastian -

[Diese Nachricht wurde von cadffm am 03. Dez. 2007 editiert.]

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

---

Die Systemvariable LASTPOINT speichert den letzten eingegebenen Punkt als BKS-Koordinate des aktuellen Arbeitsbereiches.
Wenn du nach GETDIST noch woanders hinklickst, ist das Ergebnis natürlich nicht das von dir erwünschte! Deshalb , wenn du explizid den zweiten Punkt brauchst, verwende das obige Lisp!

und :

getpoint [pt] [msg])

The user can specify a point by pointing or by entering a coordinate in the current units format. If the pt argument is present, AutoCAD draws a rubber-band line from that point to the current crosshairs position.

..soviel zum "Gummiband"
------------------
  - Thomas -

[Diese Nachricht wurde von CADmium am 09. Mrz. 2004 editiert.]

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

---

@cadffm

sicher ist das eine Möglichkeit .. aber bitte empfehle diese nie wieder!

Grüße!

Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

@Thomas

Das Tool funktioniert prima!

Danke,
Stefan

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

---

Hi

Um die Entfernung zu berechnen könte man auch
(distance pt1 pt2) verwenden.

------------------
Gruß, Ernst

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

---

@Ernst : Ooopps, hast du den ersten Beitrag nicht gelesen ? 

------------------
- Thomas -

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

---

@ Thomas

Bin jetzt nicht sicher was Du meinst:

Was ich meinte:
(setq PKT1 (getpoint      " Erster  PUNKT :"))
(setq PKT2 (getpoint PKT1 " Zweiter PUNKT :"))

(setq ENTF (distance PKT1 PKT2))
anstelle
(setq ENTF (mapcar '- PKT1 PKT2))
(setq ENTF (sqrt (+(*(car  ENTF)(car  ENTF))
                  (*(cadr  ENTF)(cadr  ENTF))
                  (*(caddr ENTF)(caddr ENTF))
                )
          )
)

Oder habe ich was übersehen?

------------------
Gruß, Ernst

[Diese Nachricht wurde von Geos am 12. Mrz. 2004 editiert.]

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

---

ne, schon ok... hatte (distance... als (getdist gelesen ....weil ich das Thema schon abgehakt hatte.
Und du hast schon recht, warum soll man die Sache komplizierter machen, wenn ACAD schon eine intern Funktion mitliefert...

------------------
- Thomas -

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