---

Hallo VBA'ler,

hab schon wieder ein Problem und hoffe abermals auf eure Hilfe, die ja meistens prompt kommt.

Folgender Programmausschnitt:

Der Benutzer soll eine Linie wählen. Dabei benötige ich in VBA gespeichert, dass Objekt selber (also die Linie) sowie den Punkt auf dieser, die er gewählt hat.

Soweit sollte es hiermit funktionieren:

ThisDrawing.Utility.GetEntity LiWahl, piPunkt, "Linie wählen"

Wobei in Liwahl die Linie und in piPunkt der Punkt gespeichert wird.

Ja denkste, ich brauche den genauen Punkt auf der Linie.
piPunkt speichert aber nur dort, wo mit der Pickbox gewählt wurde, auch wenn es knapp neben der Linie ist. Macht man die Pickbox sehr sehr groß sind die Abweichungen zwischen gepicktem Punkt und Linie auch sehr groß.
Ich benötige aber den extakten Punkt auf der Linie.

Also habe ich mir gedacht ich fange die Linie einfach mit nächster, und schon habe ich den extakten Punkt auf der Linie.

Leider weiss ich nicht, wie man nächster als Voreinstellung einstellt, wenn der Benutzer die Linie wählen soll.

Benutzt man GetEntity und gibt dann manuell nächster in der Eingabezeile ein, klappt es. Leider kriege ich das programmtechnisch nicht hin.

Wenn man z.B. in der Variable OSMODE 512 für nächster einstellt, so klappt das hervorragend bei dem Getpoint Utility.

ThisDrawing.SetVariable "osmode", 512
piPunkt = ThisDrawing.Utility.GetPoint(, "Linie wählen"))

Leider funktioniert das bei GetEntity nicht.

Was mache ich falsch, bzw. wer kennt eine Lösung des Problems?

Danke im voraus, Jörg!

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

---

Hi Jörg,

Das geht über einen Umweg:
-Setzt die Variable "Osmode" auf 512 (Fang Nächster". Altern Wert vorher speichern!
-Wähle den Punkt auf der Linie mittels GetPoint.
-Osmode kann wieder auf den alten Wert zurückgesetzt werden.
-Wähle die Linie mit SelectAtPoint (Koordinaten hast du ja über GetPoint bekommen).

Jetzt hast du die Linie und den genauen Punkt auf der Linie.

Warum musst du denn den Punkt unbedingt genau haben?!

Gruß, Carsten

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

---

Hallo Jörg,

eigentlich macht dein Programm doch alles richtig.
Wenn du sagst GetEntity gibt es dir das Element (und als Abfall den Punkt an dem du klickst)
Wenn du den Punkt haben willst gibt es den Punkt. Du kannst wie Carsten schrieb die Selektion am Punkt holen. Das hat den Nachteil das der Benutzer nicht das Element sieht was er wählt.
Wenn es sich um Linien handelt, würde ich die Strecken zwischen "Pickpunkt" und den jeweiligen Enden der Linie rechnen. Ist die Summe der Strecken ungefähr gleich der Strecke zwischen Anfang und Ende kann davon ausgegangen werden das der Benutzer in der Nähe der Linie geklickst hat. Dann kannst du per Interpolation mit der Strecke den Punkt genau auf der Linie rechnen. Ist die Differenz zu groß kannst du vom Benutzer ja nochmals den Punkt picken lassen.

Wilfried Stelberg

[Edit]
PS: Was ist denn aus deinem Handle geworden
[/Edit]
------------------
Warum lisp'eln wenn's auch anders geht. 
www.ib-stelberg.de

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

---

Hi Jörg,
ich poste dir mal einen Lisp-Code, auch wenn das hier das VBA-Forum ist. Da gibt es eine entsprechende Funktion:

Code:

---

(defun get-point-on-element ( / p ele)
  (setq p (entsel))
  (setq ele (car p) p (cadr p))
  (vlax-curve-getClosestPointTo ele p)
)

---

Das Entscheidende ist vlax-curve-getClosestPointTo. Vielleicht fällt ja noch wem eine VBA-Entsprechung ein?
Grüsse, Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Hi !

Sorry, melde mich erst heute wieder. Hatte gestern nen Aussentermin.

Also Carstens Lösung ist eingentlich die, die ich gewählt habe und die auch klappt.

Komisches VBA. Hier geht alles immer nur über Umwege und selten direkt wie bei Lisp.

Ich brauche den exakten Punkt, weil ich einen Text im immer gleichen vordefinierten Abstand an die Linie setzen will, egal in welcher Lage die Linie liegt. Eine Frage meinerseits in einem anderen Thread gehört ebenfalls zu dem Gesamtprogramm.

Danke nochmal, ihr habt sehr geholfen.

CU, Jörg!

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