---

Hallo liebe Helfer,
hat jemand eine Idee, wie man durch importierte csv-dateien, die zahlen enthalten, automatisch Linien im Abstand der importierten Zahlen erzeugen kann?
Die Länge der Linien ist egal. Esgeht einzig und allein um den Abstand.

Danke für die Hilfe.

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

---

wie immer: gebe eine Kostprobe der Datei ...

das man es nicht direkt einlesen kannst - darüber bist du ja informiert : http://ww3.cad.de/foren/ubb/Forum54/HTML/006092.shtml

------------------
- Sebastian Mattis -

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

---

Hallo Sebastian,
was soll ich dazu sagen. Die Werte der csv-Datei sind durch Kommas voneinander getrennt und besitzen nur Zahlen. Diese Zahlen sind jeweils im entsprechenden Abstand mit zwei Linein darzustellen:
1263,3243,2210

ok?

Gruß Pit the King

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

---

nein, nicht OK.

Beispiel:

Wenn du jeden Wert als "X-Wert" bezeichnest (Jeder Wert ist ein XWert einer Linie)
dann geht es indem du jedes Komma gegen ",0 " ersetzt !

ein script daraus machst wie zB dieses hier:

;---Script-------------------
_line 0,0 0,50
_copy _l  _m 0,0
20,0 30,0 40,0 55,0 75,0 100,0 200,0 400,0

;-------------------------------

wobei die Zahlenreihe deine Zahlen sind -
und sicher ist noch an ein oder anderer Stelle eine Leerstelle zuviel
bzw ein Zeilenumbruch - dafür bräuchte man ebenfalls die Dateu wenn du es nicht selbst kannst.

------------------
- Sebastian Mattis -

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

---

Hi auch,

alle Zahlen durch Komma getrennt ?
Nur ein Versuch:

Code:

---

Sub bla()
Dim linie As AcadLine
Dim startp#(0 To 2), endp#(0 To 2)
Dim FF%, zeile$, i%, abstand
FF = FreeFile
Open "D:\CAD\test.txt" For Input As #FF
  While Not EOF(FF)
    Line Input #FF, zeile
    abstand = Split(zeile, ",")
      For i = LBound(abstand) To UBound(abstand)
        startp(0) = startp(0) + CDbl(abstand(i)): startp(1) = 0: startp(2) = 0
        endp(0) = endp(0) + CDbl(abstand(i)): endp(1) = 1: endp(2) = 0
        Set linie = ThisDrawing.ModelSpace.AddLine(startp, endp)
      Next
  Wend
Close #FF
End Sub

---

lg Nancy 

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