---

Hallo Forum,
ich möchte eine 3D Polylinie zeichnen, was im Prizip mit dem
Programmcode (siehe unten) auch funktioniert. Allerdings muss
ich vorher für die Punktmenge eine feste Zahl angeben (hier 14
für 5 Stützpunkte).
Meine Polylinie soll aber eine variable Anzahl von Stützpunkten
haben können. Wenn ich "einfach" eine höhere Zahl statt 14
eingebe (z.B. 29), wird die 3D Polylinie zwar gezeichnet, aber
mit Stützpunkten im Ursprung, der aber nicht Bestandteil der
Polylinie ist.
Vielen Dank für jede Hilfe
Gruß Jörg

n4 = n3 + 1
   
    Open "S:\JOBAUEXE\ZwischenpunktePOLY.txt" For Output As #300
    Write #300, n4
    Write #300, xa, ya, za
    For i = 1 To n3
    If bez(i) = 1 Then
    GoTo 700:
    End If
    Write #300, x(i), y(i), höhe(i)
700:
    Next i
    Write #300, xe, ye, ze
    Close #300
   
   
    Dim xxx(1 To 5000) As Variant
    Dim yyy(1 To 5000) As Variant
    Dim zzz(1 To 5000) As Variant
    Dim aaa As Double
   
   
    'aaa = 3 * n4 - 1
    'Dim points(0 To aaa) As Double
     
   
    Dim points(0 To 14) As Double
    Dim poyline As Acad3DPolyline
   
   
   
    Open "S:\JOBAUEXE\ZwischenpunktePOLY.txt" For Input As #300
    Input #300, n4
    For k = 1 To n4
    Input #300, xxx(k), yyy(k), zzz(k)
    'MsgBox (zzz(k))
    Next k
    Close #300
   
    k = 0
       
    For j = 1 To n4
    points(k) = xxx(j): points(k + 1) = yyy(j): points(k + 2) = zzz(j)
    'MsgBox (k & "|" & points(k) & "|" & points(k + 1) & "|" & points(k + 2))
   
    k = k + 3
800:
    Next j
   
     
    Set poyline = ThisDrawing.ModelSpace.Add3DPoly(points)
   
 
End Sub

------------------
AutoCAD 2009 DEU +SP1

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

---

Hi,

den Code hab ich jetzt nicht durchforstet (und ganz verstanden hab ich's nicht).

Du kannst aber auch eine 3DPoly einfach mit dem ersten Vertex anlegen und dann weitere Vertizes hinzufügen mittels:

Code:

---

Call tPoly.AppendVertex(tPnt)

---

Grundsätzlich ist es so, dass alle anfänglich übergeben Array-Werte befüllt sein müssen, sonst sind bei Initialisierung als Doube-Array eben die Werte alle 0.0 

HTH, - alfred -

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

---

Hallo Jobau,

wenn du ein Array mit
DIM Punkte() as Double
deklariert hast kannst du wenn du die Anzahl de Punkte weisst "nachbesseren"
Redim Punkte(0 to Anzahl*3-1)
Zudem gibt es noch
Redim Preserver Punkte(0 to Anzahl*3-1)
Dann bleibt der bsiherige Inhalt erhalten.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Hallo zusammen,
DANKE für die Antworten. Besonders die Möglichkeit der nachträglichen
Punkte bei einer Polylinie hat mir sehr geholfen.
Gruß
Jörg

------------------
AutoCAD 2009 DEU +SP1

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