---

Hallo,

ich suche ein Lisp oder Makro, mit dem man den aus dem Abstand-Befehl ermittelten Wert direkt in die Zwischenablage schreiben kann, um diesen dann anschließend in Excel einfügen zu können.
Kennt da jemand was?

------------------
Grüße aus Darmstadt

Lars Geis
ABCOM GmbH

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

---

Moin,

copybefehl aus der Befehlszeile erfüllt doch den Zweck.

Ciao

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

---

Ja ... das erfüllt den Zweck, ist aber eben manuell - dass bedeutet jedesmal den Abstand-Wert markieren, diesen kopieren und wieder einfügen. Für eine einzelne Anwendung ist das schon o.k., wenn es nun aber darum geht, viele Abstände hintereinander zu messen und diese Werte eben möglichst komfortabel nach Excel zu übergeben (in diesem Fall für eine Massenermittlung) entsteht da schon ein gewisser Zeitverlust...

------------------
Grüße aus Darmstadt

Lars Geis
ABCOM GmbH

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

---

Mahlzeit Lars,

nicht sonderlich getestet,
evtl. ginge sowas, oder musses die Zwischenablage sein ??

Gruss Nancy
--

Code:

---

Sub x()
Dim myDist As Double
Open "d:\cad\test.txt" For Append As #1
  Do
    myDist = ThisDrawing.Utility.GetDistance(, "Enter distance: ")
    Print #1, myDist
    Select Case MsgBox("Distanz von " & myDist & " wurde geschrieben, weiter ??", vbYesNo)
      Case vbNo
        Close #1
        Exit Sub
      End Select
  Loop
End Sub

---

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