---

Hi Forum,
da ich bereits unter diesem Begriff Gummiband im Forum gesucht habe, scheint es mir notwendig, vorab zu erklären, was ich überhaupt will.

Wenn ich eine Linie zeichne, zieht sich nach dem Klick des Startpunktes solange eine Gummibandlinie vom Startpunkt bis zum Cursor, bis ich den Endpunkt angeklickt habe. Gleiches bewirke ich in VBA in dem folgenden Beispiel durch in der Zeile rPnt2 nach Getpoint die Angabe rPnt1 wiederhole.

Eine gleiche Gummibandfunktion gibt es auch beim Zeichnen von Rechtecken. Bis zum fixieren des Endpunktes (bei diagonalem Eingeben der beiden Punkte) erscheint ein virtuelles Rechteck (ähnlich dem Gummiband bei der Linie)

So...nun hab ich hoffentlich
endgültig alle Klarheiten beseitigt 

    rPnt1 = ThisDrawing.Utility.GetPoint(, "Klicken Sie die erste Ecke des Rechtecks")
    rPnt2 = ThisDrawing.Utility.GetPoint(rPnt1, "Klicken Sie die diagonale Ecke des Rechtecks")

Was ich nun eigentlich will? Achja....in obiger Funktion soll beim anschließenden Kommando Zeichnen des Rechteckes das Gummiband nicht in Form einer Linie von einem Eck zum anderen angezeigt werden sondern in Form eines virtuellen Rechtecks....
Wie bekomme ich das nur hin?
Bernd

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

---

Hallo Bernd,
gar nicht!
Oder vielleicht doch?
Welche Acad-Version hast du?

------------------
Roland

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

---

Hai
bei Lisp geht das mit getcorner aber bei VBA ??

------------------
Gruß
CADwiesel
bin auch im Urlaub: 29.07 - 27.08

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

---

Wie schon gefragt, es kommt auf die ACAD-Version an.
Sollte Bernd noch mit 2002 arbeiten ist es mit Hilfe von AcadX.arx kein Problem.
Für Acad2004 ist die ARX noch nicht ins Netz gestellt, wird auch noch einige Zeit dauern, ich warte auch schon sehnsüchtig darauf.

------------------
Roland

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

---

Hi,
ich werde gleich mal nachholen, meine Angaben in meine persönlichen Daten einzutragen.. sorry.

Also: ich habe noch Acad2000i, Applikation SofiCad, auf WinNT 4.0 SP6
im Novellnetz.

Vielen Dank derweil

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

---

Dann kannst du das mit oben beschriebenem Tool erledigen. Sie dir das Beispiel BasePlateJig.dvb im Zip-File an. Da wird etwas ähnliches gemacht. Es gibt da noch eine DLL auf VBDesign, such einfach nach Ghostblock. Die Variante hab ich noch nicht probiert.
Es gibt aber immer ein paar Probleme, besonders dann wenn ein User transparente Befehle, wie etwa Zoom, ausführt. Ich hab es aber mit AcadX trotzdem geschaft.

------------------
Roland

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

---

Zip-File?...was für'n Zip-File...wolltest du mir was posten?

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

---

Du muß von der AcadX-HP (link s.o.) das Zip-File mit der ARX runterladen, darin ist das Beispiel zu finden.

------------------
Roland

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

---

hi roland,
danke erstmal. versuch mich mal durchzuwurschteln.

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

---

Hallo Bernd,

machs nicht so kompliziert, nimm einfach "thisdrawing.utility.getcorner".

Das geht.

Jürgen

---

Hallo Jürgen,
ich glaube aber er möchte ein Rechteck zeichnen, oder liege ich da Falsch?
Ich glaube du hast doch recht gehabt, hab da in eine falsche Richtung gedacht.

------------------
Roland

[Diese Nachricht wurde von RoSiNiNo am 24. Juli 2003 editiert.]

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

---

@jürgen
du bist ne wucht in tüten 
die kombination machts:
Sub Example_GetCorner()
    Dim basePnt As Variant
    Dim endPnt As Variant
    basePnt = ThisDrawing.Utility.GetPoint(, "Wähle linke, untere Ecke: ")
    endPnt = ThisDrawing.Utility.GetCorner(basePnt, "Wähle rechte obere Ecke: ")
End Sub
Das gibt die volle Punktzahl...danke nochmal. manchmal sieht man den baum vor lauter wald nicht (oder so ähnlich) 

@roland
eigentlich war die anwort von jürgen das, was ich eigentlich wollte. das rechteck zeichnen habe ich dann durch polylinien gemacht. im weiteren verlauf meines programmes will ich dann länge und breite der rechtecke abfragen. geht ja über die koordinaten der polylinien. oder geht das mit den rechtecken, von denen du sprichst, noch leichter?
bernd

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

---

Toll - hab ich nicht schon getcorner gesegt?

------------------
Gruß
CADwiesel
bin auch im Urlaub: 29.07 - 27.08

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

---

Stimmt CADwiesel, auch du bist super. sorry...aber bei LISP hab ich gleich geistig abgeblendet. aber vermutlich, hätte ich, wärst du der einzige antworter geblieben, es auch mal so in die richtung probiert und dann erfolg gehabt...also auch dir nen paar pünktchen. :-)

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

---

@Bernd:
es kommt ganz darauf an was du machen möchtest, dreh einmal dein BKS und mach die Abfrage noch einmal. Möchtest du dann schon das Rechteck wie es sein sollte sehen, oder so wie in deinem Beispiel. Natürlich ist die Funktion in AcadX viel umfangreicher, schau es dir am besten selbst mal an.

------------------
Roland

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

---

Vielen Lieben Dank Aber eicgentlich wollte ich dir nur zeigen, dass mann es mal versuchen kann - da die Möglichkeiten zwischen Lisp und vb doch oftmahls die gleichen oder ziemlich ähnlich sind.

Hauptsache es wurde dir geholfen!

------------------
Gruß
CADwiesel
bin auch im Urlaub: 29.07 - 27.08

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

---

@roland
auweia...da sprichst du  was an...wollte mein makro erst mal im wks ordnungsgemäß laufen lassen. aber du hast recht. über kurz oder lang benötige ich auch gedrehte rechtecke
ich schau mal...runtergeladen hab ichs mir schon. bin mal gespannt

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

---

Moin Forum,
was kann denn verstellt sein, wenn man zwar noch die Gummibandlinie sieht, aber nicht mehr das "virtuelle" Rechteck oder den Kreis beim Aufziehen? Gezeichnet wird es dann aber doch. Ist zwar nicht so wichtig, aber ärgerlich?

------------------
Grüsse aus Oldenburg
Gerd

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

---

die Sysvar Dragmode ?!

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Danke @Thomas
kann sich die Variable von "alleine" verstellen?

------------------
Grüsse aus Oldenburg
Gerd

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