---

hi

ich habe diverse punkte vorliegen und möchte damit polylinien über vba zeichnen lassen. ich möchte aber keine zusammenhängende polylinie zeichnen sondern mehrere.

mit dem befehl
Set polylinie = ThisDrawing.ModelSpace.AddPolyline(punkte())
werde alle punkte die sich unter punkte(0 to xxx) verstecken gezeichnet.
ich will aber jetzt z.b. nur eine polylinie von punkt punkt(1) bis punkt(12). wie geht das?

thx

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

---

Hi,

dann wirst Du nicht drüber hinwegkommen, ein Array anzulegen, dass die Punkte 1-12 enthält.  

Wenn Du mit VBA arbeitest, dann hängt es noch davon ab, on Du eine LW-Polylinie oder eine 2D-Polylinie oder eine 3D-Polylinie erstellst (entsprechend sind 2D- oder 3D-Punkte) erforderlich. Ein Beispiel für das Anlegen von Polylinien hast Du ja schon.

Nachdem ich all obiges nicht weiss, nur andeutungsweise:

Code:

---

Dim tArr() as Double
Redim tArr(LetzerSouceArrIndex)

For i = 0 to LetzerSouceArrIndex
  tArr(i) = SourceArr(i)
Next

---

...mit dotNET wären solche Arrayfunktionen möglich, ohne mit For...Next durchzuarbeiten, aber mit VBA würde ich solche Funktionen nicht kennen.

- alfred -

------------------
www.hollaus.at

[Diese Nachricht wurde von a.n. am 16. Aug. 2009 editiert.]