---

Mit diesem kleinen LISP-Programm kann z.B. die Mitte der Endpunkte zwischen 2 nichtverbundenen Linien gefangen werden:
 

Bedienung:

Aufruf mit "(M2P)"

z.B. Befehl 'Linie' aufrufen, in der Kommandozeile "(M2P)" eingeben und 1. Punkt anwählen, danach wieder "(M2P)" eingeben und 2. Punkt anwählen.

LISP:

(defun m2p (/ pt1 pt2)
   (setq pt1 (getpoint "\nErsten Punkt wählen: "))
   (setq pt2 (getpoint pt1 "\nZweiten Punkt wählen: "))
   (polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2.0))
)

Als Download:

    * M2P.LSP

------------------
Lars Holfort  www.zw-cad.de
Konstruktionswerk GmbH - 40211 Düsseldorf
   

[Diese Nachricht wurde von holfort am 07. Okt. 2009 editiert.]

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

---

noch ne übliche Variante
(defun m2p (/ pt1 pt2)
  (if(and(setq pt1 (getpoint "\nErsten Punkt wählen: "))
         (setq pt2 (getpoint pt1 "\nZweiten Punkt wählen: "))
     )
   (mapcar '* (mapcar '+ PT1 PT2) '(0.5 0.5 0.5))
  ) 
)

mal beide Ansätze mit 3D-Koordinaten ...

(progn
(setq PT1 '(-10 20 40))
(setq PT2 '(10 -50 -32))
(princ"\n")
(princ(polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2.0)))
(princ"\n")
(princ (mapcar '* (mapcar '+ PT1 PT2) '(0.5 0.5 0.5)))
(princ"\n")
)
--> leider mit unterschiedlichem Ergebnis  ...
------------------
       - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 08. Okt. 2009 editiert.]

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