---

Guten Tag,

ich suche nach einer Lösung um id_punkte von 100 bestimmten Punkten
recht einfach nach Excel oder in ein Editor zu transportieren.

Vielleicht nach dem Motto,daß man alle 100 id_punkte nacheinander anklickt und danach werden die Koordinaten übertragen.

Die richtige Reihenfolge muß ich dann schon einhalten.

Von der Möglichkeit, die Koordinaten aus dem Textfenster von jedem einzelnen Punkt zu kopieren, wollte ich Abstand nehmen.

Gibt es da einen Lösungsansatz?

MfG Schlotti

PS: Falls noch InfoŽs benötigt werden, bitte melden!

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

---

zeichne eine Polylinie von 1 zu 2 zu 3 ....
diese dann mit einem Kleinen Tool auslesen
mit OFang"Punkt" geht es recht schnell denke ich.

(gibt es im Forum / Suchfunktion sollte helfen, müßte auch erst suchen..)

EDIT:ZUSATZ http://ww3.cad.de/foren/ubb/Forum54/HTML/007202.shtml http://ww3.cad.de/foren/ubb/Forum54/HTML/003266.shtml

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

---

Hallo Schlotti,

weiß jetzt leider nicht was du mit id_punkten meinst, vermute aber mal der einfachheit halber dass es sich um Punkte mit xyz-Werten handelt.

Was verstehst Du unter "Reihenfolge einhalten" ? Wenn Du damit die Punktnummern meinst (geordnet), dann wirds ein bisschen schwieriger. Aber du könntest mit xyzout.lsp (weiter unten) die Punkte anwählen und dann als Textdatei exportieren. Punktnummern lassen sich dann manuell einfügen (z.B. mit UltraEdit -Shareware aber 30 Tage kostenlos verwendbar- verfügt über einen Spaltenmodus und fügt Nummern problemlos automatisch ein).

Diese dann wiederum mit Komma vom Rest der Koordinaten trennen, damit folgendes Format entsteht:

Nr, XXXXX, YYYYY, ZZZZZ

dann in Excel als csv-Datei importieren und das wars....

Hier das Lisp:

; Copyright 2000 EMT Software, Inc.
;
(defun C:XYZOUT (/ #RES #SSET #CNT #IDX #ENT #FN #DL #PT #X #Y #Z)

  (initget "Points Blocks")
  (setq #RES (getkword "Type of entities to select [Points/Blocks]: <Points> "))

  (if (or (not #RES) (= #RES "Points"))
    (progn
      (prompt "\nSelect all the Points to be exported: ")
      (setq #SSET (ssget (list (cons 0 "POINT")))))
    (progn
      (prompt "\nSelect all the Blocks to be exported: ")
      (setq #SSET (ssget (list (cons 0 "INSERT"))))))

  (if #SSET
    (progn
      (initget "Comma Tab")
      (setq #DL (getkword "\nType of Delimiter for the export file [Comma/Tab]: <Comma> "))
      (cond
        ((not #DL)      (setq #DL ", "))
        ((= #DL "Comma") (setq #DL ", "))
        ((= #DL "Tab")  (setq #DL "\t"))
        (T              (setq #DL ", ")))
      (setq #FN (getfiled "Select an Export File" "" "txt" 1)
            #FN (open #FN "w"))
      (setq #CNT (sslength #SSET)
            #IDX 0)
      (while (/= #IDX #CNT)
        (setq #ENT (entget (ssname #SSET #IDX))
              #PT  (cdr (assoc 10 #ENT))
              #X  (car #PT)
              #Y  (cadr #PT)
              #Z  (caddr #PT))
        (write-line (strcat (rtos #X) #DL (rtos #Y) #DL (rtos #Z)) #FN)
        (setq #IDX (1+ #IDX)))
      (close #FN)))
  (princ))

;;; Uncomment for the language needed.
;(princ "\n\nXYZOUT‚ð“ü—Í‚µ‚ÄŠJŽn")  ; For Japanese.
(princ "\n\nType XYZOUT to start.") ; For English.

(princ)

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

---

Hallo

mit Reihenfolge meine ich das die 100 Punkte nicht von links nach rechts aneinandergordnet sind sondern wild verteilt sind. Daher muß ich schon die richtige Reihenfolge einhalten um die richtige Reihenfolge in der tabellarischen Auflistung der Koordinaten zu erhalten, oder?!

Und kann mir einer sagen wie das mit dem Lisp genau vor sich geht. Habe leider keine Ahnung. Wo wird es gestartet. Wo wird es hineinkopiert?. Was ist "$"? Ist der ganze Befehlssatz hineinzu kopieren (wegen leerzeilen). Vielleicht könnt ihr mir bitte helfen.

MfG Schlotti

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

---

Hallo Schlotti,

probiers doch mal mit "Punkteliste" von CADWiesel

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

Jörg

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

---

@jörg.jwd

Ich habe doch kein Internet sondern nur Intranet auf Arbeit?

MfG Schlotti

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

---

Mappe1.zip

Hallo,

anbei ein Makro für Excel.
Als erstes öffnest Du die Zeichnung; dann wählst Du die Punkte nacheinander an. Dann machst Du Liste und bekommst alle Punkte angezeigt. Dan Zeichnung speichern und schließen.

Autocad erstellt für jede Zeichnung eine LOG Datei, die Du suchen mußt, diese dann auf C:\ legst und die Datei zu System.log umbenennst.
Dann startest Du Excel mit der angefügten Mappe1, dann Makro ausführen unter Extras/Makro und dann sollte die Datei System.txt auf C:\ erstellt worden sein.

Ich hoffe es klappt

Gruß
Chris

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

---

Punkteliste.zip

Ich noch mal,

anbei das LISP für Punkteliste von Cadwiesel.

Damit gehts vielleicht einfacher.

Gruß

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

---

Hallo Chris,

ich finde keine *.log Datei für meine Zeichnung?! Was nun?

Und kannst du mir helfen wie ich das Lisp intergriere und starte? Das sieht ziemlich kompliziert aus!
In der zip.Datei sind 2 Dateien?!

MfG Schlotti

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

---

001.jpg

Hallo Chris nochmal,

habe das Lisp erfolgreich geladen. Aber nach dem Befehl FKT  Fehlermeldung (siehe Anhang)!

Habe die Datei auch schon ohne "e" umgenannt und Autocad neu gestartet. Geht trotzdem noch nicht? Hmmm!

MfG Schlotti

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

---

Hallo Schlotti,
Du mußt die *.dcl Datei in einen ACAD-Supportpfad kopieren, damit die Lisp-Routine diese finden kann.

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

Jörn

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

---

Du startest den Befehl mit PKT und nicht mit FKT.
Dannach kannst du den Objektfang festlegen und den Dateinamen und den Speicherort. Dann funktionierts.

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

---

Hallo an alle

@ joern busse (Danke für deinen Tipp)

mit dem lisp von CADWiesel ist mein Problem gelöst worden.
Sehr einfach und schnell muß ich sagen.

Vielen Dank für eure Hilfe und dafür das alles in allem so erfolgreich war! 10uŽs 4 all

MfG Schlotti

PS: Die beiden Dateien sind nun im Support Ordner! Steht mir in zukunft dieser Befehl immer zur Verfügung? Oder muß ich Ihn jedes mal laden?

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

---

uuuppppsssss

[Diese Nachricht wurde von schlotti am 26. Jan. 2005 editiert.]

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

---

upppsss die 2.

MfG Schlotti

[Diese Nachricht wurde von schlotti am 26. Jan. 2005 editiert.]

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

---

Nein, der Befehl steht dir in Zufkunft nicht automatisch zur Verfügung.

Dazu müsste er beim Start von AutoCAD geladen werden. Zu diesem Thema gibt es aber schon sehr viele Beiträge welche sich mit diesem Thema auseinander setzen (Suchbegriffe: acad.lsp & acaddoc.lsp).

------------------
Grüsse

Thomas

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

---

Hi Schlotti,

wenn du das Lisp unter Extras->Anwendung in die Startgruppe legst steht dir der Befehl dauerhaft zur Verfügung.

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

Jörg

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

---

Hi Schlotti,

wenn du das Lisp unter Extras->Anwendung in die Startgruppe legst steht dir der Befehl dauerhaft zur Verfügung.

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

Jörg

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

---

Hallo Schlotti,

wenn du im Menü Extras->Anwendung das Lisp in die Startgruppe legst hast du den Befehl dauerhaft zur Verfügung.

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

Jörg

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

---

Hallo Schlotti,

wenn du im Menü Extras->Anwendung das Lisp in die Startgruppe legst hast du den Befehl dauerhaft zur Verfügung.

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

Jörg

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

---

Sorry, aber das mehrfachposting war keine böse Absicht. Entweder hat mein Explorer Blödsinn gemacht oder der CAD.DE server hatte Probleme. Wurde einfach nach Antwort speichern abgewürgt.

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

Jörg

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

---

appload

Startgruppe

Punkteliste.lsp suchen und hinzufügen.

Dann wird das Lisp jedesmal geladen.

Gruß

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

---

Hallo zusammen,

entschuldigung daß ich mich hier einklinke, aber ich habe ein ähnliches Problem wie schlotti.

Allerdings müsste ich von einer Kontur mehr Punkte einlesen (~1500).
Die Lisp Funktion klappt zwar prima, allerdings ist es sehr langatmig alle Punkte anzuklicken.
Ich habe schon die Funktion "List" versucht, allerdings kann ich mir die Koordinaten nicht exportieren, weil immer nur eine Seite angezeigt wird und der "Textspeicher" des Fensters wohl zu klein ist.

Könnte man die List Funktion irgendwie umwandeln ?

Besten Dank im voraus !

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

---

Hallo AL_Capone,

dann versuche es mit folgenden Zeilen:

Code:

---

(vl-load-com)
(defun c:plkoo->txt (/ f)
(setq f (open "c:\\koord.txt" "w"))
(princ"\nLWPolyLine wählen: ")
(foreach PT (mapcar 'cdr
(vl-remove-if-not
'(lambda (GCO)
(= (car GCO) 10)
)
(entget(car(entsel)))
)
)
(foreach COO PT
(princ COO f)
(princ "\t" f)
)
(princ "\n" f)
)
(close f)
(princ)
)

---

Bei Fragen ...

Grüße Holger
CAD on demand GmbH AUGCE - Manager Deutschland

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

---

Hallöchen Holger,

Danke für die schnelle Antwort, kannst Du mir auch sagen wie ich diese Zeilen einsetze ??

Bin da noch nicht so firm drin :-)

Cheers

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