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