---

Hallo zusammen!

Bin schon seit längerem hier im Forum unterwegs und habe mir demensprechend auch schon viele nützliche Antworten finden können. Vielen Dank hierfür!

Zu folgender Frage finde ich jedoch keinen passenden Thread...

Ich würde gerne mit Hilfe eines Makros Geometrische SetŽs erstellen, deren Namen aus einer Excel-Tabelle kommen.

Beispiel:

1.Makro Start
2.Auswahl der Exceldatei (enthält 4 Spalten) 
3.4 Geo SetŽs werden erstellt mit den Namen aus den jeweiligen Spalten

Hoffe ich konnte es einigermaßen Verständlich erklären.

Freu mich auf eure Antworten!

Gruß Paul

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

---

Servus

Willkommen im Forum.
Wie du von Excel auf Catia zugreift solltest du im Forum finden (zB Punkteimport).
Wie ein GeoSet erstellt wird lässt sich per Makrorekorder (CATScript) aufzeichnen lassen. Dies dann in das Excelmakro einbauen.
Probier mal wie weit du kommst und melde dich bei konkreten Fragen.

Gruß
Bernd

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

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

---

Servus Bernd,
vielen Dank für die schnelle Antwort!
Hier mein Ergebnis:

Sub CATMain()

  Dim Excel As Application
  Dim WB As Workbook
  Dim WS As Worksheet
  Dim Element As Text
  Dim XCoord As Double
  Dim YCoord As Double
  Dim ZCoord As Double
  Dim nRow As Integer
  Dim Part1 As Part
  Dim HybShapeFac As Factory
  Dim Point As HybridShapePointCoord
  Dim HKoerper As HybridBodies
  Dim measurement_points As HybridBody
  Dim oEingabe
  Dim cDateiPfad
 
CATIA.DisplayFileAlerts = False
Dim Message, Style, Title, Response, MyString
Message = ("Dieses Makro importiert den Namen einer Exceltabelle in Geometrische Sets. Folgendes ist zu beachten:" &_
""&(chr(13))&_
(chr(13)) &_
" - Beginn erst ab Zeile 2"&_
(chr(13)) &_
" - Spalte A= Name "&_
(chr(13)) &_
""&(chr(13))&_
" Willst du fortfahren ?")
Style = vbYesNo + vbDefaultButton2    'Define buttons.
Title = "Punkte importieren " 
Response = MsgBox(Message, Style, Title)
If Response = vbYes Then    ' User chose Yes.
  MyString = "Yes"

oEingabe="C:\Temp\Punkte.xls"
oEingabe=InputBox("Bitte den Pfad und Name der Excel Datei angeben:","Eingabe Dateipfad und Name",oEingabe)
cDateiPfad=oEingabe

  ' Excel starten
  Set Excel = CreateObject("Excel.Application")
  Excel.Visible = True
  ' arbeitsmappe öffnen
  Set WB = Excel.Workbooks.Open(cDateiPfad)
  ' tabelle holen
  Set WS = WB.Worksheets.Item(1)
 
  ' aktives part holen
  Set Part1 = CATIA.ActiveDocument.Part
  ' factory zu erstellen des Geosets
  Set hybridBodies1 = part1.HybridBodies
' hauptkörper holen zum einfügen des Geosets
  Set hybridBody1 = hybridBodies1.Add()
 
  ' Name beginnt in der 2 Zeile der Tabelle
  nRow = 2
 
  ' Zeilen solange einlesen bis nichts mehr drin steht
  Do
    ' Spalte 1 = Name
    hybridBody1.Name = (WS.Cells(nRow, 1).Text)
   
    ' Zeile hochzählen
    nRow = nRow + 1
   
    ' Schleife verlassen, wenn Zelle leer ist
  Loop While (WS.Cells(nRow, 2).Text <> "")
 
  ' Part aktualisieren
  Part1.Update
  ' Ecxel schliessen
  Excel.Quit

MsgBox "Fertig !" & vbCrLf & s '

Else    ' User chose No.
  MyString = "No"
End If

End Sub

---------------------------------------------------

Leider schaffe ich es so nur den ersten Namen auszulesen und als Geoset zu speichern...

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

---

Servus

Müsste das Set hybridBody1 = hybridBodies1.Add() nicht auch in die Do-loop-Schleife mit rein, damit pro Schleife ein GeoSet angelegt wird.
Hast du nun die Namen in einer Spalte oder Zeile abgelegt?
Warum verwendest du im Code einmal Cells(nRow, 1) und einmal Cells(nRow, 2)?

Gruß
Bernd

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

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

---

Habs gerade hinbekommen!

Braucht nur noch nen kleinen Feinschliff!

Poste dann mein Ergebnis für alle Interessenten.

Danke nochmal!!!

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