---

Hallo, heute mal ne Frage von mir:

Beim 2D-Zeichnen kommt es oft vor, daß man den genauen Mittelpunkt zwischen zwei anderen Punkten benötigt, sprich fangen möchte. Leider gibt es im TC, und auch nicht im AUTOCAD z.B. eine entsprechende Fangmethode. Behelfen muß man sich hier, indem man eine Linie zwischen beiden Punkten zeichnet und dann den Mittelpunkt der Linie fängt. Find ich ziemlich umständlich.

Hat jemand einen Vorschlag für eine komfortablere Lösung. Vielleicht sogar über die VBA-Schnittstelle im Turbocad?

Gruß Frank

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

---

Unter TC weiss ich es auch nicht, unter AC würde ich dafür ein neues Icon erstellen:

-Anzeige-Werkzeugkästen-Anpassen-Kategorie Benutzerdef., leeres Icon in vorhand. WK ziehen, Rechte Maustaste drauf und Makro eingeben:

^C^Clinie;\\;Ofang;mit;(nun den am häufigsten verwendeten Befehl, z.B. linie

weiterhin ein schönes Icon malen usw... wenn ich es jetzt richtig im Kopf simuliert habe. Nachteil: die "Konstruktionslinie" müsste später wieder gelöscht werden.

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

---

Hallo, grade der Umweg über eine Linie sollte vermieden werden. Der Ansatz wäre:

Punkt1 (x1;y1) fangen und zurückgeben.
Punkt2 (x2;y2) fangen und zurückgeben.
Mittelpunktkoordinaen werden ermittelt aus
x3=(x1+x2)/2 und y3=(y1+y2)/2
Setze Fang auf Punkt3 (x3;y3)

Das Einbinden dieser Routine als Makro auf ein Symbol wäre der zweite Schritt. Nur wie das in TC geht? ...keine Ahnung.

Gruß Frank

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

---

Hallo Frank!
Also (leider nur) zu AutoCAD habe ich auch noch eine Lisp-Variante anzubieten, die den Mittelpkt. zweier Punkte sucht und zu einem dritten dann eine Linie zieht.

(defun c:mili (/ p pe pt1 pt2 pt1x pt1y pt2x pt2y px py)
(setq pt1 (getpoint "1.Punkt für Mitte")) (terpri)
(setq pt1x (car pt1))
(setq pt1y (cadr pt1))
(setq pt2 (getpoint "2.Punkt für Mitte")) (terpri)
(setq pt2x (car pt2))
(setq pt2y (cadr pt2))
(setq px (/ (+ pt1x pt2x) 2))
(setq py (/ (+ pt1y pt2y) 2))
(setq p (list px py))
(setq pe (getpoint "Linienendpunkt"))
(command "linie" p pe "")
)

Vielleicht hat ja noch jmd. eine TC-Variante parat oder wenigstens eine Idee. Mir fehlt da auch jegliches Grundwissen.

mfg
(ebenfalls) Frank

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

---

Hallo Frank, hab Deine Routine ausprobiert und bin begeistert, da ich nun wieder von LISP keine Ahnung habe, und grade mal weiß, wie die Funktion in ACAD geladen werden muß.

Nur, den Kern des Problems trifft sie auch nicht, da ja diese Funktion einen Objektfang darstellen soll, der innerhalb eines Befehls den gesuchten Punkt an den Zeiger zurückgibt.

Um aber auch bei Turbocad zu bleiben. Beschäftigt sich jemend im deutschsprachigen Raum mit VBA-Programmierung unter TC, der mir auf die Sprünge helfen kann?
Eine umfangreiche Dokumentation der spezifischen TC-Funktionen gibts leider nicht.

Gruß "auch"Frank

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