---

HIHO Zusammen,

entweder stehe ich aufm Schlauch oder es geht nicht. :-)

Ich habe eine Excelliste mit zahlreichen Koordinaten.

BSP:
Name    X    Y    Z
PNT001  100  200  300
PNT002 usw usw...

ich will jetzt, (ihr könnt es euch schon denken) das Catia eine Punktewolke aus dieser Excelliste erzeugt.

Problem ist, wie sage ich Catia das jede Zeile ein neuer Punkt ist 

Ich habe schon versucht zwei Punkte mal so in Catia zum Test zu erzeugen und dann eine Tabelle aus Catia zu erzeugen, und dann wiederum einfach mal ein weiteres XYZ hinzuzufügen. Doch, kapiert Catia die Erzeugung eines neuen Punktes nicht.
PS. Ich will nicht jeden Punkt erst erzeugen müssen um diesen dann mit der Excelliste zu verknüpfen.
Bei 11440 Punkten dauert das ja ewig.

DANKE 

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

---

Hallo xam0560,

vielleicht ist das eine Lösung für Dich:
http://ww3.cad.de/foren/ubb/Forum137/HTML/001999.shtml#000010

------------------
Gruß
Mörchen

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

---

Servus
dazu gibt es verschiedene Makros (zB hier) oder auf catia.cad.de

Gruß
Bernd

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

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

---

Hallo,

könnte dieses was für dich sein ?

------------------
Sei Schlau bleib Dumm !!?!!

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

---

Hallo zusammen,

Danke für die schnellen Antworten.
Das ganze werde ich gleich mal ausprobieren, obwohl ich sagen muss, das ich sowas von null Ahnung von Makros im Catia habe das es eng wird.

Aber das bekomme ich schon irgendwie hin.

Danke für die Links und SRY das ich es nicht gefunden habe über die Suchfunktion (Peinlich)

Gruß an alle

Maximilian

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

---

So Test ist gelaufen.

Jetzt wird es erst mal Peinlich.

Bei mir geht das schonmal gar net.
Grund: Wenn ich den Code einfüge (egal ob in Catia oder in Excel) komtm immer eine fehlermeldung.

In Catia bleibt er stecken bei:  Dim WB As Workbook

Ich will keinen Grundkurs in Makroerstellung, aber gibt es einfach ein Makro das ich einfügen kann das funzt?

Danke

Der Code ist folgender:

Sub CATMain()
'Set CATIA = GetObject("", "CATIA.Application") ' wird nur benötigt, weil ich Excel als Entwicklungssumgebung benutze
  Dim Excel As Application
  Dim WB As Workbook
  Dim WS As Worksheet
 
  Set Excel = CreateObject("Excel.Application")      ' Excel starten
  Excel.Visible = True
  Set WB = Excel.Workbooks.Open("c:\temp\punkte.xls") ' Arbeitsmappe öffnen
  Set WS = WB.Worksheets.Item(1)                      ' Tabelle holen
 
  Set Part1 = CATIA.ActiveDocument.Part ' aktives part holen
  Set partDocument1 = CATIA.ActiveDocument
  Set HybShapeFac = Part1.HybridShapeFactory            'factory zu erstellen der Punkte
  Set HKoerper = CATIA.ActiveDocument.Part.HybridBodies  'hauptkörper holen zum einfügen der Punkte
  Set measurement_points = HKoerper.Add                  'Geoset einfügen
      measurement_points.Name = "Messpunkte"            'benennen
 
  nRow = 2                                                'ab Zeile 2 Zeile der Tabelle einlesen
 
  Do  'lesen bis EOF
      ' Spalte 1 = Name // Spalte 2,3,4 = Werte
    Element = (WS.Cells(nRow, 1).Value)
    XCoord = CDbl(WS.Cells(nRow, 2).Value)
    YCoord = CDbl(WS.Cells(nRow, 3).Value)
    ZCoord = CDbl(WS.Cells(nRow, 4).Value)
   
    Set hybridShapeFactory1 = Part1.HybridShapeFactory
    Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(XCoord, YCoord, ZCoord)
    measurement_points.AppendHybridShape hybridShapePointCoord1  ' Punkt einfügen
    hybridShapePointCoord1.Name = Element                        ' Punkt benennen
        nRow = nRow + 1                                          ' Zeile hochzählen
    Loop While (WS.Cells(nRow, 2).Text <> "")                    ' Schleife verlassen, wenn Zelle leer ist
 
    Part1.Update              ' Part aktualisieren
  Excel.Quit                  ' Excel schliessen
End Sub

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

---

Servus
Bitte benutze das Makro aus dem Forum (weiter runter scrollen)
bei mir lief das Makro ohne Probleme.
Was für eine Fehlermeldung kommt?
Du ahst die Punkt koordinaten eingtragen und den "Exportar a CATIA"-Button gedrückt?

Gruß
Bernd

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

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

---

Habe gar nichts gedrückt da ich diesen Butten entweder nicht sehe oder ihn nicht habe.

Habe jetzt das Scribt aus dem Forum benutzt und TA DA    es geht.

Schade nur, das die Punkte nicht mit der Excel Liste verknüpft sind.
Das wäre aber glaube ich zuviel des guten.

VIELEN DANK AN ALLE

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