---

Hallo Zusammen,

ich habe in Excel die Daten für ein Weg-Zeit-Diagramm berechnet und
als Ergebnis zwei Spalten mit X und Y Koordinaten damit möchte ich mir
in ACAD eine Polylinie zeichnen lassen.
Beispiel:
_pline
0   |  0
5   |  5
5   |  10
          mit "|" meine ich dass die Zahlen jeweis in einer Zelle sind
So hat es funktioniert:
Excel-Blatt als .csv speichern
als .txt umbenennen und mit Word öffnen
; durch , ersetzen
als .scr umbenennen
Script in ACAD starten.

Dies ist mir zu aufwendig, ich habe mal probiert den Bereich in Excel zu markieren und kopieren und in der ACAD-Befehlszeile mit Strg + V einzufügen. Acad zeichnet dann Linien aber diese haben nichts mit den
Koordinaten zu tun die in Excel stehen.
Wie muß ich die Excel-Tabelle verändern?

Danke und Gruß Wolfgang

[Diese Nachricht wurde von Wolli am 07. November 2001 editiert.]

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

---

Hallo Wolfgang,

folgender Code macht das:
Bedingung ist, dass das in Excel standardmäßige Zahlenformat beibehalten wird. Komma als Defzimaltrennzeichen OHNE Tausender-Trennzeichen. Excel-Datei als txt-Datei mit TAB's als Trennung speichern.

Bei Fragen ...

Grüße Holger

(defun c:xlspl ( / datei f datzeile zeile tabli x)
  (setq datei (getfiled "Datei wählen" "" "txt" 0))
  (setq f (open datei "r"))
  (while (setq datzeile (read-line f))
    (setq zeile (read (vl-string-translate
","
"."
(vl-string-translate
  " "
  (chr 209)
  (vl-string-translate
    "."
    (chr 182)
    (strcat "(" datzeile ")")
    )
  )
)
      )
  tabli (if tabli
  (append tabli (list (cons 10 zeile)))
  (list (cons 10 zeile))
  )
  )
    )
  (close f)
  (entmake
    (append (list
      '(0 . "LWPOLYLINE")
      '(100 . "AcDbEntity")
      '(67 . 0)
      '(410 . "Model")
      '(8 . "0")
      '(100 . "AcDbPolyline")
      (cons 90 (length tabli))
      '(70 . 0)
      '(43 . 0.0)
      '(38 . 0.0)
      '(39 . 0.0))
    (apply 'append (mapcar  '(lambda (x)
       (list x '(40 . 0.0) '(41 . 0.0) '(42 . 0.0))
       )
    tabli
    ))
    (list '(210 0.0 0.0 1.0))
    );append
    )
  )

[Diese Nachricht wurde von Brischke am 08. November 2001 editiert.]

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

---

Hallo Holger,

danke für Deine Antwort, aber ich möchte die Koordinaten ganz
ohne Lisp und VBA aus Excel als Plinie nach ACAD bringen.
Nur mit kopieren und einfügen.
Es scheint möglich zu sein, da ja beim Einfügen in die Befehlszeile
eine Linie gezeichnet wird, nur halt falsch.

Danke und Gruß Wolfgang

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

---

Hallo ,

eigentlich kein Problem. Wenn Du das öfters brauchst dann schreib die ein VBA Progrämmchen in EXCEL.

Dieter

Zitat:

---

Original erstellt von Wolli:
Hallo Zusammen,

ich habe in Excel die Daten für ein Weg-Zeit-Diagramm berechnet und
als Ergebnis zwei Spalten mit X und Y Koordinaten damit möchte ich mir
in ACAD eine Polylinie zeichnen lassen.
Beispiel:
_pline
0   |  0
5   |  5
5   |  10
          mit "|" meine ich dass die Zahlen jeweis in einer Zelle sind
So hat es funktioniert:
Excel-Blatt als .csv speichern
als .txt umbenennen und mit Word öffnen
; durch , ersetzen
als .scr umbenennen
Script in ACAD starten.

Dies ist mir zu aufwendig, ich habe mal probiert den Bereich in Excel zu markieren und kopieren und in der ACAD-Befehlszeile mit Strg + V einzufügen. Acad zeichnet dann Linien aber diese haben nichts mit den
Koordinaten zu tun die in Excel stehen.
Wie muß ich die Excel-Tabelle verändern?

Danke und Gruß Wolfgang

[Diese Nachricht wurde von Wolli am 07. November 2001 editiert.]

---

------------------
SD

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

---

Hallo ,

eigentlich kein Problem. Wenn Du das öfters brauchst dann schreib die ein VBA Progrämmchen in EXCEL.

Dieter

Zitat:

---

Original erstellt von Wolli:
Hallo Zusammen,

ich habe in Excel die Daten für ein Weg-Zeit-Diagramm berechnet und
als Ergebnis zwei Spalten mit X und Y Koordinaten damit möchte ich mir
in ACAD eine Polylinie zeichnen lassen.
Beispiel:
_pline
0   |  0
5   |  5
5   |  10
          mit "|" meine ich dass die Zahlen jeweis in einer Zelle sind
So hat es funktioniert:
Excel-Blatt als .csv speichern
als .txt umbenennen und mit Word öffnen
; durch , ersetzen
als .scr umbenennen
Script in ACAD starten.

Dies ist mir zu aufwendig, ich habe mal probiert den Bereich in Excel zu markieren und kopieren und in der ACAD-Befehlszeile mit Strg + V einzufügen. Acad zeichnet dann Linien aber diese haben nichts mit den
Koordinaten zu tun die in Excel stehen.
Wie muß ich die Excel-Tabelle verändern?

Danke und Gruß Wolfgang

[Diese Nachricht wurde von Wolli am 07. November 2001 editiert.]

---

------------------
SD

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

---

Einfachst: Daten stehen ab 2.Zeile in Excel
In der ersten zeile steht der Befehl _pline im Feld C1

mit =verknüpfen(A2,",",B2)  der wertepaare im Feld C2
den Befehl auf alle Wertepaare anwenden
(durch markieren und auf der rechten unteren Ecke herunterziehen)

Dann den Bereich von C1 bis Ci  ins Kopierfach
und unter Autocad in die Befehlszeile einfügen
fertig
d.h. das Dezimalzeichen muss global auf PUNKT eingestellt sein
(unter Windows - Regionale Einstellung) sonst gehts nicht.

------------------
mgru

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