---

He ho!

Hab mal 'ne Frage:

Der Befehl ID_Punkt zeigt mir in der Befehlszeile die XYZ Koordinaten an einer gewählten Stelle an. Diese muss ich dann mühevoll in Excel eintippen. Kann ich diese Werte nicht auch autom. in die Zwischenabage übernehmen lassen und dann in Excel einfügen?

Beispiel:

Punkt ausgewählt und anzeige in der Befehlszeile wie folgt:

X = 7574.24634515    Y = 98800.00000000    Z = 5177.41112387

Jetzt möchte ich in Excel eine Zelle anklicken und mit Einfügen nur die Zahlenwerte auf zwei Nachkommastellen in drei nebeneinanderstehende Zellen einfügen.

Nett wäre einfach mal ne Info, ob das mit Lisp überhaupt geht und ob es villeicht schon ein Tool dazu gibt.

Braucht Euch nicht die Mühe machen hier ne Komplettlösung reinzuschreiben, falls es nicht schon was fertiges gibt. Das bastel ich mir dann schon irgendwie hin.

Viele Grüße,
  Sebastian

------------------
Warum seid Ihr alle schlauer als ich??? 

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

---

Servus!

Such mal im IN nach doslib16.arx. Die kannst Du in AutoCAD laden, dann stehen Dir viele zusätzliche Befehle z.V. (ist auch eine Hilfe dabei). U.a. gibt es dort den Befehl dos_clipboard mit dem Du Werte in der Zwischenablage speichern kannst.

Andere Möglichkeit wäre die Koordinaten der Punkte in eine ASCII-Datei zu schreiben um sie dann in Excel einlesen zu können.

Ciao Georg

------------------
http://www.xx-tausend.info

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

---

Danke, werde ich mal probieren.

In eine Ascii Datei kann ich die Punkte auslesen, aber ich will sie unbedingt in die Zwischenablage :-)

------------------
Warum seid Ihr alle schlauer als ich??? 

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

---

Da bin ich wieder :-)

Habe das Tool installiert. Das ist wohl von Gott gemacht. Absoluter Hammer. Ca. 60 % davon habe ich mir schon immer gewünscht (Adminstatus anzeigen, Verzeichniswechsel automatisieren etc.). Echt geil!!!

Habe jetzt mal ein wenig getestet:

(dos_clipboard "blablabla") legt mir eine Zeichenfolge in die Zwischen ablage, aber wie kann ich variablen auslese? Finde in der Hilfe nichts darüber. Kann mir da nochmal jemand nen kleinen Stubser in die richtige Richtung geben?

------------------
Warum seid Ihr alle schlauer als ich??? 

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

---

PKT2CLIPBOARD.VLX.txt

geht auch mit Lisp pur(und ActiveX)

hab mal was als Machbarkeitsstudie zum Testen zusammengebastelt.Anhang als vlx speichern und mit _appload (oder Drag&Drop in die aktuelle Zeichnung) laden..

------------------
  - 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

---

Hallo,
sowas ähnliches hatte Fuchsi schon einmal, habe leider keine Zeit es auszuprobieren. http://ww3.cad.de/foren/ubb/Forum145/HTML/000803.shtml#000003

------------------
viele Grüße

Jörn

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

---

@CADmium:

Von wegen Machbarkeitsstudie. Das ist genau das, was ich wollte!!! Wie kann ich die Datei öffnen und nachsehen, wie genau Du das gemacht hast?

Danke auch für Deinen Tip Joern. Lese mir das grade durch.

------------------
Warum seid Ihr alle schlauer als ich??? 

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

---

Befehl: (SETQ a 5.0)
5.0
Befehl: (DOS_CLIPBOARD (RTOS a 2 2))
"5.00"

Ciao Georg

------------------
http://www.xx-tausend.info

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

---

  

Zitat:

---

Original erstellt von Meriadoc:
@CADmium:
Wie kann ich die Datei öffnen und nachsehen, wie genau Du das gemacht hast?

---

Sorry, gar nicht!

.. für deine Fälle reicht sicher der Umgang mit der DOSLIB aus .. in die arx kannst du aber auch nicht reingucken, hast du auch keinen Quelltext von, und die mußt du für jede ACADversion auf der dein Lsp laufen soll haben..
------------------
       - 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

---

Zitat:
--------------------------------------------------------------------------------
Original erstellt von Meriadoc:
@CADmium:
Wie kann ich die Datei öffnen und nachsehen, wie genau Du das gemacht hast?

--------------------------------------------------------------------------------

Sorry, gar nicht!

--------------------------------------------------------------------------------

Könntst Du dann eventuell noch eine kleine Änderung vornehmen und die Datei nochmal hochladen? *ganzliebguck*

Wenn ein Wert eingefügt wird, bei dem die beiden Nachkommastellen 0 sind, werden diese leider in Excel unterdrückt. Müssten dort aber stehen.

z.B.:
98000.00 und nicht 98000 

Vielen Dank an alle!

Viele Grüße,
  Sebastian

------------------
Warum seid Ihr alle schlauer als ich??? 

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

---

 

Zitat:

---

Original erstellt von gmk:
Befehl: (SETQ a 5.0)
5.0
Befehl: (DOS_CLIPBOARD (RTOS a 2 2))
"5.00"

Ciao Georg

---

Das gibt bei mir leider eine Fehlermeldung, wenn ich folgendes mache:

(setq p1 (getpoint))
(dos_clipboard (rtos p1 2 2))

wahrscheinlich, weil das mehrere Werte hintereinander sind...

------------------
Warum seid Ihr alle schlauer als ich???  

[Diese Nachricht wurde von Meriadoc am 23. Jul. 2008 editiert.]

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

---

 

Zitat:

---

Original erstellt von Meriadoc:
Das gibt bei mir leider eine Fehlermeldung, wenn ich folgendes mache:

(setq p1 (getpoint))
(dos_clipboard (rtos a 2 2))

wahrscheinlich, weil das mehrere Werte hintereinander sind...

---

Befass dich mal ein wenig mit Lisp und probier nicht nur zusammenkopierten Code irgendwie zum Laufen zu bekommen:
Du verwendest in zwei Zeilen unterschiedliche Variablen ..     ..
probier mal
(setq PKT(getpoint))
(dos_clipboard
  (strcat
    (rtos (car   PKT) 2 2)
    "\t"
    (rtos (cadr  PKT) 2 2)
    "\t"
    (rtos (caddr PKT) 2 2)
  )
)

.. das mit den Nachkomma-Nullen bei Gelegenheit ..

------------------
      - 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

---

(setq p1 (getpoint))
(dos_clipboard (strcat(rtos (car p1) 2 2))"\t"
                      (rtos (cadr p1)2 2)))

(car p1) = X
(cadr p2) = Y
"\t" = TAB

------------------
viele Grüße

Jörn

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

---

das mit der variable war eben ein Tippfehler im Beitrag, hatte die Variable schon geändert.

------------------
Warum seid Ihr alle schlauer als ich??? 

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

---

Danke für die Erklärung der Begrifflichkeiten Joern. Und danke auch an Cadmium.

Viele Grüße,
  Sebastian

------------------
Warum seid Ihr alle schlauer als ich??? 

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

---

PKT2CLIPBOARD.VLX.txt

anbei die Variante mit den aufgefüllten Nullen

------------------
  - 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

---

Hallo Ihr!

Also, danke nochmal für das Programm (inklusive anzeige der zwei Nullstellen nach dem Komma).

Der Vollständigkeit halber und damit der Beitrag auch für andere noch einen gewissen Hilfswert besitzt nochmal der (von Euch erstellte)  vollständige, funktionierende Text für die lsp-Datei mit Erklärung:

(defun c  2c (/ pkt)
;definiert den Namen der Funktion und die Variable pkt (nachher eine Liste mit den Koordinaten)

(setq PKT(getpoint))
;Koordinaten aus der Funktion getpoint werden in die Liste PKT geschrieben
(setvar "DIMZIN" 0)
;setzt die AutoCAD-Variable DIMZIN (im Normalfall 8) auf Null (wegen der Nachkommastellen)
(dos_clipboard
;kopiert eine Zeichenkette in die Zwischenablage (Funktion aus DosLib
  (strcat
;strcat verbindet zwei oder mehr Zeichenketten zu einer einzigen
    (rtos (car   PKT) 2 2)
    "\t"
;liest den ersten Listenwert aus und setzt einen Tabulator
    (rtos (cadr  PKT) 2 2)
    "\t"
;liest den ersten Listenwert aus und setzt einen Tabulator
    (rtos (caddr PKT) 2 2)
;liest den ersten Listenwert aus
  ))
(setvar "DIMZIN" 8)
;setzt die AutoCAD-Variable auf den anfänglichen Wert von acht zurück
)

Einfach eine *.txt Datei erstellen, den Text einfügen und die Endung in .lsp ändern.

Viele Grüße und nochmal Danke für die Hilfe,
  Sebastian

PS: Das lachende Gesicht oben sind natürlich : und p, weiss nicht, wie ich das ändere.

------------------
Warum seid Ihr alle schlauer als ich???  

[Diese Nachricht wurde von Meriadoc am 29. Jul. 2008 editiert.]

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