---

Hallo,
ich haben die Punkte (Name, x,y,z in Globale Kosy) in einem array gespeichert.

Kann man mit Koordinaten einen Polyline erstellen, oder muss man die Punkte noch mal referenzieren?

Auf jeder Hilfe bin ich sehr dankbar.

MfG

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

---

Hallo tubuibam,

Ich hab mal ein bißchen gespielt damit. Probier mal:

Aufruf mit

Code:

---

  Dim arrPt() As HybridShapePointCoord 'point array
.
.
.
  CreatePolyLine arrPt                                    'draw polyline

---

Code:

---

'---------------------------------------------------------------------------------------
' Procedure : CreatePolyLine
' DateTime  : 06.07.2014 01:00
' Author    : Joseph Herzog
' Purpose  : create a polyline using an array of points
' Parms    : arrPt() - point array
'---------------------------------------------------------------------------------------
'
Sub CreatePolyLine(arrPt() As HybridShapePointCoord)
  Dim n As Integer
 
  Dim ad As Document
  Set ad = CATIA.ActiveDocument
 
  Dim adp As Part
  Set adp = ad.Part
 
  Dim hSF1 As Factory
  Set hSF1 = adp.HybridShapeFactory
 
  Dim hSPL1 As HybridShapePolyline
  Set hSPL1 = hSF1.AddNewPolyline()
 
  Dim hBs1 As HybridBodies
  Set hBs1 = adp.HybridBodies
 
  Dim hB1 As HybridBody
  Set hB1 = hBs1.Item("WireFrame")
 
  Dim ref1 As Reference
 
  For n = 0 To UBound(arrPt)
      Set ref1 = adp.CreateReferenceFromObject(arrPt(n))
      hSPL1.InsertElement ref1, n + 1                          'starts at insertion point 1
  Next
 
  hSPL1.Closure = False                                      'do not close
  hB1.AppendHybridShape hSPL1
  adp.InWorkObject = hSPL1
  hSPL1.Name = "Route_PolyLine"
  adp.Update
'---------------------------------------------------------------------------------------
'das einfärben muss nach dem update stehen!?!
  SetElementColor hSPL1, 0, 0, 255                                  'blue
End Sub

---

Tschau,
Joe

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

---

Hallo Joe,
danke für deine schnelle Antwort.
Ich habe Array leider aber nicht als Array von Struct definiert
Als ich mir vorgestellt, hast du so ein Array von Element

Point
    {Name
      x
      y
      z}

stimmt sowas?

Mein Array ist aber so
Name(i)
x (i)
y (i)
z (i)

Also das sind 4 Array, und die haben eine "fiktive Verbindung" durch Benutzen des gleichen Index.

Und meine Vorstellung ist, ich erstelle so ein Polyline mit Koordinaten, mit solche Verfahren

For i = 1 to Anzahl
  Polyline add Point i (x(i), y(i),z(i), radius an der Stelle (i))
Next

Ich kann aber leider keine Methode finden.

Könntest du mir weiter helfen.

MfG

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

---

Servus
Schau mal hier.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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